エクセルのマクロで別ファイル（エクセル）のマクロを実行させるには？

エクセルにおいてマクロを組んでいます．

１．実行させたいマクロAが組んであるファイル（Aファイルとします）が多数あります。またマクロAはモジュール内（Module1）に作っております。
２．１のマクロAを別のエクセルファイル（Bファイルとします）のマクロBで実行させたい．

上記のようなことを行いたいのですが可能でしょうか？さらに言えば、マクロBによってマクロAのプロシージャを指定して実行させることは出来るでしょうか？
現在は、マクロBによってマクロAを組んであるAファイルを開き、Aファイルのマクロの中にファイルを開いたときにマクロAを実行させる（イベントドリブン）ようにしています．
直接、マクロBでAファイルのマクロAを動かせるようになればマクロAにイベントドリブンなコードを組む手間がなくなるので、なんとかそのような事が出来ないでしょうか？

どうか、詳しい方ご教授ください。
よろしくお願いいたします。。。

No.1 回答者： tadagenji 回答日時： 2010/01/30 11:52

マクロの保存先をPERSONAL.XLSにすればどうですか

この回答への補足

回答ありがとうございます．

ご指摘のとおり、マクロAをPERSONAL.XLSのモジュールに置き、マクロBの中でマクロAを呼んで（Call）見ましたが、
「sub または関数が定義されていません」
となってしまいました。つまり、マクロBからPERSONAL.XLS内のマクロAは見えないようです．
ちなみに手動でPERSONAL.XLSに置いたマクロAを動かすことは出来ましたが・・・

補足日時：2010/01/30 13:17

No.2 回答者： myRange 回答日時： 2010/01/30 14:20

マクロＢから、別ブック.xls　の　MacroA　を実行したい場合は

マクロＢに、次のコードを。。。

Application.Run "別ブック.xls!MacroA"


それから、
＞マクロBによってマクロAのプロシージャを指定して実行させることは？

これ意味不明です。
マクロＡのプロシージャとはなんでしょうか。
マクロＡがプロシージャそのものだと思いますが。。。

そこら辺りはも少し詳しく補足する必要があるでしょう。
　

この回答への補足

回答ありがとうございます。

＞Application.Run "別ブック.xls!MacroA"
早速、試してみます。

＞マクロＡのプロシージャとはなんでしょうか。
＞マクロＡがプロシージャそのものだと思いますが。。。

実は、マクロAは複数のサブプロシージャがあり、メインプロシージャ（メインルーチン）から必要に応じてサブプロシージャ（サブルーチン）を呼び出す（Call）構造をしています。
つまり、やりたいことはマクロBからマクロA内のサブプロシージャ（サブルーチン）を動作させたかったという意味でした。
申し訳ありませんでした。。。

補足日時：2010/01/30 15:31

No.3 回答者： optimumsoup 回答日時： 2010/01/30 15:46

ファイルAのマクロをコピーしてファイルBのマクロに貼り付ければよいです。

No.4 ベストアンサー 回答者： myRange 回答日時： 2010/01/30 16:08

回答２、myRangeです。

　
＞実は、マクロAは複数のサブプロシージャがあり、メインプロシージャ（メインルーチン）から必要に応じてサブプロシージャ（サブルーチン）を呼び出す（Call）構造をしています。
＞つまり、やりたいことはマクロBからマクロA内のサブプロシージャ（サブルーチン）を動作させたかったという意味でした。

質問者はちょっと勘違いしているようですね。
マクロＡもプロシージャであり、Callされるのも同じプロシージャーです。
質問者がメイン、サブと呼んでいるだけで、それらは個々のプロシージャですから

例えば、マクロＡからCallしている　MacroＡＡＡ　を実行させたければ
　
Application.Run "別ブック.xls!MacroＡＡＡ"

とそれを指定してやるだけです。
　

この回答への補足

myRange様ありがとうございます。

＞質問者はちょっと勘違いしているようですね。
＞マクロＡもプロシージャであり、Callされるのも同じプロシージャーです。

その通りです。私が勝手にメインとかサブとか言っているだけでした。
申し訳ありませんでした。

＞Application.Run "別ブック.xls!MacroＡＡＡ"

試してみます。

補足日時：2010/01/30 16:58

この回答へのお礼

myRange様ありがとうございます。

ファイルA（マクロAが入っている）のファイル名は、A001,A002,A003・・・となっていて（インクリメントしたいから）マクロBにおいて、

Dim F_Name As String
F_Name="A001.xls"

Application.Run (F_Name & "!MacroＡＡＡ")

として無事に動かすことが出来ました。

myRange様　感謝いたします。本当に感謝しても仕切れません。
機会があるときはまたご教授ください。
本当にありがとうございました！！！

お礼日時：2010/01/30 18:33