(VBA)ExcelのVBAからテキストファイルを作成して保存するFunctionを用意する

Excel側から、自動でテキストファイルを作成して保存します。

Function SaveTextFile(ByVal filePath As String, ByVal fileContent As String) As Boolean
    On Error GoTo ErrHandler
    
    Dim fileNum As Integer
    fileNum = FreeFile ' 使用可能なファイル番号を取得

    ' テキストファイルを出力モードで開く（新規作成 or 上書き）
    Open filePath For Output As #fileNum
    Print #fileNum, fileContent
    Close #fileNum

    SaveTextFile = True
    Exit Function

ErrHandler:
    SaveTextFile = False
End Function

呼び出し方法：　この方法で2行以上のレコードを出力・保存することができます。

Sub TestSaveTextFile()
    Dim result As Boolean
    Dim fullPath As String
    Dim content As String

    fullPath = "C:\Temp\sample.txt"
    content = "これはテスト用の内容です。" & vbCrLf & "2行目も書けます。"

    result = SaveTextFile(fullPath, content)

    If result Then
        MsgBox "テキストファイルの保存に成功しました。", vbInformation
    Else
        MsgBox "ファイル保存に失敗しました。", vbExclamation
    End If
End Sub