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

Question

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

除非没有安装 COM-AddIns，否则它工作正常。 我相信它应该输出“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