“运行时错误‘-2147023179 (800706b5)”自动化错误接口未知

Question

我最近在工作时升级了我的电脑和操作系统。我从 Windows XP 升级到 Windows 7。
我的问题是我建立了几个 Access 2007 数据库，它们调用 Excel 文件并打开它们。现在自从升级以来，无论出于何种原因，它们都没有任何功能。我收到以下错误消息：

“运行时错误‘-2147023179 (800706b5)”： 自动化错误 接口未知。

这是我正在运行的代码示例：

Private Sub cmdOpenXL_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Set xlApp = New Excel.Application
With xlApp
    .Visible = True
    Set xlWB = .Workbooks.Open("P:\unitvalu\morningstar\database\output\Nationwide.xlsx", , False)
End With
End Sub

我已搜索此错误消息，但找不到似乎适合我的解决方案。

Answer 1

您的 Access 项目包含对 Excel 类型库的引用，但该引用已被系统升级破坏。

打开 VB 编辑器，然后从其主菜单中选择“工具”->“参考”。我怀疑您会看到“Microsoft Excel 对象库”参考报告的“缺失”。如果是这样，请取消选中该参考，在下拉列表中找到提供的有效参考并在该参考旁边放置一个复选标记。

单击“确定”，然后从 VB 编辑器的主菜单中选择“调试”->“编译”。如果项目编译没有错误，你就完成了。如果没有，您将不得不修复编译器抱怨的任何问题。

或者，您可以使用后期绑定，这样可以避免设置 Excel 引用。

Private Sub cmdOpenXL_Click()
Dim xlApp As Object ' Excel.Application
Dim xlWB As Object ' Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
With xlApp
    .Visible = True
    Set xlWB = .Workbooks.Open("P:\unitvalu\morningstar\database\output\Nationwide.xlsx", , False)
End With
End Sub