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

为Windows脚本主机剪下的代码显示了当前安装到Excel中的COM-AddIns的数量。

除了没有安装COM-AddIns之外，它工作正常。 我相信它应该输出一个“0”，但是会引发一个exception（代码800A03EC）。 有谁知道为什么？

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

Answer 1

看起来像在Excel中的错误。 你可能不得不滥用VB的error handling来解决它。

 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