Accessのレポートを印刷する

Accessのプロシージャを実行する

Sub Accessプロシージャを実行()
Dim objAcc As Access.Application, myMDB As String, myProcedure As String

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

'接続するmdbファイルを指定
myMDB = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb"
'実行するプロシージャを指定
myProcedure = "fromAccess"

With objAcc
  .OpenCurrentDatabase myMDB  '対象データベースを開く
  .Run myProcedure            'プロシージャを実行
  .CloseCurrentDatabase       '閉じる
  .Quit                       'Accessを終了
End With

MsgBox "Accessのプロシージャを実行しました。", vbOKOnly, "わたしはExcelでござんす！"

Set objAcc = Nothing

End Sub

Accessのプロシージャを実行
Accessアプリケーション.Run 実行したいプロシージャ名

Accessのプロシージャ

実行結果