64位Excel Office 2010:自动化错误%1不是有效的Win32应用程序。

此函数适用于Microsoft Office 32位。但在传输到64位时，出现错误“自动化错误%1不是有效的Win32应用程序”

---

您正在硬编码错误消息-当您到达错误处理程序时，Err.Description的实际内容是什么？这是实际错误，我只是这样说，以查看错误将返回什么。您可以解释一下，当传输到64位时？您是否已将XLSM文件复制到其他64位计算机上？还是升级了现有的Office/OS？我现在使用的是64位操作系统。我首先在这里安装了我的32位MS Office，它工作正常。然后我卸载了它并将其替换为64位的MS Office，并弹出此错误“自动化错误%1不是有效的Win32应用程序”。很抱歉，我认为我无法提供进一步帮助，但我可以建议您将错误处理程序更改为

MsgBox Err.Description

或将其全部删除以避免混淆。

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