ms-access - 在 VBA 中，不能使用 Access.Application 对象

Question

这不起作用:

Sub X()
    Dim A As Access.Application
    Set A = CreateObject("Access.Application")
    'Do Stuff
End Sub

但是，这确实有效:

Sub X()
    Dim A As Object
    Set A = CreateObject("Access.Application")
    'Do Stuff
End Sub

我知道他们实际上做同样的事情，但谁能告诉我如何制作 access.application 对象？我应该补充一点，我有 Crystal Reports 11，在我上次升级时，它可能已经“取消注册”了一些 VBA DLL。

(更新2009-06-29)

在回答前两个问题时，我正在使用 MS Access VBA 来控制其他一些 Access 和 Excel 文件。因为这只会在我的本地机器上运行，所以我可以保证 Access 将始终被安装。我还引用了“Microsoft Access 11.0 对象库”(MSACC.OLB)。

我知道有办法解决这个问题，即在编码时使用早期绑定(bind)，并在运行时切换到后期绑定(bind)，我只是不明白为什么早期绑定(bind)方法在我的机器上根本不起作用(当然，该代码在另一台具有 Access 的机器上运行良好。

Answer 1

如果您在 Access 中编写此代码，则无需这样做，因为 Application 对象已经为您准备好了。如果您在 Excel 或 Word 中编写此文件，则需要添加对 Access Library 的引用。转到工具/引用并查找 Microsoft Access XX 对象库