| |
テキストデータから、エクセルへデータを読み込むマクロを作成しています
そこで、どうしてもうまくいかなくて困っていることがあります
テキストデータ内に黒い四角■が存在するのですが、
この■があるところで、改行されてエクセルに表示されてしまいます
テキストデータでは･･･↓
test ■ test2
↓これをエクセルに読込むと･･･
test
test2
とでてきてしまう･･･
本来は、
test test2
と出てきてほしいのです
いろいろとネットで調べてみたところ、他の外部ファイルからテキストに落とすときに、
正常に認識されない改行コードは、黒四角（■）に置き変わる･･･とか書いてありました
自分なりにコードを記述して考えてみましたが、どうもうまくいきません
どうしたら、黒四角（■）を削除して、エクセルへ出力させることができるのでしょうか？
現在のコード
Dim strDir="C:\Temp\test\"
Dim Mytxt="test1.txt"
Open strDir & Mytxt For Input As #1
Do Until EOF(1)
Line Input #1, Mystr
Range("A65536").End(xlUp).Offset(1).Value = Application.Substitute(Mystr, "\n", "")
’↑上記のような感じで、置換え方法で考えてみましたがうまくいかないです
’黒四角はコードではどのように記述すればいいのでしょうか？
Loop
Close #1
よろしくお願いいたします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
