2

Windows Scripting Host 用に切り取られたこのコードは、現在 Excel にインストールされている COM-アドインの数を表示します。

COM-アドインがインストールされていない場合を除いて、正常に動作します。「0」を出力するはずですが、代わりに例外が発生します（コード800A03EC）。誰かが理由を知っていますか？

test.vbs

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

1 に答える 1

3

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
于 2009-05-05T18:08:32.490 に答える