|
▼まーー さん:
こんばんは。
滅多にしない処理なんですが(レポートを使用したいと思った時かなあ)
>Excelから"A.mdb"というAccessの"Bマクロ"というマクロを実行し、
>"Bマクロ"終了後に"A.mdb"を閉じる。こんなことをやりたいのですが
>超初心者でわかりませんのでやり方を教えてください。
>お願いします。
'=================================================
Sub test()
Dim acc As Access.Application
Set acc = CreateObject("access.application")
acc.Visible = True
acc.OpenCurrentDatabase "d:\フォルダ名\A.mdb"
acc.Run "Bマクロ"
'↑"Bマクロ"が標準モジュールにある場合
acc.CloseCurrentDatabase
acc.Quit
End Sub
「Dim acc As Access.Application」を宣言しているので、
参照設定で「Microsoft Access 9.0 Object Library」(Office2000)にチェックを入れてください。
参照設定しなくても、
「Dim acc As Object」にすれば、大丈夫なんですが、参照設定すれば、
accのメンバリストが表示されるのでコーディングが楽なもので・・・。
|
|