別のブックのマクロを実行（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 |
実行結果
関連記事
-
-
ステータスバーにメッセージを表示（StatusBar プロパティ）
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
新規ブック作成（Add メソッド）
新規にワークブックを作成する Workbooks コレクションの Add メソッ …
-
-
ブックが共有モードか確認する（MultiUserEditing プロパティ）
ブックが共有モードか確認する（MultiUserEditing プロパティ） 共 …
-
-
枠線の表示・非表示の設定（DisplayGridlines プロパティ）
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
-
-
印刷設定（ヘッダー／フッター）書式コード・VBAコード
印刷設定（ヘッダー／フッター）書式コード・VBAコード ヘッダーおよびフッター（ …
-
-
ワークシートを参照する（Worksheets プロパティ）
Worksheets プロパティ Worksheets プロパティは、Works …
-
-
ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
ブック・シートの名前を取得・設定（Name プロパティ）
ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …
-
-
ブックを保存する（Save メソッド）
ブックを保存する（Save メソッド） 既存のブックを上書き保存するには、Sav …