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

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
 

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

 

2 Pockets

Excel/VBA：Openステートメントでファイル保存（上書きと追加）

Excel/VBAでファイルにテキストを保存する方法です。ファイルに上書きする方法と末尾に追加する方法の2種類あります。ファイルに保存(上書き)以下のプログラムはA列のデータ3行分をファイルに1行ずつ保存します。Sub FileSave1() Open "C:\Users\...\data.txt" For Output As #1 For i = 1 To 3 Print #1, Cells(i, "A") Next i Close #1End Sub  ファイルに保存(追加)ファイルの末尾に1行追加します。Sub FileAppend() Open "C:\Users\...\data.txt" For Append As #1 Print #1, &...

[ad#ad-1]

 - Excel, VBA