ワークシートの内容をテキストファイルに書き込む際に、テキストファイルでは改行が”↑”と表示されるだけで困っています
エクセルのデータをテキストファイルに出力させたいのですが、テキスト出力の際に"↑"が表示されるだけで改行がうまくできません。
マクロの組み方でアドバイスをいただけないでしょうか?
------------------------------
<↓具体的に、、、、。>
・エクセルデータは、同一セル内に改行させたデータがあります。
列A 列B
行1 No,1 1-111111
1-1111
行2 No,2 2-2222 ←セル"B1"と"B2"のデータを
2-22222 テキストでも改行させて表示したい。
・テキストでは、下記のように出力させたい
◆No,1
1-111111
1-1111
◆No,2
2-2222
2-22222
----------------------
<↓私が試しているコードです。>
'Test.txt 開く
Open "C:\Test.txt" For Output As #File_Number
'列Aのセルに空白文字列が入るまで、処理を繰り返す
i = "3"
Do While Worksheets("sheet1").Cells(i, 1) <> ""
Print #File_Number, "◆" & Cells(i, 1)
Print #File_Number, Cells(i, 2)
i = i + 1
Loop
'Test.txt を閉じる
Close #File_Number
このマクロだとテキストでは
◆No,1
1-111111↑1-1111
◆No,2
2-2222↑2-22222
となります。
アドバイスの程、よろしくおねがいします。
お礼
回答ありがとうございます。 コピーペーストですと改行が無視されてしましました。 また、CSVですと行頭と行の最後に””が付いてしまいました。 もう少し試しています。