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

Question

针对Windows Scripting Host剪辑的此代码显示当前安装到Excel中的COM-AddIns的数量。

除了没有安装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