| |
データ パラメータ
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を走らせる、
という方法に問題がある
等が考えられますが、
いずれにしても先月までは問題なく動いていたので、
突然動かなくなった理由が皆目検討がつきません。
どなたかご教示頂ければと思います。
よろしくお願いいたします。
|
|
zaitsev
- 08/5/9(金) 14:52 -
