如何在 Word 宏中從 VBA 打開訪問數據庫

Question

一切都在標題中說明。

我需要能夠在 word 中運行一個宏來打開一個訪問數據庫。

Answer 1

如果要打開和操作 Access 對象，請考慮：

Public Sub OpenDB()
Dim db As Access.Application
Set db = New Access.Application
db.OpenCurrentDatabase "C:\My Documents\db2.mdb"
db.Application.Visible = True 'optional
'code to manipulate Access
End Sub

如果您只想打開一個 Access 文件，然后讓用戶正常交互，以下對我有用：

'Shell function requires literal quote marks in the target filename string argument, apostrophe delimiters fail, hence the quadrupled quote marks
Shell SysCmd(acSysCmdAccessDir) & "MSAccess.exe " & """" & "C:\My Documents\dbname.accdb" & """", vbNormalFocus