了解如何通过 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、如果没有选择文件,则会显示错误信息 "未选择文件",如下图所示。