ExcelのマクロでAccessのmdbを起動したい

タイトルどおりです。
Excelマクロで試してみたところ、「ExcelからはAccessを起動できません」という旨のメッセージが出てしまいました。

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/06/01 15:41

ツールで、参照設定して、Microsoft Access xx.0 Object Library

Sub AccessOpen()
Dim appAcc As Access.Application
Dim myPath As String
Set appAcc = New Access.Application
myPath = "C:\" 　'要設定
With appAcc
　.OpenCurrentDatabase myPath & "test1.mdb", False
　'処理
　.Quit
End With
Set appAcc = Nothing
End Sub

ただ、単独で、mdbファイルを開けるのでしたら、Excelから、MsQuery でも開けられるはずです。また、通常は、ADOで、mdb ファイルを開けますね。

No.1 回答者： GreatDragon 回答日時： 2005/06/01 14:50

バージョンにもよりますが、「参照設定」しないと起動しない可能性があります。

ExcelのVBEで「ツール」→「参照設定」をクリックし、一覧から「Microsoft Access xx.0 Object Library」にチェックを付けて実行してください。

蛇足ですが、コードサンプルをアップしておきます。

Sub Macro1()
'
' Macro1 Macro
' マクロ作成日 : 2005/6/1 ユーザー名 : GreatDragon
'
Dim acObj As Object
Set acObj = GetObject("db1.mdb")
acObj.Visible = True
acObj.docmd.openform "フォーム1"
'
End Sub

この回答へのお礼

GreatDragonさん
ありがとうございます

お礼日時：2005/06/01 16:02