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

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

您好专家

我对SAP脚本记录了解很少，因此需要您的帮助来编写脚本以自动执行报告下载。

我大约有40个公司代码，每个月需要下载其资产历史报告。 我需要下载每个公司的资产历史记录文件并将其保存在文件夹中。 资产历史记录表下的大多数参数都是相同的，但只有co。 代码将会更改。

我正在粘贴以下代码。 您能否告诉我，有什么方法可以更改代码以分别下载每个报告，将其重命名为与co.code相匹配并将其保存在所需的文件夹中？

我们将非常感谢您的帮助

谢谢！

Praveen

如果不是IsObject（application），则
    设置SapGuiAuto = GetObject（" SAPGUI"）
    设置应用程序= SapGuiAuto.GetScriptingEngine
 万一
 如果不是IsObject（connection）然后
    设置连接= application.Children（0）
 万一
 如果不是IsObject（session）然后
    设置会话= connection.Children（0）
 万一
 如果IsObject（WScript）然后
    WScript.ConnectObject会话，"打开"
    WScript.ConnectObject应用程序，"打开"
 万一
 session.findById（" wnd [0]"）。maximize
 session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/nS_ALR_87011990"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/usr/chkPA_XGBAF"）。selected = true
 session.findById（" wnd [0]/usr/ctxtBERDATUM"）。text =" 09/30/2018"
 session.findById（" wnd [0]/usr/ctxtSRTVR"）。text =" 0003"
 session.findById（" wnd [0]/usr/chkPA_XGBAF"）。setFocus
 session.findById（" wnd [0]/tbar [1]/btn [8]"）。按
 session.findById（" wnd [0]/mbar/menu [0]/menu [1]/menu [2]"）。select
 session.findById（" wnd [1]/usr/subSUBSCREEN_STEPLOOP：SAPLSPO5：0150/sub：SAPLSPO5：0150/radSPOPLI-SELFLAG [1,0]"）。select
 session.findById（" wnd [1]/usr/subSUBSCREEN_STEPLOOP：SAPLSPO5：0150/sub：SAPLSPO5：0150/radSPOPLI-SELFLAG [1,0]"）。setFocus
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按
 session.findById（" wnd [1]/usr/ctxtDY_PATH"）。setFocus
 session.findById（" wnd [1]/usr/ctxtDY_PATH"）。caretPosition = 0
 session.findById（" wnd [1]"）。sendVKey 4
 session.findById（" wnd [2]/usr/ctxtDY_PATH"）。setFocus
 session.findById（" wnd [2]/usr/ctxtDY_PATH"）。caretPosition = 0
 session.findById（" wnd [2]"）。sendVKey 4
 session.findById（" wnd [3]/usr/ctxtDY_PATH"）。setFocus
 session.findById（" wnd [3]/usr/ctxtDY_PATH"）。caretPosition = 0
 session.findById（" wnd [3]"）。sendVKey 4