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]
スポンサーリンク