Excel VBA質問箱 IV

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

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


57706 / 76738 ←次へ | 前へ→

【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行でエラーを示しますが、
改行コードだけでした。
しかし、改行コードは それ以前の行にて
何度も発生しているので、改行が問題とは
思えません。

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

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

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