sap从登录到查询代码注释

 Dim SapGuiAuto As Object
 Dim session As Object
 Dim Application As Object
 Dim Connection As Object

 SapGuiAuto  = GetObject("SAPGUI")
 Application = SapGuiAuto.GetScriptingEngine
 Connection = Application.Children(0)
 session    = Connection.Children(0)

session.findById("wnd[0]").resizeWorkingPane (119, 18, 0)
'一级用户名、密码
session.findById("wnd[0]/usr/txtRSYST-BNAME").text = username
session.findById("wnd[0]/usr/pwdRSYST-BCODE").text = password

session.findById("wnd[0]/usr/pwdRSYST-BCODE").setFocus
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 4
session.findById("wnd[0]/tbar[0]/btn[0]").press

' 选中间正常登录选项
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT2").select
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT2").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press

' 输入二级用户名和密码登录
session.findById("wnd[1]/usr/txtGS_OUT-ID").text = username2
session.findById("wnd[1]/usr/pwdGS_OUT-PW").text = password2
session.findById("wnd[1]/usr/pwdGS_OUT-PW").setFocus
session.findById("wnd[1]/usr/pwdGS_OUT-PW").caretPosition = 10
session.findById("wnd[1]/usr/btnLOGIN").press

' 输入t-code查询
session.findById("wnd[0]/tbar[0]/okcd").text = t_code
session.findById("wnd[0]/tbar[0]/btn[0]").press

'输入查询所需选项
' No demand but has stock lines
session.findById("wnd[0]/usr/chkP_NOZER1").selected = 0
' No demand but has po lines
session.findById("wnd[0]/usr/chkP_NOZER2").selected = 0
' msd2
session.findById("wnd[0]/usr/chkP_MSD2").selected = -1
'plant
session.findById("wnd[0]/usr/ctxtP_WERKS-LOW").text = "EPDV"
'area
session.findById("wnd[0]/usr/ctxtP_BERID").text = "EPDV-H"
'vendor
session.findById("wnd[0]/usr/ctxtP_VENDOR-LOW").text = "VUS0010162"
'week
session.findById("wnd[0]/usr/txtP_WEEK").text = "30"
session.findById("wnd[0]/usr/ctxtP_VENDOR-LOW").setFocus
session.findById("wnd[0]/usr/ctxtP_VENDOR-LOW").caretPosition = 10
session.findById("wnd[0]/tbar[1]/btn[8]").press

' 导出xls
session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").select
session.findById("wnd[1]/usr/sub:SAPLSPO5:0101/radSPOPLI-SELFLAG[1,0]").select
session.findById("wnd[1]/usr/sub:SAPLSPO5:0101/radSPOPLI-SELFLAG[1,0]").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
'导出文档的名字
session.findById("wnd[1]/usr/ctxtRLGRAP-FILENAME").text = "C:\Users\H7113492\Documents\SAP\SAP GUI\111.xls"
session.findById("wnd[1]/usr/ctxtRLGRAP-FILENAME").caretPosition = 47
session.findById("wnd[1]/tbar[0]/btn[0]").press