【Excel VBA】セルの内容をテキストファイルに出力するサンプル

エクセルと同じパスに「yyyymmdd.txt」のファイル名で
テキストファイルを作成し、エクセルの内容を出力するVBAのサンプルです。

VBA

Sub MakeText()
    '変数を定義します
    Dim FSO As Object
    Dim lStr As String

    '変数に値を代入します
    bookName = ThisWorkbook.Name
    'シート名を設定します
    sheetName = "XXX"
    Workbooks(bookName).Activate
    Sheets(sheetName).Select

    'オブジェクトを作ります
    Set FSO = CreateObject("Scripting.FileSystemObject")
    tTime = Left(Replace(Now(), "/", ""), 8)

    With FSO.CreateTextFile(ThisWorkbook.Path & "¥" & tTime & ".txt")
            lStr = Cells(X, Y).Value
            .writeline lStr
        .Close
    End With
    Set FSO = Nothing
End Sub

基本となる形ですので、シート名、ファイル名、出力するセルなどをカスタマイズして使いましょう。