エクセル VBA テキストデータ書きだし

質問

お世話になっております。

エクセルのデータに記入したデータをテキストに書き出したいのですが、検索した結果、
A列だけテキスト化には成功したのですが、複数列（A-U）までコピーしたいのです。

シート名"メール"
テキスト名"テキスト"

申し訳ございませんが、よろしくお願いします。

Sub テキスト()

Dim StrFN As String
StrFN = ActiveWorkbook.Path & "\テキスト.txt"

Dim i As Long, LngLoop As Long
Dim IntFlNo As Integer

Worksheets("メール").Activate
LngLoop = Range("a65536").End(xlUp).Row

IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo

For i = 1 To LngLoop
Print #IntFlNo, Cells(i, "A")
Next i

Close #IntFlNo

End Sub

回答No.2

keithin · ベストアンサー

わざわざテキストファイルを直接書き出さなくても，名前を付けて保存でcsvやタブ切りテキスト形式なり，prn形式で保存する（という操作を新しいマクロの記録でマクロにとって利用してみる）ことでも，テキストファイルを書き出せます。
これは言い換えると，複数列に渡るデータを「いったいどういうフォーマットでテキストにしたいのか」，ご質問では具体的に説明されていない（考えてない？）ということです。

考えてない前提で：
sub macro1()
　dim r as long
　dim a as variant

　worksheets("メール").select
　open thisworkbook.path & "\テキスト.txt" for output as #1

　for r = 1 to range("A65536").end(xlup).row
　　a = application.transpose(range("A1:U1").offset(r-1))
　　print #1, join(application.transpose(a),"")
　next r
　close #1
end sub

お礼

早速のご返信ありがとうございます。
こちらで一発解決しました！！

やってみたかったことは、エクセルで複数行、複数列の数字や文字などをメールにコピーするだけなのですが、全くやりかたがわからず検索してみたらこのような方法があったのでテキストに保存でやってみました。
テキスト保存する必要はないのですが、これ方法以外私には検討もつかなかったので・・・

的確なご返答ありがとうございました。

回答No.1

imogasi

Print #IntFlNo, Cells(i, "A")
ではＡ列だけのアウトプットになる。こんなのすぐ判るだろう。
そこでＦｏr　Ｎｅｘｔ　をネストして
ｓ＝””
Ｆｏｒ　ｊ＝１　ｔｏ　４　’Ｄ列までの例
ｓ = ｓ　＆　Ｃｅｌｌｓ（ｉ，ｊ）　＆　”，”
Ｎｅｘｔ　ｉ
s = Left(s,Len(s)-1) '最後の列の後のカンマを省く
ｓをアウトプットする。
出できるだろう。

お礼

ご返信ありがとうございます。

とても参考になりました。
勉強不足なものでご迷惑をおかけしました。

今後ともよろしくお願いします。