非IT企業に勤める中年サラリーマンのIT日記

非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。

Excel/VBAでファイルを1行ずつ・全文一気に読み込む方法

      2019/04/05

Excel/VBAでファイルを読み込む方法です。1行ずつ読み込む方法と一気に全文読み込む方法があるので、それについて書き留めておきます。

1行ずつ読み込む
Sub FileOpen1()
  Open "data.txt" For Input As #1
  r = 1
  Do Until EOF(1)
    Line Input #1, buf
    Cells(r, 1) = buf
    r = r + 1
  Loop
  Close #1
End Sub
 

 

ファイル内全文を読み込む
Sub FileOpen2()
  Set obj = CreateObject("Scripting.FileSystemObject")
  Set file = obj.GetFile("data.txt").OpenAsTextStream
  buf = file.ReadAll
  file.Close

  Range("A1") = buf
 
End Sub
 

 

[ad#ad-1]


スポンサーリンク

 - Excel, VBA