【Excel VBA】Accessと接続して関数を呼び出す

Accessと接続する

Dim CurrentPath As String = ActiveWorkbook.Path
Dim AccessPath As String = CurrentPath & "ファイル名.accdb"
Dim AccessApp As Object

Set AccessApp = CreateObject("Access.Application")
AccessApp.OpenCurrentDatabase AccessPath

関数を呼び出す

Access側の関数は戻り値があってもなくてもOK

AccessApp.Application.Run("呼び出したい関数名")

終了処理

Set AccessApp = Nothing