在SAP表中从Excel搜索值

2020-09-25 06:51发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


当前,我正在创建一个SAP脚本,当找到值时,它将在SAP中自动注释。

基本上,我有一个Excel项目,其中包含项目列表。

在AK列(分配),V列(文档编号)和AM列(数量)中,这些是我需要在SAP表中搜索的列。

这是excel:

SAP表:

因此,我想基于AK,V和AM列搜索表格,然后它将双击该行项目并编辑文本。

因为这是我第一次处理SAP脚本,所以我不确定该如何进行。

到目前为止,这是我的代码:
'***********启动Tcode以访问*****************
会话 .FindById(" wnd [0]")。Maximize
session.FindById(" wnd [0]/tbar [0]/okcd")。Text =" fbl3n"
session.FindById(" wnd [0 ]")。SendVKey 0

'*********** End启动Tcode进行访问*****************
< br>'*******选择布局***************
session.FindById(" wnd [0]/usr/ctxtPA_VARI")。Text = RangeLayout。 值
session.FindById(" wnd [0]/usr/ctxtPA_VARI")。CaretPosition = 11
'******* End选择布局************ < br>
'***** GL帐户*******************
RngGL.Copy

session.FindById(" wnd [0]/usr/btn%_SD_SAKNR _%_ APP _%-VALU_PUSH")。按
session.FindById(" wnd [1]/tbar [0]/btn [24]")。按
session.FindById (" wnd [0]/usr/btn%_SD_SAKNR _%_ APP _%-VALU_PUSH")。按
session.FindById(" wnd [1]/tbar [0]/btn [8]")。按

Application.CutCopyMode =假

session.FindById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。Text = RangeCompanyCode.Value
session.FindById(" wnd [0]/tbar [1]/btn [8]")。按

' **********最终总帐帐户************

'表名RFPOSXEXT
'FI Doc列22
'assignment列37
'数量列39

excel.jpg (199.3 kB)

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


当前,我正在创建一个SAP脚本,当找到值时,它将在SAP中自动注释。

基本上,我有一个Excel项目,其中包含项目列表。

在AK列(分配),V列(文档编号)和AM列(数量)中,这些是我需要在SAP表中搜索的列。

这是excel:

SAP表:

因此,我想基于AK,V和AM列搜索表格,然后它将双击该行项目并编辑文本。

因为这是我第一次处理SAP脚本,所以我不确定该如何进行。

到目前为止,这是我的代码:
'***********启动Tcode以访问*****************
会话 .FindById(" wnd [0]")。Maximize
session.FindById(" wnd [0]/tbar [0]/okcd")。Text =" fbl3n"
session.FindById(" wnd [0 ]")。SendVKey 0

'*********** End启动Tcode进行访问*****************
< br>'*******选择布局***************
session.FindById(" wnd [0]/usr/ctxtPA_VARI")。Text = RangeLayout。 值
session.FindById(" wnd [0]/usr/ctxtPA_VARI")。CaretPosition = 11
'******* End选择布局************ < br>
'***** GL帐户*******************
RngGL.Copy

session.FindById(" wnd [0]/usr/btn%_SD_SAKNR _%_ APP _%-VALU_PUSH")。按
session.FindById(" wnd [1]/tbar [0]/btn [24]")。按
session.FindById (" wnd [0]/usr/btn%_SD_SAKNR _%_ APP _%-VALU_PUSH")。按
session.FindById(" wnd [1]/tbar [0]/btn [8]")。按

Application.CutCopyMode =假

session.FindById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。Text = RangeCompanyCode.Value
session.FindById(" wnd [0]/tbar [1]/btn [8]")。按

' **********最终总帐帐户************

'表名RFPOSXEXT
'FI Doc列22
'assignment列37
'数量列39

excel.jpg (199.3 kB)
付费偷看设置
发送
1条回答
奄奄一息的小鱼
1楼-- · 2020-09-25 07:04

Hello Repsev,

欢迎使用SAP社区。

考虑到您第一次接触SAP GUI脚本,我认为这是一个非常复杂的问题。

我的建议:您应该按数组读取整个表格-您可以在此处找到示例,但是 作为CSV文件将内容存储在数组中。 因此,您可以通过比较单元格来定位线。 然后,您获得了行号,就可以触发所需的事件。

最好的问候
Stefan

一周热门 更多>