VBA运行时错误-2147221164(80040154)排查：64位Excel能否运行32位VBA宏及实现方法

首先直接给结论：64位Excel完全支持运行大部分32位VBA宏，但你的问题出在32位COM控件与64位Office环境的兼容性上，而非宏本身的位数限制。下面针对你的报错和场景给出具体解决步骤：

错误根源分析 #

你遇到的Run Time Error -2147221164(80040154)（类未注册），本质是SAP.LogonControl.1这个COM控件是32位版本的，而64位Office默认无法加载32位COM对象——因为两者的进程位数不匹配，64位Office进程无法调用32位的控件实例。

具体解决方法 #

方案1：安装64位版本的SAP GUI（优先推荐） #

这是最彻底的解决方式：

• 卸载电脑2上的32位SAP GUI
• 下载并安装同版本的64位SAP GUI（确保包含Logon Control组件）
• 安装完成后，重新运行你的宏，此时CreateObject("SAP.LogonControl.1")会调用64位的控件，位数匹配后就能正常注册和使用。

方案2：修改代码适配64位环境（若无法更换SAP GUI） #

如果因为权限或其他原因无法安装64位SAP GUI，可以尝试以下调整：

1. 检查SAP GUI Scripting API引用：
   在VBA编辑器中，依次点击工具->引用，确保勾选的是64位版本的SAP GUI Scripting API（如果存在），而非32位版本。
2. 替换控件调用方式：
   放弃使用SAP.LogonControl.1，改用SAP GUI Scripting的原生连接方式，示例代码如下：

   Function SAPLogon() As Boolean
       Dim SapGuiAuto As Object
       Dim Application As Object
       Dim Connection As Object
       
       Set SapGuiAuto = GetObject("SAPGUI")
       Set Application = SapGuiAuto.GetScriptingEngine
       Set Connection = Application.OpenConnection("你的SAP系统名称", True) ' 替换为你的实际系统名称
       Connection.Language = "S"
       SAPLogon = True
   End Function
   

   这种方式不需要依赖Logon Control，直接通过SAP GUI的Scripting引擎连接，兼容性更好。

方案3：手动注册64位SAP Logon Control #

如果已经安装了64位SAP GUI但控件仍未注册，可以手动注册：

1. 以管理员身份打开命令提示符
2. 执行以下命令（路径根据你的SAP GUI安装位置调整）：

   regsvr32.exe "C:\Program Files\SAP\FrontEnd\SAPgui\saplogonctrl.ocx"
   

   注意：64位系统下，regsvr32.exe默认在C:\Windows\System32目录，对应64位控件注册；如果是32位控件则用C:\Windows\SysWOW64\regsvr32.exe，但这里我们需要的是64位控件的注册。

额外注意事项 #

• 虽然64位Excel支持32位宏，但涉及到Windows API声明的代码需要添加PtrSafe关键字（比如调用系统级API时），不过你的代码里没有这类情况，所以无需调整。
• 尽量保持两台电脑的SAP GUI版本一致，避免因版本差异导致的兼容性问题。

内容的提问来源于stack exchange，提问作者David Donayo