Ошибка Active X с Excel 2016 и поздняя привязка

Question

У меня есть Microsoft Office 365 Business, установленный на моем ПК, и я пытаюсь запустить Access VBA для создания объекта Excel. Это мой Access VBA синтаксис Я использую

Dim xl As Object, wb As Object, ws As Object, ch As Object 

Set xl = CreateObject("Excel.Application") 

Однако она попадает в CreateObject линии и бросает изображение ниже, но ТОЛЬКО на моем компьютере работает Office 365 Business. Если я запустил такой же синтаксис на компьютере, на котором работает Office 2010, он выполняется точно так, как должен, и создает ошибку объекта Excel без ошибок.

Что я должен изменить, чтобы иметь возможность запускать этот синтаксис с помощью Microsoft Office 365 Business?

EDIT
Это единственный ключ реестра, который я вижу - это близко, но не совсем то, что было сказано в комментариях.

Answer 1

Одним из вариантов было бы проверить, если CLSID существует, прежде чем пытаться вызвать CreateObject. Вы можете использовать функцию OLE32.dll CLSIDFromString, чтобы проверить его (это также используется VBA для внутренних CreateObject и GetObject вызовов):

'Note, this is the 32bit call - use PtrSafe for 64bit Office. 
Private Declare Function CLSIDFromString Lib "ole32.dll" _ 
    (ByVal lpsz As LongPtr, ByRef pclsid As LongPtr) As Long 

Вы можете обернуть его в простой «существует» тест что-то вроде этого:

Private Function ClassIdExists(clsid As String) As Boolean 
    Dim ptr As LongPtr 
    Dim ret As Long 
    ret = CLSIDFromString(StrPtr(clsid), ptr) 
    If ret = 0 Then ClassIdExists = True 
End Function 

Это позволяет проверять классы , прежде чем вы пытаетесь создать их (и избежать с помощью обработчика ошибок, чтобы поймать плохих CLSID):

Dim xl As Object 
If ClassIdExists("Excel.Application") Then 
    Set xl = CreateObject("Excel.Application") 
ElseIf ClassIdExists("Excel.Application.16") Then 
    Set xl = CreateObject("Excel.Application.16") 
Else 
    MsgBox "Can't locate Excel class." 
End If