別のブックのマクロを実行(Run メソッド)
別のブックのマクロを実行
別のブックのマクロを実行するには、Run メソッド を使用します。( ※ 参照設定を行うと、Call ステートメント でも 別ブックのマクロを呼び出すことができます。詳細は、プロシージャを呼び出す(Call ステートメント を参照してください。)
【書式】
object.Run ( macro [, arg1, arg2, … , arg29, arg30 ] )
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- macro ・・・ 実行するマクロを指定します。ブックが開いている時やカレントフォルダのブックの場合は、「ブック名!マクロ名」のように、マクロ名の前には、「!」(エクスクラメーションマーク)を付けます。また、ブックが閉じている場合は、「‘パス+ブック名’!マクロ名」のように、パスを含めたブック名を「’」(シングルクォーテーション)で囲み、マクロ名の前には、「!」を付けて指定します。
- arg1 … arg30 ・・・ 引数を指定します。(省略可)
- object ・・・ 対象となる Application オブジェクトを指定します。
- macro ・・・ 実行するマクロを指定します。ブックが開いている時やカレントフォルダのブックの場合は、「ブック名!マクロ名」のように、マクロ名の前には、「!」(エクスクラメーションマーク)を付けます。また、ブックが閉じている場合は、「‘パス+ブック名’!マクロ名」のように、パスを含めたブック名を「’」(シングルクォーテーション)で囲み、マクロ名の前には、「!」を付けて指定します。
- arg1 … arg30 ・・・ 引数を指定します。(省略可)
Run メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Sample01_Run() 'mybook.xlsm が閉じている場合 Dim BookName As String BookName = "C:\Documents\mybook.xlsm" 'パスは、「'」で囲む / マクロ名の前に「!」をつける Application.Run "'" & BookName & "'" & "!mybook_Macro1" End Sub Sub Sample02_Run() 'mybook.xlsm が開いている場合 'マクロ名の前に「!」をつける Application.Run "mybook.xlsm!mybook_Macro1" End Sub |
|
1 2 3 4 5 6 7 |
Sub mybook_Macro1() MsgBox ThisWorkbook.Name & " のマクロを実行" End Sub |
実行結果

関連記事
-
-
行列の見出しの表示・非表示(DisplayHeadings プロパティ)
DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
-
-
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ)
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ) …
-
-
ワークシートのコピー・移動(Copy メソッド Move メソッド)
Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …
-
-
印刷時の改ページ設定(Add,ResetAllPageBreaks)
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …
-
-
印刷設定(ヘッダー・フッターに画像を設定)Graphic オブジェクト
Graphic オブジェクト Graphic オブジェクト は、ヘッダーおよびフ …
-
-
枠線の表示・非表示の設定(DisplayGridlines プロパティ)
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
-
-
ユーザー設定のビュー(CustomViews プロパティ)
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
-
ブックを閉じる(Close メソッド)
ブックを閉じる(Close メソッド) Close メソッド で、ブックを閉じる …
-
-
ウィンドウのタイトル(Window.Caption プロパティ)
ウィンドウのタイトル(Caption プロパティ) Windows.Captio …