参考打开Access数据库

Question

我正在尝试从Excel VBA引用打开的Access文件。我只是在设置它时遇到了麻烦。

Dim Ac As Access.Application
Set Ac = ???

Ac.DoCmd.OpenForm "Blah"

我应该用???代替开放数据库？

Answer 1

将GetObject(pathname, class)用作Tim suggested。

Set Ac = GetObject(, "Access.Application") ' no value for pathname argument
Ac.DoCmd.OpenForm "Blah"

如果您打开了多个Access会话，请使用您要引用的db文件的完整路径...

Set Ac = GetObject("C:\share\Access\Database2.accdb") ' give it pathname

您可以使用后期绑定而不是Dim Ac As Access.Application，并且无需设置对Access类型库的引用。使用后期绑定，您可以像这样声明变量，GetObject仍然会合作......

Dim Ac As Object