各DBのaccessマクロを1回で実行したい

質問

教えてください・・・
3つのDBでそれぞれマクロを作成しました。
マクロは「クエリの実行」を指定しているだけのものです。

これを1回の実行で流れるように連結させたいのですが、
どのようにすればよいのでしょうか？
VBSでもVBAでも実行方法は問いません。

そしてmdbではなくaccdbです。

さっぱりわからなくなってきてしまいました・・・。スランプです（＞＜）
すみませんが、初心者レベルのご教示をお願いします・・・

回答No.1

nda23 · ベストアンサー

たぶん以下の方法で出来ると思います
Dim A
Set A = CreateObject("Access.Application")
A.OpenCurrentDatabase("C:\～\First.accdb")
A.DoCmd.OpenQuery "～"
A.CloseCurrentDatabase
A.OpenCurrentDatabase("C:\～\Second.accdb")
A.DoCmd.OpenQuery "～"
A.CloseCurrentDatabase
A.OpenCurrentDatabase("C:\～\Third.accdb")
A.DoCmd.OpenQuery "～"
A.CloseCurrentDatabase
A.Quit
Set A = Nothing

お礼

ありがとうございます！
とても助かりました＾＾