如何在单次代码执行中用一个SAP会话运行多个模块/子程序？

1. 核心问题分析 #

你的现有连接函数存在两个关键缺陷：

• 连接相关变量（SAPGuiApp、Connection、SAP_session）是局部变量，子程序无法共享，导致每个模块仍会重新创建连接
• 函数内变量名不一致（如Session与SAP_session混用、SapApplication未定义），导致连接逻辑未正确生效

2. 修正全局连接函数 #

先将SAP连接相关变量声明为全局变量，确保所有子程序都能复用同一个会话。修正后的代码如下：

' 全局变量声明：放在所有函数/子程序的最顶部
Dim SapGuiAuto As Object
Dim SAPGuiApp As Object
Dim Connection As Object
Dim SAP_session As Object

Function SAP_Connection() As Boolean
    On Error GoTo ErrorHandler
    
    ' 检查并获取SAP GUI应用对象（仅首次执行时创建）
    If Not IsObject(SAPGuiApp) Then
        Set SapGuiAuto = GetObject("SAPGUI")
        Set SAPGuiApp = SapGuiAuto.GetScriptingEngine
    End If
    
    ' 检查并获取连接对象
    If Not IsObject(Connection) Then
        Set Connection = SAPGuiApp.Children(0)
        If Connection.IsConnected = False Then
            MsgBox "SAP连接已断开，请重新登录SAP GUI", vbCritical
            SAP_Connection = False
            Exit Function
        End If
    End If
    
    ' 检查并获取活跃会话
    If Not IsObject(SAP_session) Then
        Set SAP_session = Connection.Children(0)
        If SAP_session.Info.IsActive = False Then
            MsgBox "SAP会话未激活，请检查SAP GUI窗口", vbCritical
            SAP_Connection = False
            Exit Function
        End If
    End If
    
    ' 绑定脚本事件（仅需执行一次）
    If IsObject(WScript) Then
        WScript.ConnectObject SAP_session, "on"
        WScript.ConnectObject SAPGuiApp, "on"
    End If
    
    SAP_Connection = True
    Exit Function
    
ErrorHandler:
    MsgBox "SAP连接失败：" & Err.Description, vbCritical
    SAP_Connection = False
End Function

3. 修改子程序，复用全局会话 #

移除原有子程序内部的连接创建代码，直接使用全局的SAP_session对象。

原子程序示例（需修改） #

Sub Module1()
    ' 原内部连接代码（删除）
    Dim SapGuiAuto As Object
    Dim SAPGuiApp As Object
    Dim Connection As Object
    Dim Session As Object
    Set SapGuiAuto = GetObject("SAPGUI")
    Set SAPGuiApp = SapGuiAuto.GetScriptingEngine
    Set Connection = SAPGuiApp.Children(0)
    Set Session = Connection.Children(0)
    
    ' 业务代码
    Session.StartTransaction "VA01"
    ' ...其他操作
End Sub

修改后示例 #

Sub Module1()
    ' 先校验全局连接有效性
    If Not SAP_Connection() Then
        Exit Sub
    End If
    
    ' 直接复用全局会话执行业务逻辑
    SAP_session.StartTransaction "VA01"
    ' ...模块1的其他业务代码
End Sub

对第二个模块Module2执行同样修改，移除内部连接代码，复用SAP_session对象。

4. 整合运行主程序 #

编写主入口程序，按顺序调用两个模块，仅需一次授权：

Sub Main()
    ' 初始化全局连接（仅执行一次，触发单次授权）
    If Not SAP_Connection() Then
        Exit Sub
    End If
    
    ' 调用第一个模块
    Module1()
    
    ' 调用第二个模块（无需再次授权）
    Module2()
End Sub

5. 额外注意事项 #

• 确保SAP GUI已登录并存在活跃会话（Connection.Children(0)对应第一个会话，需多会话可调整索引）
• 首次授权时勾选「不再询问」，后续调用不会重复弹出权限窗口
• 模块切换前需确保前一个事务操作完成（如保存、退出），避免会话状态冲突

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