セル内改行をそんままテキスト出力するには？

セル内で「Alt」+「Enter」で改行されたデータを
VBAでテキストファイル(*.txt)に出力したいのですが、
そのままだと、セルの内容が１行になってしまいます。

どのようにすれば、セルで改行したようにテキスト内で改行できるのでしょうか？

No.1 ベストアンサー 回答者： marbin 回答日時： 2008/07/30 11:52

VbLf

を
VbCrLf
に置換してはいかがでしょう？

No.2 回答者： kigoshi 回答日時： 2008/07/30 14:44

No.1のご回答をコード化してみました。

Dim iStr, oStr As String
Dim pt As Integer
lStr = Cells(1, 1).Value
oStr = ""
For pt = 1 To Len(lStr)
If Mid(lStr, pt, 1) = vbLf Then
oStr = oStr & vbCrLf
Else
oStr = oStr & Mid(lStr, pt, 1)
End If
Next
MsgBox oStr