1

この機能は、MicrosoftOffice32ビットで動作します。しかし、64ビットに転送すると、「自動化エラー%1は有効なWin32アプリケーションではありません」というエラーが発生しました。

Private Function CreateUsingManifest(nameOfClass As String) As Object
    Dim actCtx As Object

    Set actCtx = CreateObject("Microsoft.Windows.ActCtx")


    On Error GoTo InvalidManifest
    Set CreateUsingManifest = actCtx.CreateObject(nameOfClass) 'Error here

    Set actCtx = Nothing
    On Error GoTo 0
    Exit Function

InvalidManifest:
    Err.Raise  "Automation error %1 is not a valid Win32 application."
End Function
4

0 に答える 0