アドインがインストールされていない場合、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