子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




 结束子


 

对不起，但是要发布代码，您需要使用特殊按钮" CODE"。 您的帖子不可读...

P.S。 而且它与标签无关：

EPM Excel加载项

我没有SAP脚本编写方面的经验，由于不正确的不相关标签，您的问题没有得到要求的专家检查！

我已经提醒主持人更改标签，但我的提醒仍未处理。