VBAでテキストファイルに書き出し時の改行方法

質問

Excel　VBAでテキストファイルに書き出しをしたいと思っています。テキスト内で改行を指定したいと思うのですが、どのようにやったらよいでしょうか？
Dim str As String
str = "ABC" & vbCrLf
str = str & "DEF" & vbCrLf

とやってもうまくいきません。何が悪いと考えられるでしょうか？

回答No.2

n-jun · ベストアンサー

＃１です。

それとも、
Sub try()
Dim n As Long
Dim str As String
Dim v As Variant

str = "ABC" & vbCrLf
str = str & "DEF" & vbCrLf

n = FreeFile
Open "D:\Test.txt" For Output As #n

For Each v In Split(str, vbCrLf)
Print #n, v
Next

Close #n
End Sub

こうゆう事でしょうか？

回答No.3

DOUGLAS_

＞Excel　VBAでテキストファイルに書き出しをしたい
＞うまくいきません
　どういう方法で書き出しをしていらっしゃるのか？　どこが上手くいかないのか？　もう少し詳しい情報を示されたらと存じます。

　個人情報を伏せて、お手持ちのＶＢＡコードをここへコピペしてみてください。

回答No.1

n-jun

テキストファイルを操作する
http://www.officetanaka.net/excel/vba/file/file08.htm
ファイル操作の基本　コードの一部修正

Sub Sample21()
Dim n As Long
n = FreeFile
Open "D:\Test.txt" For Output As #n
Print #n, "ABC"
Print #n, "DEF"
Close #n
End Sub

と言う事？