VBAでFreeFile関数を使用してファイル出力する

VBAでFreeFile関数を使用してファイル出力します。

Sub Macro1()
  Dim n As Integer
  n = FreeFile

  Open "D:\work_vba\a.txt" For Output As #n
  Print #n, "ID", "NAME"
  Print #n, "1", "tanaka"
  Close #n
End Sub

これでOpenで指定したフルパスのファイル名でファイルが出力されます。

 

 

コメント

タイトルとURLをコピーしました