エクセルからアクセスのプロシージャーを実行する

質問

エクセルからアクセスのプロシージャーを実行する方法を教えてください。

アクセスファイル名→ファイル1.accdb
プロシージャー名→test1
なのですが、

エクセルで

Sub ACCESSのプロシージャーを実行する()
Dim OBJ As Object

Set OBJ = GetObject("C:\Users\Desktop\ファイル1.accdb")

OBJ.Application.Run OBJ.Name & "!test1"

Set OBJ = Nothing

End Sub
としたら、
実行時エラー　2517
’Microsoft　Access！test1’プロシージャーが見つかりません。

になります。

test1は、アクセスの標準モジュール内に記載しています。
モジュール名も指定しないとだめなのでしょうか？
その場合のコードの書き方がわからないので教授ください。

該当のアクセスファイルは既に起動しているときもあるし、してない時もあります。

回答No.1

NotFound404 · ベストアンサー

たとえばAccessの標準モジュールで
Sub WakeCalk()
Shell "calc.exe"
End Sub

としといて
Excel側で

Sub AccCalc()
Dim oAc As Object
Dim BoAc As Boolean
If Dir("D:\tmp\てすと.laccdb") <> "" Then 'laccdb で起動中の確認
BoAc = True
End If

Set oAc = GetObject("D:\tmp\てすと.accdb")

If BoAc = False Then
oAc.Visible = False 'False にしといても一瞬見えちゃいますね。。。
End If

oAc.Run "wakecalk"

If BoAc = False Then '開いてなかったら閉じる
oAc.CloseCurrentDatabase
oAc.Quit
End If

Set oAc = Nothing
End Sub

なら、電卓がこんにちは！
Accessに何をやらせたいかで色々と変わってくるんじゃないかな。
>"!test1"
はExcelでのお作法だと思います。
Access VBA のRunのヘルプを読んでみてください。
以上、ご参考まで。

お礼

ありがとうございました。