|
テキストデータから、エクセルへデータを読み込むマクロを作成しています
そこで、どうしてもうまくいかなくて困っていることがあります
テキストデータ内に黒い四角■が存在するのですが、
この■があるところで、改行されてエクセルに表示されてしまいます
テキストデータでは・・・↓
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
よろしくお願いいたします
|
|