Невозможно получить доступ к свойству Application.ComAddIns в Excel, если не установлены надстройки - PullRequest
Новая
       20

Невозможно получить доступ к свойству Application.ComAddIns в Excel, если не установлены надстройки

2 голосов
/ 05 мая 2009

Этот код, отсекаемый для хоста сценариев Windows, отображает количество COM-надстроек, установленных в настоящее время в Excel.

Работает нормально, за исключением случаев, когда не установлены COM-надстройки. Я считаю, что он должен вывести «0», но вместо этого возникает исключение (код 800A03EC). Кто-нибудь знает почему? 

test.vbs

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

1 Ответ

3 голосов
/ 05 мая 2009

Похоже, ошибка в 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
...