Excel 2016と遅いバインディングでアクティブXエラー

Question

私はMicrosoft Office 365 Businessを私のPCにインストールしていて、Access VBAを実行してExcelオブジェクトを作成しようとしています。これは私が

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

Set xl = CreateObject("Excel.Application") 

を使用しています私のアクセスVBAの構文は、しかし、それはCreateObjectラインをヒットし、下の画像をスローしますが、はONLY私のPCにはOffice 365社のビジネスを実行しています。 Office 2010を実行しているコンピュータでこの同じ構文を実行すると、それは正確に実行され、Excelオブジェクトエラーが発生しなくなります。

Microsoft Office 365 Businessでこの構文を実行するには、私は何を変更する必要がありますか？それは近いですが、ない正確なコメントで述べたもの -

EDIT
これは私が見る唯一のレジストリキーです。

Answer 1

1つのオプションは、CLSIDがCreateObjectを呼び出そうとする前に存在しているかどうかを確認することです。あなたは（これはCreateObjectとGetObject呼び出しのために内部的にVBAでも使用されている）、それをテストするためにOLE32.DLL機能CLSIDFromStringを使用することができます。

'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 

あなたはシンプルでそれをラップすることができ、このようなテスト何かを「存在」：

これは、あなたがそれらを作成しよう前のクラス をテストすることができます（と悪いのCLSIDをキャッチするエラーハンドラを使用して回避）

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 

：

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