「Excel VBA」エクセルのセルの値をテキストに出力する

2022年1月13日

環境
Windows 10 64bit
Excel 2013
ディレクトリ:C:\test10
ファイル名:Book1.xlsx result.txt
セルのA1に「住所」、B4に「川崎」があります

使用例

Option Explicit
Sub funA()
   'ファイル変数名
    Dim fileName As String

    '1 選択中のブックと同じフォルダにファイルを出力
    fileName = ActiveWorkbook.Path & "\result.txt"
    
    '2 対象のファイルをOutputモードで開き
    Open fileName For Output As #1
    
    'A1セルの値を指定ファイルに出力
    Print #1, Cells(1, 1).Value
    'B4の値を指定ファイルに指定
    Print #1, Cells(4, 2).Value
     
    '4 closeで対象のファイルを閉じる
    Close #1

End Sub

実行結果
「result.txt」に以下の内容が表示されます。出力されるファイルの文字コードはShift_JISです。
住所
川崎