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

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

cuserskan117desktopmy-testmy-testing.txt 尊敬的团队，

下面是我的脚本，我将数据从excel复制到SAP，并尝试以excel格式下载报告。

当我尝试下载"另存为"弹出框时，脚本随后未运行。

我已经附上了我的剧本。 有人可以帮我在excel中下载另存为文件吗？

子Portage_R17_VENDOR_DEBIT（）

Application.DisplayAlerts = False
Application.ScreenUpdating = False

如果不是IsObject（Application1），则
设置SapGuiAuto = GetObject（" SAPGUI"）
设置Application1 = SapGuiAuto.GetScriptingEngine
如果，如果不是IsObject（Connection1），则
结束 Connection1 = Application1.Children（0）
如果不是IsObject（session），则结束
设置会话= Connection1.Children（0），如果 WScript.ConnectObject会话，"在"上
WScript.ConnectObject Application1，"在"上
如果结束

session.findById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/NFBL3N"
session.findById（" wnd [0]"）。sendVKey 0

session.findById（" wnd [0]/usr/btn％_SD_SAKNR _％_ APP _％-VALU_PUSH"）。press
session.findById（" wnd [1]/tbar [0]/btn [16]" ）.press
ThisWorkbook.Activate
Worksheets（" Report"）。Range（" A1"）。Select
ActiveSheet.Range（" A1"）。AutoFilter字段：= 1，Criteria1：=" < >"
Range（Selection，Selection.End（xlDown））。Offset（1，0）.SpecialCells（xlCellTypeVisible）.Select
Selection.Copy
session.findById（" wnd [1]/tbar [0]/btn [24]"）。按
session.findById（" wnd [1]"）。sendVKey 8

ThisWorkbook.Activate
Selection.AutoFilter
Range（" A1"）。Select

session.findById（" wnd [0]/usr/btn％_SD_BUKRS _％_ APP _％-VALU_PUSH"）。press
session.findById（" wnd [1]/tbar [0]/btn [ 16]"）。按
ThisWorkbook.Activate
Worksheets（" Report"）。Range（" B1"）。Select
ActiveSheet.Range（" B1"）。AutoFilter字段：= 2，条件1： =" <>"
Range（Selection，Selection.End（xlDown））。Offset（1，0）.SpecialCells（xlCellTypeVisible）.Select
Selection.Copy
session.findById（" wnd [1 ]/tbar [0]/btn [24]"）。按
session.findById（" wnd [1]"）。sendVKey 8

ThisWorkbook.Activate
Selection.AutoFilter
Worksheets（" Report"）。Range（" A1"）。Select

RPT_DATE = ThisWorkbook.Worksheets（" Report"）。Range（" D2"）
session.findById（" wnd [0]/usr/ctxtPA_STIDA"）。Text = RPT_DATE

布局= ThisWorkbook.Worksheets（" Report"）。Range（" C2"）
session.findById（" wnd [0]/usr/ctxtPA_VARI"）。Text = Layout
session.findById（" wnd [0]/tbar [1]/btn [8]"）。按

OUTPUT_PATH = Sheet1.TextBox1.Text
FILENAME =" Download"＆" .txt"

session.findById（" wnd [0]/mbar/menu [0]/menu [3]/menu [1]"）。选择

 
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按