Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10088 / 13644 ツリー ←次へ | 前へ→

【23766】テキストファイルを貼り付けると、エラーが発生する事がある row 05/4/3(日) 17:43 質問[未読]
【23767】Re:テキストファイルを貼り付けると、エラ... ウッシ 05/4/3(日) 19:33 発言[未読]
【23770】Re:テキストファイルを貼り付けると、エラ... row 05/4/3(日) 19:52 お礼[未読]

【23766】テキストファイルを貼り付けると、エラー...
質問  row  - 05/4/3(日) 17:43 -

引用なし
パスワード
   みなさん、こんにちは。

仕事上のマクロを作成している所なのですが
タイトルのエラーが出て困っています。

過去の記事を確認しましたが、事例が無いようですので
投稿させて頂きます。

現在のコードは、以下の通りです。

---------------------------------------------------------------------
' ファイルの読み込み
fsitei = "テキストファイル指定"
ファイル名 = Application.GetOpenFilename(Title:=fsitei)
' データの貼り付け
Open ファイル名 For Input As #1
Do Until EOF(1)
  Input #1, dat
I = I + 1
'  ↓ここで、アプリケーション定義及びオブジェクトエラーが出る事がある
Workbooks("テキストから型番シリアル取得マクロ.xls").Worksheets("テキスト").Cells(I, 1) = dat
If I = 1000 Then
GoTo skip
End If
Loop
skip:
Close #1
------------------------------------------------------------------------

矢印の所で、アプリケーション定義及びオブジェクトエラーが出る事があります。
しかし、ファイルによって出ない物もあり
テキストエディタで見ても、特に変わった文字コードが見当たらないのです。

該当する行数を確認すると

150行 === Electronic ID ===
151行

この150行でエラーを示しますが、
改行コードだけでした。
しかし、改行コードは それ以前の行にて
何度も発生しているので、改行が問題とは
思えません。

どうすれば、解決の糸口が見つかりますでしょうか?
よろしくお願いいたします。

【23767】Re:テキストファイルを貼り付けると、エ...
発言  ウッシ  - 05/4/3(日) 19:33 -

引用なし
パスワード
   こんばんは

最初が「=」なので数式に判定されているのでは?

【23770】Re:テキストファイルを貼り付けると、エ...
お礼  row  - 05/4/3(日) 19:52 -

引用なし
パスワード
   >最初が「=」なので数式に判定されているのでは?

見直してみると、おっしゃる通りでした。
お恥ずかしい事を聞いてしまったと
冷や汗が出てしまいました。

お忙しい中、回答頂きありがとうございました。

10088 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free