別のブックのマクロを実行（Run メソッド）

2015/12/16

別のブックのマクロを実行

別のブックのマクロを実行するには、Run メソッド を使用します。（ ※ 参照設定を行うと、Call ステートメント でも別ブックのマクロを呼び出すことができます。詳細は、プロシージャを呼び出す（Call ステートメントを参照してください。）

【書式】

object.Run ( macro [, arg1, arg2, … , arg29, arg30 ] )

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
macro ・・・実行するマクロを指定します。ブックが開いている時やカレントフォルダのブックの場合は、「ブック名!マクロ名」のように、マクロ名の前には、「!」（エクスクラメーションマーク）を付けます。また、ブックが閉じている場合は、「‘パス+ブック名’!マクロ名」のように、パスを含めたブック名を「’」（シングルクォーテーション）で囲み、マクロ名の前には、「!」を付けて指定します。
arg1 … arg30 ・・・引数を指定します。（省略可）

Run メソッド使用例

サンプルVBAソース

　
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

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

　
Sub mybook_Macro1()

    MsgBox ThisWorkbook.Name & " のマクロを実行"

End Sub

Sub mybook_Macro1()

MsgBox ThisWorkbook.Name & " のマクロを実行"

End Sub

実行結果

Run メソッド

- ブック・シートの操作 Application オブジェクト, Call ステートメント, Run メソッド, VBA基本, エクセルVBA, ブック・シートの操作

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

: ユーザー設定のビュー（CustomViews プロパティ）

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: セルのコメントを印刷（PageSetup.PrintComments プロパティ）

PageSetup.PrintComments プロパティ PageSetup. …

: ユーザー設定のビュー（CustomView オブジェクト）

ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …

: 印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクト

Page オブジェクトページごとに異なるヘッダーおよびフッターを設定する場合、 …

: ブックの表示・非表示（Visible プロパティ）

ブック表示・非表示（Visible プロパティ）ブック（ウィンドウ）が表示され …

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

: 印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定偶数ページのヘッダーおよびフッター …

PREV: プロシージャを呼び出す（Call ステートメント）
NEXT: 保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）

別のブックのマクロを実行（Run メソッド）