スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
ApplicationクラスのRunメソッドを使って、他のブックにあるマクロを実行することができます。

構文 オブジェクト.Run([Macro], [Arg1], [Arg2],．．．)
設定項目　　　　内容
オブジェクト　　Applicationオブジェクト
Macro　　　　　 マクロ名
Arg1, Arg2．．．実行するマクロの引数

次のサンプルは、「Sample.xls」にある「Sample」プロシージャから、「Text.xls」にある「Sample2」プロシージャを呼び出しています。「Sample2」は、Functionプロシージャで、引数を2つ取ります。処理結果が「Sample.xls」に返され、イミディエイトウィンドウに表示されます。なお、このとき呼び出される「Test.xls」ブックは開いていなくてはなりません。また、渡される引数は、値渡しになります。

'Sample.xlsに記述
Sub Sample1()
    Debug.Print Application.Run("Test.xls!Sample2", "2", "2")
End Sub

'Test.xlsに記述
Function Sample2(i As Long, j As Long) As Long
    Sample2 = i ^ j
End Function