エクセルから .txtで保存するときにセル間の空白を半角スペースにしたい

機械学習などでよくdata.txtとして場所を参照するためにディレクトリを作成することがあると思います。やりたいことはデータ（今回は画像）の絶対パス（???/???/???/!!!!.jpg ）から半角開けてラベル（０や１などの数値）を入力したいのです。
エクセルでやるとセル間はtabキーを押したときと同じ行間になりますが、これを半角スペースにして　.txtファイルで保存するのが目標です。
添付画像がやりたいことの理想の状態です。画像は手打ちしたものです。

No.1 ベストアンサー 回答者： angkor_h 回答日時： 2019/12/10 15:06

EXCELの段階で、文字置換をすればよいはずです。

*.txtでも、文字置換はできます。

この回答へのお礼

ありがとうございます
そういえば置換あるのわすれてました
https://amaotolog.com/pc-benri/57
参考にしたらできました

お礼日時：2019/12/10 15:36

No.2 回答者： Qchan1962 回答日時： 2019/12/10 15:20

最もシンプルなやり方

シートインデックス1のA列に　???/???/???/!!!!.jpg　B列にラベル　がある場合に
例として
Sub makeText()
Dim i As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim datFile As String
datFile = ActiveWorkbook.Path & "\data.txt"
Open datFile For Output As #FreeFile
i = 1
Do While ws.Cells(i, 1).Value <> ""
Print #FreeFile, ws.Cells(i, 1).Value & " " & ws.Cells(i, 2).Value
i = i + 1
Loop
Close #FreeFile
MsgBox "data.txtに書き出しました"
End Sub

参考サイト　https://tonari-it.com/vba-txt-print/

他の方法で書き出す場合、
出力時に置換
行データ = Replace(行データ, " ", " ")
など、、