点击此处---> 群内免费提供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 结束子copy-vba-script-2.jpg (25.4 kB)
您好 Reuryky Barbosa da Silva
我不懂葡萄牙语,但是在我看来, 您在代码中的某个地方有错误的ID。
如果我不知所措,那么我将使代码尽可能地简单,并使用当前的硬编码值,看看它是否有效。 当它启用时,我将添加一些逻辑,使其更复杂,但一次仅添加一件事。 执行并查找错误。 当错误显示时,我知道我的最新更改是原因。
请注意,Mateusz
"如何使其工作"不是一个有效的问题,如果您 不要提供任何其他信息。
首先,请选择期望的单元格。
Ctrl + Y进行复制
Ctrl + V进行粘贴
如果我不得不猜测x = 0到1041,并且gui不知道是否存在未分页的字段,则可能需要添加 可见行用完后的向下翻页事件。
一周热门 更多>