Excel VBA Printステートメントでファイルにデータを書き込む

以下のようなシーンで利用されます。

・テキストファイルにデータを書き込む

・デバッグのためにログファイルを作成する

・プログラムの実行結果をファイルに保存する

Option Explicit

Sub WriteToFile()
    Dim filePath As String
    Dim fileNumber As Integer
    
    ' 書き込みたいファイルのパスを指定
    filePath = "C:\Users\User\Desktop\DataCsv\output.txt"
    
    ' ファイル番号を取得
    fileNumber = FreeFile
    
    ' ファイルを開く（存在しない場合は新規作成）
    Open filePath For Output As #fileNumber
    
    ' ファイルにデータを書き込む
    Print #fileNumber, "Hello, World!"
    Print #fileNumber, "This is a test."
    
    ' ファイルを閉じる
    Close #fileNumber
    
    ' 完了メッセージ
    MsgBox "ファイルに書き込みました。"
End Sub