エクセルから外部テキストの置換をしたいです

質問

お時間があるかた、どうぞご教授下さい＞＜

================================
Dim FT As String
Open "C:\1.txt" For Input As #1
Open "C:\2.txt" For Output As #2

Do While Not EOF(1)
Line Input #1, FT
FT = Replace(FT, ">", "\n")
Print #2, FT
Loop
Close #1
Close #2
================================

というマクロをエクセルで書いたのですが、テキスト上では＞が\nに変換されているだけです。

テキストのほうで、ある文字(今回は＞)を『改行』するにはどうしたらいいのでしょうか？
エクセルのマクロから出来るようにしたいのです。

よろしくお願い致します。

回答No.1

keithin · ベストアンサー

変更前：
FT = Replace(FT, ">", "\n")

一例：
FT = Replace(FT, ">", vbcrlf)

お礼

keithin様
有難うございます。無事できました^^

回答No.2

yy_kd

Dim FT As String
Open "C:\1.txt" For Input As #1
Open "C:\2.txt" For Output As #2

Do While Not EOF(1)
Line Input #1, FT
FT = Replace(FT, ">", vbCrLf)
Print #2, FT
Loop
Close #1
Close #2
でいかがでしょうか？

お礼

yy_kd様
ご回答有難うございます。無事できました^^