Accessのレポートを印刷する

引数があるAccessのプロシージャを実行する

Sub Accessプロシージャを実行2()
'引数を持つプロシージャを実行する
Dim objAcc As Access.Application, myMDB As String
Dim myProcedure As String, myPrm1 As String, myPrm2 As String

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

'接続するmdbファイルを指定
myMDB = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb"
'実行するプロシージャを指定
myProcedure = "showMsg"
myPrm1 = "Accessのプロシージャに引数を渡して、このメッセージを表示しています。"
myPrm2 = "わたしはAcessです。"

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

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

Set objAcc = Nothing

End Sub

引数があるAccessのプロシージャを実行
Accessアプリケーション.Run 実行したいプロシージャ名, 引数1, 引数2 ・・・

Accessのプロシージャ

実行結果