点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

子Exe_VL01N（）
 昏暗的应用程序，SapGuiAuto，连接，会话，WScript
 昏暗x整数
 昏暗的qtd作为字符串

 如果不是IsObject（Application）然后
    设置SapGuiAuto = GetObject（" SAPGUI"）
    设置应用程序= SapGuiAuto.GetScriptingEngine
 万一
 如果不是IsObject（Connection）然后
    设置连接= Application.Children（0）
 万一
 如果不是IsObject（session）然后
    设置会话= Connection.Children（0）
 万一
 如果IsObject（WScript）然后
    WScript.ConnectObject会话，"打开"
    WScript.ConnectObject应用程序，"打开"
 万一

 对于x = 0至1041
 qtd = session.findById（" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY：SAPMV50A：1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT [3，"＆x＆"]"）。文本
 session.findById（" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY：SAPMV50A：1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT [5，"＆x＆"]"）。文本= qtd
 session.findById（" wnd [0]"）。sendVKey 0
 下一个x

 或许

 对于x = 0至1041
 session.findById（" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY：SAPMV50A：1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT [5，"＆x＆"]"）。文本= session.findById（" wnd  0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY：SAPMV50A：1104/tblSAPMV50ATC_LIPS_PICK/ctxtLIPS-LGORT [3，"＆x＆"]"）。文本
 session.findById（" wnd [0]"）。sendVKey 0
 下一个x

 结束子