了解如何通过 SAP 屏幕上创建的按钮打开所需的 Excel 文件。为了演示这一点,将指导您完成以下步骤。
- 使用 del 命令删除 SAP 上不必要的元素
- 添加一个按钮,单击后打开弹出窗口
- 创建一个函数来选择 excel 文件
- 创建打开所需 excel 文件的函数
定制
登录 SAP 并在 SAP Easy Access 屏幕上删除映像容器,如下图所示:
// 删除 SAP Easy Access 屏幕上的图像容器
del("X[IMAGE_CONTAINER]");
屏幕脚本:
1、添加一个 "打开 Excel 文件 "的工具栏按钮,以执行名为 "选择 Excel 文件 "的程序,并在单击时弹出一个窗口
// 创建一个标签为 "打开 Excel 文件 "的按钮,点击后弹出一个窗口。
pushbutton([TOOLBAR],"@48@Open Excel File", "?", {"process":选择Excel文件});
2、使用加载命令将 wsoffice 添加到 SAPLSMTR_NAVIGATION.E0100.sjs 文件中;这样就可以访问其中包含的功能。
// 需要加载该文件以显示 "文件选择 "弹出窗口
load('wsoffice');
3、现在,在文件中添加以下 Liquid UI 脚本并保存。
//function SelectExcelfile(param){if(szPrompt==void 0) szPrompt = 'Select the Excel File';var dialog = new ActiveXObject('MsComDlg.CommonDialog');dialog.Filter='Excel Files(*.xlsx*)|*.xlsx*';dialog.MaxFileSize=32767; dialog.DialogTitle=szPrompt;dialog.Flags=0x200|0x80000|0x800|0x4|0x200000 dialog.ShowOpen(); var ret = dialog.FileName;dialog = void 0; if(file!=""){ ifopenExcelfile(file) }else{message("File Not Selected!",{"StatusLine":true, "title": "Information", "type": "W"});}}
// 打开 Excel 文件的函数
function openExcelfile(filename){ g_ExcelApp = new ActiveXObject('Excel.Application');g_ExcelBook=g_ExcelApp.Workbooks.Open(filename);g_ExcelApp.Visible=true; g_ExcelApp.ScreenUpdating=true;message("S:" +filename+" Excel 文件已成功打开");}
SAP 流程
1、现在,刷新 SAP 屏幕,然后点击打开 Excel 文件工具栏按钮。如下图所示,弹出一个窗口。
2、选择需要打开的 excel 文件,然后点击打开,如下图所示。
3、然后,选定的 Excel 文件将被打开,并显示 "Excel 文件已成功打开 "的成功信息和文件路径,如下图所示。
4、如果没有选择文件,则会显示错误信息 "未选择文件",如下图所示。