用于在SAP GUI中选择特定值然后替换为新值的VBA代码

Sub ReplaceValuesInSAPGUI()
    Dim session As Object
    Set session = SapGuiGetScriptingEngine.SapGuiGetSession(0)
    
    ' 连接到SAP系统
    session.findById("wnd[0]").resizeWorkingPane 117, 31, False
    session.findById("wnd[0]/usr/txtRSYST-BNAME").text = "用户名"
    session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = "密码"
    session.findById("wnd[0]").sendVKey 0
    
    ' 进入特定的SAP事务码
    session.findById("wnd[0]").sendVKey 12
    session.findById("wnd[1]/usr/ctxtP_AUFNR").text = "特定值"
    session.findById("wnd[1]").sendVKey 0
    
    ' 选择特定值并替换为新值
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell 2, "FIELDNAME"
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectedRows = "2"
    session.findById("wnd[0]/tbar[1]/btn[8]").press
    session.findById("wnd[1]/usr/ctxtSVALD-LOW").text = "特定值"
    session.findById("wnd[1]/usr/ctxtSVALD-HIGH").text = "新值"
    session.findById("wnd[1]/usr/ctxtSVALD-LOW").caretPosition = 0
    session.findById("wnd[1]").sendVKey 0
    
    ' 保存更改并关闭SAP GUI
    session.findById("wnd[0]/tbar[0]/btn[11]").press
    session.findById("wnd[0]/tbar[0]/btn[3]").press
End Sub