excel - 如果没有安装 AddIns，则无法访问 Excel 的 Application.ComAddIns 属性

Question

为 Windows 脚本宿主截取的这段代码显示了当前安装到 Excel 中的 COM-AddIn 的数量。

除非没有安装 COM-AddIn，否则它工作正常。我相信它应该输出“0”，但它却引发了异常(代码 800A03EC)。有谁知道为什么吗？

test.vbs

Set objExcel = CreateObject("Excel.Application")
WScript.Echo objExcel.ComAddIns.Count

Answer 1

看起来像是 Excel 中的错误。您可能必须滥用 VB 的错误处理来解决这个问题。

On Error Resume Next
WScript.Echo objExcel.ComAddIns.Count
If Err And Err.Number = 1004 Then
    WScript.Echo "No add-ins"
End If
On Error GoTo 0