VBA连接SAP调用Session.findById触发运行时错误424：需要对象

核心问题是VBA变量作用域冲突：

1. 你在模块顶部声明了全局变量Global Session，本意是让所有过程都能访问到SAP连接的Session对象，但在SAP_Login过程内部又重新写了Dim Session，这会生成一个仅在SAP_Login过程内生效的同名局部变量，直接遮蔽了全局的Session变量。
2. SAP_Login过程中所有给Session赋值的操作，都是在给这个局部变量赋值，全局Session从头到尾都是空值（Nothing）。等SAP_Login执行完毕，局部变量会被VBA自动释放销毁，你在按钮点击事件里调用的全局Session本质是个空对象，执行findById方法时自然会抛出「运行时错误424：需要对象」。
3. 次要诱因：SAP事务跳转存在加载延迟，输入事务码回车后立刻执行控件操作，若界面还未渲染完成，也会出现找不到控件的同类错误。

按以下步骤调整即可：

• 第一步：删除SAP_Login过程内部变量声明区的Dim Session行，仅保留模块顶部的全局Global Session声明，确保过程内所有对Session的赋值操作，都是给全局可访问的Session对象赋值。
• 第二步：在SAP_Login的事务跳转逻辑后增加短等待，给SAP留足界面加载时间，避免控件未渲染完成就执行操作。
• 第三步（可选兜底）：在执行SAP操作前增加Session有效性判断，连接失败时直接给出提示，避免无意义的报错。

SAP连接模块修正 #

' 模块顶部全局声明保留
Global Session

Sub SAP_Login(ByVal Transacao As String)

Dim SapGui
Dim Applic
Dim Connection
' 此处删除原有的 Dim Session 声明
Dim WshShell
Dim mensagem As String

On Error GoTo DESLOGADO
Set Session = GetObject("SAPGUI").GetScriptingEngine.Children(0).Children(0)
    
GoTo LOGADO

DESLOGADO:
' 启动SAP逻辑保持不变
Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", vbNormalFocus
Set WshShell = CreateObject("WScript.Shell")
Do Until WshShell.AppActivate("SAP Logon ")
    Application.Wait Now + TimeValue("0:00:01")
Loop
Set WshShell = Nothing
Set SapGui = GetObject("SAPGUI")
Set Applic = SapGui.GetScriptingEngine
Set Connection = Applic.OpenConnection("NEA Dow Prod - ERP Central Component (ECC) (SSO) (001)", True)
Set Session = Connection.Children(0)
Session.findById("wnd[0]").maximize
Session.findById("wnd[0]").sendVKey 0

LOGADO:
With Session
    .findById("wnd[0]/tbar[0]/okcd").Text = "/o"
    .findById("wnd[0]").sendVKey 0
    .findById("wnd[0]/tbar[0]/okcd").Text = "/n"
    .findById("wnd[0]").sendVKey 0
    .findById("wnd[0]/tbar[0]/okcd").Text = Transacao
    .findById("wnd[0]").sendVKey 0
    
    mensagem = .findById("wnd[0]/sbar").Text
    If mensagem <> Empty Then
        Application.StatusBar = mensagem
    End If
End With

' 新增等待逻辑，等待事务界面加载，可根据自己系统响应速度调整等待时长
Application.Wait Now + TimeValue("0:00:02")

End Sub

按钮点击事件修正（增加兜底校验） #

Private Sub EXTRAIR_Click()
    Call SAP_Login("coois")
    
    ' 新增连接有效性校验
    If Session Is Nothing Then
        MsgBox "SAP连接建立失败，请检查SAP客户端状态", vbCritical
        Exit Sub
    End If

    Session.findById("wnd[0]/mbar/menu[2]/menu[0]/menu[0]").Select
    Session.findById("wnd[1]/usr/txtENAME-LOW").Text = "nd87309"
    Session.findById("wnd[1]").sendVKey 8
    Session.findById("wnd[0]/usr/tabsTABSTRIP_SELBLOCK/tabpSEL_00/ssub%_SUBSCREEN_SELBLOCK:PPIO_ENTRY:1200/ctxtS_ECKST-LOW").Text = "07062022"
    Session.findById("wnd[0]/usr/tabsTABSTRIP_SELBLOCK/tabpSEL_00/ssub%_SUBSCREEN_SELBLOCK:PPIO_ENTRY:1200/ctxtS_ECKST-HIGH").Text = "07062022"
    Session.findById("wnd[0]").sendVKey 8
    Session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").SetCurrentCell -1, ""
    Session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").SelectAll
    Session.findById("wnd[0]/usr/cntlCUSTOM/shellcont/shell/shellcont/shell").ContextMenu
    Session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").SelectContextMenuItemByPosition "0"
    
    Range("A2").PasteSpecial
    MsgBox "Copiado com Sucesso"
End Sub

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