提问
UI SAP GUI for Windows

用于SAP脚本编制的Excel宏

2020-08-24 22:18发布

站内问答 / UI
1402 3 4

点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）专家， 我是Excel Mac...

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

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


专家，

我是Excel Macro的新手，并试图在SAP GUI中进行自动化。

我需要帮助将销售订单号复制到GSAP中。

当前，我改用Range（" D3"）并想更改为variable，所以我可以继续进行循环功能。

预先感谢

T代码VF01

这是我当前的脚本

ub GSAP_VF01（）'设置与sap的连接：昏暗的应用程序，连接，会话作为对象设置SapGuiAuto = GetObject（" SAPGUI"）设置App = SapGuiAuto.GetScriptingEngine设置连接= App.Children（0）设置会话=连接 .Children（0）

session.findById（" wnd [0]"）。resizeWorkingPane 138，23，False session.findById（" wnd [0]/tbar [0]/okcd"）。Text =" vf01" session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/usr/cmbRV60A-FKART"）。Key =" ZF5" session.findById（" wnd [0]/usr/ctxtRV60A-FKDAT"）。 文本= Range（" D3"）session.findById（" wnd [0]/usr/tblSAPMV60ATCTRL_ERF_FAKT/ctxtKOMFK-VBELN [0,0]"）。Text = Range（" C3"）session.findById（" wnd [0] "）.sendVKey 0 session.findById（" wnd [0]/usr/btnTC_OUTPUT"）。press session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,1]"）。Text =" zina" session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,2]"）。Text =" zinb" session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [ 1,2]"）。SetFocus session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,2]"）。caretPosition = 4 session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（0）.Selected = True session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（1）.S 当选= True session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（2）.Selected = True session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON [0,2]" ）.SetFocus session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON [0,2]"）。caretPosition = 0 session.findById（" wnd [0]/tbar [1]/btn [2] "）.press session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS" session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14个会话。 findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/tbar [0]/btn [3]"）。press session.findById（" wnd [0]/tbar [1]/btn [2]"）。press session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS" session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14 session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/tbar [0]/btn [3]"）。press session.findById（" wnd [0]/tbar [1]/btn [2]"）。press session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS" session.findById（" wnd [0]/usr/ctxtNAST-LDEST "）.SetFocus session.fi ndById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14 session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/tbar [0]/btn [ 3]"）。press session.findById（" wnd [0]/tbar [0]/btn [11]"）。press session.findById（" wnd [0]/tbar [0]/okcd"）。Text = "/img/nvf03" session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/mbar/menu [0]/menu [11]"）。选择session.findById（" wnd [ 1]/usr/tblSAPLVMSGTABCONTROL"）。getAbsoluteRow（0）.Selected = True session.findById（" wnd [1]/tbar [0]/btn [37]"）。press session.findById（" wnd [0]/tbar [0]/okcd"）。Text =" pdf！" session.findById（" wnd [0]"）。sendVKey 0

结束子

untitled.jpg （15.9 kB）
3条回答
暮风yp
2020-08-24 22:54 
子GSAP_VF01（）


 '使用sap设置连接：
 昏暗的应用程序，连接，会话作为对象
 设置SapGuiAuto = GetObject（" SAPGUI"）
 设置应用程序= SapGuiAuto.GetScriptingEngine
 设置连接= App.Children（0）
 设置会话= Connection.Children（0）


 '设置变量
 CreateObject（" Excel.Application"）
 设置xclsht = xclwbk.Sheets（" ApeApejelah"）
 对于i = 3到xclapp.ActiveCell.SpecialCells（3）.Row
 对于j = 3到xclapp.ActiveCell.SpecialCells（3）.Column
 如果j = 1，则salesorder = xclsht.Cells（i，j）.Value
  


 session.findById（" wnd [0]"）。resizeWorkingPane 138，23，False
 session.findById（" wnd [0]/tbar [0]/okcd"）。Text =" vf01"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/cmbRV60A-FKART"）。Key =" ZF5"
 session.findById（" wnd [0]/usr/ctxtRV60A-FKDAT"）。Text = Range（" D3"）
 session.findById（" wnd [0]/usr/tblSAPMV60ATCTRL_ERF_FAKT/ctxtKOMFK-VBELN [0,0]"）。Text = Range（" C3"）


 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/btnTC_OUTPUT"）。press
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,1]"）。Text =" zina"
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,2]"）。Text =" zinb"
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,2]"）。SetFocus
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/ctxtDNAST-KSCHL [1,2]"）。caretPosition = 4
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（0）.Selected = True
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（1）.Selected = True
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3"）。getAbsoluteRow（2）.Selected = True
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON [0,2]"）。SetFocus
 session.findById（" wnd [0]/usr/tblSAPDV70ATC_NAST3/lblDV70A-STATUSICON [0,2]"）。caretPosition = 0
 session.findById（" wnd [0]/tbar [1]/btn [2]"）。按
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS"
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [0]/btn [3]"）。按
 session.findById（" wnd [0]/tbar [1]/btn [2]"）。按
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS"
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [0]/btn [3]"）。按
 session.findById（" wnd [0]/tbar [1]/btn [2]"）。按
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。Text =" CBJ02P167_SMPS"
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。SetFocus
 session.findById（" wnd [0]/usr/ctxtNAST-LDEST"）。caretPosition = 14
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [0]/btn [3]"）。按
 session.findById（" wnd [0]/tbar [0]/btn [11]"）。按






 session.findById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nvf03"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/mbar/menu [0]/menu [11]"）。选择
 session.findById（" wnd [1]/usr/tblSAPLVMSGTABCONTROL"）。getAbsoluteRow（0）.Selected = True
 session.findById（" wnd [1]/tbar [0]/btn [37]"）。按
 session.findById（" wnd [0]/tbar [0]/okcd"）。Text =" pdf！"
 session.findById（" wnd [0]"）。sendVKey 0




 结束子

一周热门 更多>