参考开放存取数据库

Question

我正在尝试从Excel引用一个开放的访问文件。我只是很难把它设置好。

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"

如果已打开多个访问会话，请使用要引用的db文件的完整路径.

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

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

Dim Ac As Object