|
データ パラメータ
AA 1
AB 1
AC 2
AD 1
AE 3
AF 2
AG 2
AH 1
(以下続く)
というテーブルのEXCELファイル(仮に"A.xls"というファイルとします)があり、
このファイルにVBモジュールを保存しています。
毎月、データが羅列されているのファイル(こちらを"B.xls"とします)が別に出てくるので、
この"A.xls"のVBを立ち上げて、"B.xls"ファイル上に、
Dim MyThisFile As String
MyThisFile = ThisWorkbook.Name
Range("O1") = "=VLOOKUP(F1," & MyThisFile & "!$A$1:$B$1000,2,FALSE)"
という式を貼り付けて、"B.xls"のF列を参照して、O列にパラメータを引っ張ってくる、
という作業を毎月行っていました。
(この後、この式をデータの最終行までコピーしていました)
先月まではこれで問題なく動いていたのですが、今月突然、
”実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです”
と出て動かなくなってしまいました。
○VLOOKUP でテーブルにしている "A.xls" の参照方法が、
ファイル名だけで、シート名を取得していない
○"A.xls" というモジュールのファイルと、
"B.xls"というデータファイルの両方を立ち上げてVBを走らせる、
という方法に問題がある
等が考えられますが、
いずれにしても先月までは問題なく動いていたので、
突然動かなくなった理由が皆目検討がつきません。
どなたかご教示頂ければと思います。
よろしくお願いいたします。
|
|