Accessのマクロを実行する

Accessのマクロを実行する

Sub Accessマクロを実行()
Dim objAcc As Access.Application, myMDB As String, myMacro As String

'Accessをオブジェクトとして生成
Set objAcc = New Access.Application

'接続するmdbファイルを指定
myMDB = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb"
'実行するマクロを指定
myMacro = "m_メッセージ"

With objAcc
  .OpenCurrentDatabase myMDB '対象データベースを開く
  .DoCmd.RunMacro myMacro     'マクロ実行
  .CloseCurrentDatabase       '閉じる
  .Quit                       'Accessを終了
End With

MsgBox "AccessのマクロをExcelから呼び出し、実行しました。", vbOKOnly, "エクセルだよ〜ん！"

Set objAcc = Nothing

End Sub

Accessアプリケーション上で、mdbファイルを開く
Accessアプリケーション.OpenCurrentDatabase ファイル名

Accessアプリケーション上で、mdbファイルをとじる
Accessアプリケーション.CloseCurrentDatabase ファイル名

Accessのマクロを実行
Accessアプリケーション.DoCmd.RunMacro 実行したいマクロ名

実行したいマクロ

実行結果