アドインがインストールされていない場合、ExcelのApplication.ComAddInsプロパティにアクセスできません

Question

このスクリプトはWindows Scripting Host向けに作成されたもので、現在ExcelにインストールされているCOMアドインの数を表示します。

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