エクセルにてテキストファイル読み込みでエラー

質問

いつもお世話になっております。

テキストファイル　（test.txt）をエクセルマクロにてセルへの読み込みを
したいのですが、なぜか　エラーになります。

Cells(n, 1) = buf　

でエラーのようです。

理由がわかりません。　教えてもらえないでしょうか

普通の文章なら読み込みできるのですが

＝　

を使っているとエラーがでるようです。

test.txtの画像を添付します。

エクセルのマクロの内容は次の通り

Sub テキストファイルをセルに転記()

Dim buf As String, n As Long

Open "C:\Users\a\Desktop\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
n = n + 1
Cells(n, 1) = buf
Loop
Close #1

End Sub

回答No.1

keithin · ベストアンサー

セルに手で
==
と記入しようとしても、エラーが起きる様子を確認できます。

たとえば
range("A:A").numberformat = "@"
とでもして、事前にセルの書式設定を文字列にでもしておきます。

お礼

回答ありがとうございます。
書式設定でしたか　謎がとけました。

回答No.3

imogasi

私が標準モジュールにコピーし、自分のメモ帳に保存したテキストファイル（３０行ぐらい）のファイル名に変えて，実行したところ、A列にその３０行ぐらいに文章を表示しました。
A1には最初改行コードまでの文字列、A2にはその次から第二の改行コードまでの文字列、以下順次同様に各セルに出ています。
ですから、質問者のファイルが、本当にテキストファイルか、改行コードまでが制限長以内かなど、テキストファイルと思っているファイルの、中身を改めて調べることが必要でしょう。
これの調査は質問者しかできない事項です。
質問する前に、メモ帳に読み込んでどうなるのかぐらい調べて、記述すべきでしょう。
--
蛇足
n = n + 1でも（VBAでは）動きますが、Do Until　ループに入る前で、ｎの初期値設定（例n＝０）をして、コードを書くのが、今後の他の場合全般においてよいと思う。

お礼

回答ありがとうございます。

テキストの全文を掲載したかったのですが、公開できないないようなので
例文として載せてます。

n=0　初期設定値を　入れておくこと　。　勉強になりました。

回答No.2

emsuja

こんにちわ、前回の質問の継続ですね

Line Input #1, buf の次に

If Mid(buf, 1, 1) = "=" Then buf = "'" & buf
を追加してやればオッケイかと思います

お礼

再度の回答ありがとうございます。
文字列として認識するように　’　をいれればよかったんですね。