Как проверить, создан ли объект activex в Excel?

Question

У меня возникли проблемы с объектом PDF, который я использовал для получения номеров страниц,

Set AcroExchApp = CreateObject("AcroExch.App")    'Acrobat Exchange
Set AcroExchPDDoc = CreateObject("AcroExch.PDDoc")

Код не работал в этой строке на некоторых машинах.

Как мне сделать это изящно неудачно?

Answer 1

Я наконец-то нашел изящный способ справиться с ошибкой, который предлагает пользователю установить необходимое приложение

On Error Resume Next
Set AcroExchApp = CreateObject("AcroExch.App")    'Acrobat Exchange
Set AcroExchPDDoc = CreateObject("AcroExch.PDDoc")
'AcroExchApp.Show ' Show the Acrobat Exchange window
On Error GoTo 0
'check if activex pdf object exists
If AcroExchApp Is Nothing Or AcroExchPDDoc Is Nothing Then
    MsgBox "Adobe Acrobat Pro Activex control not found." & _
        vbCrLf & "Please install Adobe Acrobat Pro and try again"
    Exit Sub
End If