vba - 如何在 Word 宏中从 VBA 打开访问数据库

Question

一切都在标题中解释。

我需要能够在 word 中运行打开访问数据库的宏。

标签： vbams-accessms-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