VBA调用SAP脚本无法获取打开会话 报运行时错误614问题咨询

oApp.Children.Count = 1但oConn.Children.Count = 0的报错与SAP客户端界面语言无关，核心触发原因按出现概率排序如下：

• 本地SAP GUI脚本权限配置不全：多数人仅开启了服务端RZ11参数sapgui/user_scripting = TRUE、Excel宏权限，但漏改本地SAP GUI的脚本拦截设置，导致连接对象可被枚举，但会话子对象被权限拦截无法访问。
• 进程位数不匹配：32位SAP GUI搭配64位Office，或64位SAP GUI搭配32位Office时，COM接口跨架构调用会出现枚举截断，仅能返回顶层连接对象，无法读取下层会话。
• 时序/弹窗拦截：代码执行时SAP仍处于登录加载阶段，或前台存在登录公告、密码过期提示、许可证提醒等模态弹窗，会话对象未完成初始化，无法被枚举。
• 绑定方式不兼容：使用早期绑定强类型引用SAPFEWSELib类库时，若本地SAP GUI版本与引用库版本不一致，会出现接口调用异常，导致会话枚举失败。

按优先级逐一排查验证：

1. 修正本地SAP GUI脚本配置
   点击SAP GUI右上角的「定制本地布局」（小显示器图标）→ 选项 → 脚本录制和回放 → 脚本设置栏：
   • 勾选「启用脚本」
   • 取消勾选「当脚本附加到SAP GUI时通知」「当脚本打开连接时通知」两个拦截选项
   • 保存配置后完全退出SAP GUI和Excel，重新启动两个程序再测试
2. 校验进程位数一致性
   打开Excel「文件-账户-关于Excel」查看Office位数，打开SAP GUI登录页「关于」选项查看客户端位数，两者必须完全一致，不匹配则重装对应位数的SAP GUI安装包。
3. 替换为晚绑定+会话等待逻辑
   放弃早期绑定的强类型定义，改用晚绑定规避类库版本兼容问题，同时增加轮询等待逻辑，给会话初始化留足时间，不要拿到连接后立刻读取子对象。
4. 遍历取有效会话
   不要硬编码Children(0)取会话，遍历连接下所有子对象，跳过未初始化的临时页、弹窗对象，取可用的业务会话。

修正后的可直接运行代码如下：

Sub MVE()
    Dim oSapGui As Object
    Dim oApp As Object
    Dim oConn As Object
    Dim oSession As Object
    Dim i As Integer, waitCount As Integer
    
    ' 晚绑定创建SAP对象，规避类库版本兼容问题
    Set oSapGui = GetObject("SAPGUI")
    Set oApp = oSapGui.GetScriptingEngine
    
    Debug.Print "当前活动SAP连接数：" & oApp.Children.Count
    If oApp.Children.Count = 0 Then
        MsgBox "未检测到已登录的SAP连接，请先登录SAP系统"
        Exit Sub
    End If
    
    Set oConn = oApp.Children(0)
    ' 轮询等待会话加载，最长等待10秒
    waitCount = 0
    Do While oConn.Children.Count = 0 And waitCount < 10
        Application.Wait Now + TimeValue("0:00:01")
        waitCount = waitCount + 1
        DoEvents
    Loop
    
    Debug.Print "当前连接下活动会话数：" & oConn.Children.Count
    If oConn.Children.Count = 0 Then
        MsgBox "无法获取SAP会话，请检查：1.SAP无未关闭的模态弹窗 2.SAP GUI脚本权限配置正确 3.Office与SAP GUI位数一致"
        Exit Sub
    End If
    
    ' 遍历取第一个有效业务会话
    For i = 0 To oConn.Children.Count - 1
        ' 跳过未加载完成的临时会话，取已进入SAP操作页的会话
        If oConn.Children(i).Info.Transaction <> "" Then
            Set oSession = oConn.Children(i)
            Exit For
        End If
    Next i
    
    ' 后续业务逻辑可在此处编写，示例：打开SE38事务码
    If Not oSession Is Nothing Then
        oSession.findById("wnd[0]/tbar[0]/okcd").Text = "/nSE38"
        oSession.findById("wnd[0]").sendVKey 0
    End If
End Sub

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