如何在SAP中复制值并将其粘贴到空白字段中

2020-08-18 17:39发布

         点击此处--->   EasySAP.com群内免费提供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-vb​​a-script-2.jpg (25.4 kB)

         点击此处--->   EasySAP.com群内免费提供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-vb​​a-script-2.jpg (25.4 kB)
付费偷看设置
发送
4条回答
哎,真难
1楼-- · 2020-08-18 18:25

您好 Reuryky Barbosa da Silva

我不懂葡萄牙语,但是在我看来, 您在代码中的某个地方有错误的ID。

如果我不知所措,那么我将使代码尽可能地简单,并使用当前的硬编码值,看看它是否有效。 当它启用时,我将添加一些逻辑,使其更复杂,但一次仅添加一件事。 执行并查找错误。 当错误显示时,我知道我的最新更改是原因。

请注意,

Mateusz

Alawn_Xu
2楼-- · 2020-08-18 18:08

"如何使其工作"不是一个有效的问题,如果您 不要提供任何其他信息。

南山jay
3楼-- · 2020-08-18 18:10

首先,请选择期望的单元格。

Ctrl + Y进行复制

Ctrl + V进行粘贴

代楠1984
4楼-- · 2020-08-18 18:28

如果我不得不猜测x = 0到1041,并且gui不知道是否存在未分页的字段,则可能需要添加 可见行用完后的向下翻页事件。

一周热门 更多>