|
みなさん、こんにちは。
仕事上のマクロを作成している所なのですが
タイトルのエラーが出て困っています。
過去の記事を確認しましたが、事例が無いようですので
投稿させて頂きます。
現在のコードは、以下の通りです。
---------------------------------------------------------------------
' ファイルの読み込み
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行でエラーを示しますが、
改行コードだけでした。
しかし、改行コードは それ以前の行にて
何度も発生しているので、改行が問題とは
思えません。
どうすれば、解決の糸口が見つかりますでしょうか?
よろしくお願いいたします。
|
|