VBA调用SAP READ_TEXT函数模块时遇Unicode运行时错误

问题背景 #

在VBA中实现了READ_TEXT函数调用SAP同名函数模块，测试时出现运行时错误：

Run-time error '1001': SAP Remote Function Call Unicode

SAP登录流程正常，尝试用StrConv(..., vbUnicode)处理参数后问题仍未解决，以下是具体的排查方向：

排查方向 #

1. 确认SAP系统与VBA控件的Unicode兼容性

• 通过SAP事务码SICK查看目标SAP系统是否为Unicode系统。
• 如果SAP是Unicode系统，必须使用Unicode版本的SAP OCX控件（saplogon.ocx、sapfunctions.ocx），非Unicode控件无法与Unicode SAP服务器正常通信，可通过SAP GUI安装程序重新安装Unicode版控件。

2. 严格匹配SAP函数模块的参数长度与格式

• 检查输入参数的长度是否完全符合SAP函数模块的定义：
  • 比如CLIENT参数在SAP中是CHAR3类型，需传入3位字符（如"001"而非"1"）；
  • TDNAME（对应FM的NAME参数）需匹配OBJECT参数指定对象的字段长度（比如MVKE对应的NAME是物料编码+销售组织+分销渠道，总长度为18位），长度不足时用空格补全，超出时截断，确保与SAP域定义一致。
• 参数长度不匹配可能导致Unicode编码转换时触发错误。

3. 验证函数模块的远程调用权限

• 登录SAP系统，通过事务码SE37打开READ_TEXT函数模块，查看其属性中的Remote-Enabled Module是否勾选。若未勾选，需联系SAP管理员启用远程调用权限，否则可能触发非常规错误。

4. 检查SAP OCX控件版本与系统兼容性

• 确保本地安装的SAP GUI版本与目标SAP服务器版本兼容，且OCX控件为最新版本。老旧控件可能存在Unicode处理的BUG，可通过SAP GUI升级程序更新控件。

5. 调整连接资源的释放时机

• 当前代码在READ_TEXT函数末尾调用了sapConn.RemoveAll，会立即释放所有函数对象，可能导致Unicode数据还未完成处理就被销毁。建议将资源释放逻辑移到调用方（如tester_READ_TEXT子过程末尾），或者不在函数内释放连接资源，由调用方统一管理连接生命周期。

6. 确认参数类型的精确匹配

• 检查所有输入参数的类型是否与SAP FM定义一致：
  • 比如ARCHIVE_HANDLE在SAP中是INT4类型，VBA中传入数值0需确保是整数类型，而非字符串；
  • 字符串参数需确保没有隐藏的不可见字符（如换行、制表符），避免Unicode转换时触发异常。

内容的提问来源于stack exchange，提问作者Havard Kleven