1

This function works on Microsoft Office 32bit. But when transferring to 64bit, the error "Automation error %1 is not a valid Win32 application" occured.

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