excel - 创建新 Excel.Application 时出现运行时错误 "Element not found"

Question

我有一个宏，可以从 Solidworks 打开 Excel 以从表格中提取零件信息。最近，当它遇到“set xlApp = New Excel.Application”行时出现此错误
错误是
运行时错误“-2147023728 (80070490)”:找不到元素。
我没有任何缺少的库，我使用 excel.exe 作为引用。 (第 16 版)
如果我尝试从 Outlook 而不是 Solidworks 运行这个简化的代码，我会得到同样的错误。

Dim xlApp As Object

Sub main()
    Set xlApp = New Excel.Application
End Sub

我尝试过的其他代码变体:

Dim xlApp As Excel.Application

Sub main()
    Set xlApp = GetObject(, "Excel.Application")
End Sub

结果:运行时错误“429”:ActiveX 组件无法创建对象。
如果将其更改为:

Set xlApp = new Excel.Application

就像我在前面的例子中一样，然后我得到 Element not found 错误。因此，后期绑定(bind)与早期绑定(bind)没有任何效果。
这一切都在使用已经运行的 excel 进行测试。 Excel 中的 VBA 代码可以正常工作，除非我使用该特定行。我可以在 Excel 中使用“Application.ActiveWorkbook”而不会出错，也无需定义应用程序(因为它已经是 Excel)。
我已删除并重新安装 Office 无济于事。研究并没有让我找到类似的其他解决方案来尝试。
提前致谢。
-泰勒

Answer 1

我在我支持的一些机器上遇到了这个问题。这是我的解决方案，后期绑定(bind)是我的答案。

Dim xlApp As Object

Sub main()
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Application.Visible = True
    'This line would create a blank workbook, but you could open an existing one here
    'xlApp.Workbooks.Add
End Sub

从那里您可以打开您需要的工作簿并照常继续。