コンフレッジ

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

2016/3/2 VBA

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

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で指定したフルパスのファイル名でファイルが出力されます。

高橋

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^
資格：少額短期保険募集人,FP3級