参考打开Access数据库

我试图从Excel VBA中引用一个开放的Access文件。我只是无法设置它。

Dim Ac As Access.Application Set Ac = ??? Ac.DoCmd.OpenForm "Blah"

我把什么放在地方??? 引用打开的数据库？

像Timbuild议的那样使用GetObject(pathname, class) 。

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

如果您有多个Access会话打开，请使用您要引用的数据库文件的完整path…

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

您可以使用后期绑定而不是Dim Ac As Access.Application并避免需要设置对Accesstypes库的引用。用后期绑定你可以像这样声明variables， GetObject仍然会合作…

 Dim Ac As Object