別のブックのマクロを実行(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 |
実行結果
関連記事
-
-
0 を表示するかどうかを設定(DisplayZeros プロパティ)
DisplayZeros プロパティ DisplayZeros プロパティに、T …
-
-
ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …
-
-
シートが保護されているか確認(ProtectContents プロパティ)
ProtectContents プロパティ ワークシートが保護されているかどうか …
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
ブックの表示・非表示(Visible プロパティ)
ブック表示・非表示(Visible プロパティ) ブック(ウィンドウ)が表示され …
-
-
アクティブプリンタを変更(ActivePrinter プロパティ)
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
印刷設定(先頭ページのヘッダー・フッターを設定)DifferentFirstPageHeaderFooter, FirstPage
先頭ページに別のヘッダーおよびフッターを設定 先頭ページのヘッダーおよびフッター …
-
-
印刷設定(フッターに文字列を指定)LeftFooter,CenterFooter,RightFooter
PageSetup.LeftFooter プロパティ PageSetup.Lef …
-
-
印刷位置を中央に設定(CenterHorizontally, CenterVertically)
PageSetup.CenterHorizontally プロパティ PageS …
-
-
行列の見出しの表示・非表示(DisplayHeadings プロパティ)
DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お …