VBAのPrintでファイルやデバッグ出力を行う方法をわかりやすく解説

Sub WriteToFile()
    Dim fileNum As Integer
    fileNum = FreeFile ' 使用可能なファイル番号を取得
    
    Open "C:\Temp\output.txt" For Output As #fileNum
    Print #fileNum, "これはVBAのPrintの例です。"
    Print #fileNum, "ファイルにデータを書き込みました。"
    Close #fileNum ' ファイルを閉じる
End Sub

Sub DebugExample()
    Dim i As Integer
    For i = 1 To 5
        Debug.Print "現在の値: "; i
    Next i
End Sub

Sub ExportSheetData()
    Dim fileNum As Integer
    Dim lastRow As Integer
    Dim i As Integer
    
    fileNum = FreeFile
    Open "C:\Temp\SheetData.txt" For Output As #fileNum
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastRow
        Print #fileNum, Cells(i, 1).Value
    Next i
    
    Close #fileNum
    MsgBox "データを出力しました。", vbInformation, "完了"
End Sub

Sub PrintFormatting()
    Dim fileNum As Integer
    fileNum = FreeFile
    
    Open "C:\Temp\formatted_output.txt" For Output As #fileNum
    
    Print #fileNum, "A", "B", "C" ' カンマ区切りで出力（タブスペースが入る）
    Print #fileNum, "X"; "Y"; "Z" ' セミコロンで改行せずに出力
    
    Close #fileNum
End Sub

Sub SafeFileWrite()
    Dim fileNum As Integer
    On Error Resume Next
    fileNum = FreeFile
    
    Open "C:\Temp\output.txt" For Output As #fileNum
    If Err.Number <> 0 Then
        MsgBox "ファイルを開けませんでした: " & Err.Description, vbExclamation, "エラー"
        Err.Clear
        Exit Sub
    End If
    
    Print #fileNum, "エラーチェック後に書き込み。"
    Close #fileNum
End Sub