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

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

Excel/VBA:Openステートメントでファイル保存(上書きと追加)

      2019/04/05

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
  

 

[ad#ad-1]


スポンサーリンク

 - Excel, VBA