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 #1
End Sub
 

ファイルに保存(追加)

ファイルの末尾に1行追加します。

Sub FileAppend()
  Open "C:\Users\...\data.txt" For Append As #1
  Print #1, "佐藤"
  Close #1
End Sub
  

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

 

9 Pockets

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 #1End Sub  ファイル内全文を読み込むSub FileOpen2() Set obj = CreateObject("Scripting.FileSystemObject") Set file = obj.GetFile("data.txt").OpenAsTextStream buf = file.ReadAll ...

[ad#ad-1]

 - Excel, VBA