VBでVBAを起動

こんにちは、ＶＢ初心者です。
ＶＢ６．０を使用しています。

ＶＢからエクセルのＶＢＡを起動させたいと思っています。

過去ログを参考にして下のようにして実行してみたのですが、

「実行時エラー'1004':マクロ'Keisan'が見つかりません。」

と、エラーが出てしまいＶＢＡを起動することができません。
（ExcelVBAの関数(?)名はKeisan()です。）

どうすればエラーを出さずに
ＶＢからＶＢＡを起動させることができるのでしょうか？

何か参照し忘れていたり
Callの以前に何かを宣言をしておかなければいけないのでしょうか？

＊＊＊＊＊＊＊＊

Dim Wbook As Excel.Workbook
Dim Exap As Excel.Application

Set Wbook = GetObject("C:\テスト.xls")
Set Exap = Wbook.Application
　　　
Call Exap.Run("Keisan")

No.1 ベストアンサー 回答者： imogasi 回答日時： 2004/12/16 12:07

新規BOOK1のmodule1にMsgbox "keisan"だけのプログラムを作り、Vbcall1という名のブックに保存しました。

VBのForm_Loadモジュールに
Private Sub Form_Load()
Dim Exap As Object
Dim Wbook As Object
Set Exap = CreateObject("Excel.application")
Exap.Workbooks.open "C:\my Documents\Vbcall1.xls"
Call Exap.Run("module1.Keisan")
End Sub
を作って実行すると、「keisann」とMsgboxの表示が出ました。
Set Exap = CreateObject("Excel.application")
でエクセルのVBAプログラムの中に入ると、エクセルVBA
のWorkbooks.openなどが使えるようになります。
質問のコードについて
（１）Dim Wbook As Excel.Workbook
Dim Exap As Excel.Application
VBの世界にいる間では、Excel.Workbook、Excel.Application型のオブジェクトを認識できない（この点やや不確か）と思うのですが。ですから一般的なObjectでやって見ました。
（２）Set Wbook = GetObject("C:\テスト.xls")
Set Exap = Wbook.Application
は発想が逆では。
Excel.applicationを捉えて、その後にWorkbooksのことが出てくるべきでしょう。Excel.applicationはエクセルプログラムの全体で、そのあり場所を認識して後に、はじめてその一部分のブックOpen関係のプログラムを指定できると（我流で）理解しています。

この回答へのお礼

詳しく説明してくださってありがとうございます！

実際にコードを変更してみました。
すると、エラーも出ずにＶＢＡを起動させることが
できました！
ありがとうございます！

>（２）Set Wbook = GetObject("C:\テスト.xls")
>Set Exap = Wbook.Application
>は発想が逆では。

う～む。。たしかにご指摘のとおり逆だなと思います。。
まだＶＢを始めたばかりなので
初歩的なことでもよく分からない部分が多いです＾＾；

お礼日時：2004/12/16 21:56

No.3 回答者： BLUEPIXY 回答日時： 2004/12/16 12:32

Call Exap.Run("Keisan")

の部分をサンプルのように
Call Exap.Run("テスト.xls!Keisan")
とすることで実行できました。
名前の解決のために、必要なようです。

この回答への補足

Call Exap.Run("Keisan")
ではエラーが出てしまっていたので
BLUEPIXYさんの回答を参考にして、

Call Exap.Run("ThisWorkbook.Keisan")

としてみたらエラーも出ずに実行できました＾＾；

テスト.xlsのThisWorkbookというところに
コードを書いていたので
Keisanだけでなく
ThisWorkbook.Keisanというふうに
しなきゃいけなかったんですね～（汗）

補足日時：2004/12/16 21:59

この回答へのお礼

迅速な返答ありがとうございます！

しかし、
Call Exap.Run("テスト.xls!Keisan")
で実行をしても
なぜか、同じエラーになってしまいました。。

う～ん。なぜでしょうか？？

お礼日時：2004/12/16 21:51

No.2 回答者： chupark 回答日時： 2004/12/16 12:29

参照設定で

Microsoft Office 9.0 Object Library
(Officeのバージョンにより異なると思いますが)

などを追加しましたか？

この参照設定で
ExcelVBA用のオブジェクト(WorkbookやWorksheetなどなど)が使えるはずです。

この回答へのお礼

アドバイスありがとうございます！

私の場合は
Microsoft Office 10.0 Object Library
だったと思いますが
参照で追加してみました。

エクセルを開いてセルにはいっているデータを
ＶＢで使ったりすることはできたんです。

でもなぜかＶＢＡを実行することはできませんでした(T-T)

お礼日時：2004/12/16 21:48