2021.02.07 【ABAP随笔】-Excel高效输出工具-xlsx workbench
一 介绍说明
前段时间做财务报表项目,由于用户集团下面公司众多,每个月看财务管控的报表需要看几十张客制化的报表,而且是在一个excel文件中,相当于一个公司一个sheet页,而且excel的样式需要根据客户的需求进行不同的定制。之前用户在一家公司下使用excel导出是采用SMW0模板+OLE输出到excel单元格的方式,下载一张财务报表需要几分钟,现在需要扩展到全集团,下载几十家公司的财务报表速度就及其的慢了,所以看到网上有XLSX Workbench开源项目,所以就自己研究了一下安利给了客户,结果就是导出几十家公司的客制报表数据仅需要十几秒
XLSX Workbench是一种高效Excel输出的工具,用于在SAP环境中设计基于Excel的表单。由于采用了完全可视化的形式来开发表格(像SMARTFORMS进行开发),因此它非常易于学习和使用。XLSX Workbench的可视化方法使您即使没有ABAP技能也可以开发打印表格。
XLSX Workbench是功能强大且非常灵活的工具,适用于具有图片,图表,层次结构和其他格式设置功能的简单表单和复杂动态表单的开发。而且XLSX Workbench提供了高性能的生成打印表格结果文件的功能。
二 XLSX Workbench 安装
安装方式有2种,一种是通过SAPLink安装,另一种就是自己手动去创建,个人还是推荐使用SAPLink去安装的,这样避免一些不必要的错误的产生。
如果通过人工手工创建程序则需要:
(1)通过se38创建程序:ZXLWB
(2)创建事务代码:ZXLWB_WORKBENCH
(3)创建包含程序:ZXLWB_INCLUDE
(4)创建函数组:ZXLWB
同时创建
Function:ZXLWB_CALLFORM 和 ZXLWB_WORKBENCH
LZXLWBF01 LZXLWBTOP ZXLWB_INCLUDE
代码详情 请自行下载文件(下载链接关注文章末尾)
(5)GUI状态为如下图:其他地方为空白
(6)GUI 标题
(7)屏幕0100
(8)Function ZXLWB_CALLFORM参数:
(9)Function ZXLWB_WORKBENCH参数:
(10)安装时可能会出现的问题
10.1 如果CL_HRPAYNA_GUI_ALV_TREE 这个类不在你的系统中,请自行创建一个类来代替SE24创建自定义类
继承超类CL_GUI_ALV_TREE
创建一个Method :GET_OUTTAB
参数如下:
10.2 如果系统中不存在CKF_FIELD_VALUE_TABLE 结构,请自行创建结构代替
三 Demo客制化模板制作
3.1 我们使用系统自带的SFLIGHT表来构建下航班信息输出报表
首先我们创建需要用到的内表结构
表头数据
内表数据
3.2 使用事务码ZXLWB_WORKBENCH来创建输出模板
(1)输入名称并点击create
如下图,你可以看到编辑excel模板的界面,操作方发类似于smartforms的操作
双击模板名称,在Name of context 栏位点击,将创建好的结构分配给模板
如果需要自动根据结构创建模板结构,可以点击Auto
如下图自动创建了form的结构,status 为红色的表示仍需要操作
如下可以设置当前绑定的是excel界面中的哪个sheet
在sheet name at runtime 中可以设置输出sheet页名称为自动的sheet1,sheet2...
也可以点击
如下可以设置当前绑定的是excel界面中的哪个sheet
在sheet name at runtime 中可以设置输出sheet页名称为自动的sheet1,sheet2...
也可以点击设置sheet name 关联ZXWLB_S_001_HEADER中的字段来赋值字段
设置sheet name 关联ZXWLB_S_001_HEADER中的字段来赋值字段
(2)在EXCEL的区域设置好Excel模板,如下图,模板上Excel单元格格式和输出时Excel保持一致
(3)将FORM Structure 和 Excel模板区块对应绑定上:
选中如下图1中的excel区域,双击ZXWLB_S_001_HEADER, 然后点击绑定excel区域和ZXWLB_S_001_HEADER
绑定之后,ZXWLB_S_001_HEADER 的Status变成绿色,下方显示绑定区域位置
对于ZXWLB_S_001_HEADER下层字段绑定只能在ZXWLB_S_001_HEADER与Excel模板绑定的区域中进行绑定字段
Convert value to ext.format 打勾相当于 = ALPHA
其他2个抬头字段如上操作
下图为绑定了内表-ITEM,该标识表示每一次循环完毕之后向下增加条目
绑定关系如下图:
同时删除不需要的字段
保存和激活设计的模板
四 调用设计好的模板
部分调用代码如下:
FORM frm_down_excel USING uv_filename TYPE string .
DATA ls_header TYPE zxwlb_s_001_header.
DATA ls_item TYPE zxwlb_s_001_item.
DATA lt_item TYPE zxwlb_t_001_item.
"赋值
ls_header-flight_info = 'Tab Flight'.
ls_header-currency = 'CNY'.
LOOP AT sflight INTO DATA(ls_sflight).
MOVE-CORRESPONDING ls_sflight TO ls_item.
ls_header-total_price = ls_header-total_price + ls_item-price.
APPEND ls_item TO lt_item.
CLEAR ls_item.
ENDLOOP.
APPEND LINES OF lt_item TO ls_header-item.
"调用function
CALL FUNCTION 'ZXLWB_CALLFORM'
EXPORTING
iv_formname = 'ZXLSX_WORKBENCH_001'" xlsx workbench form 模板名称
iv_context_ref = ls_header "数据
* IV_VIEWER_TITLE = SY-TITLE
* IV_VIEWER_INPLACE = 'X'
* IV_VIEWER_CALLBACK_PROG = SY-CPROG
* IV_VIEWER_CALLBACK_FORM =
iv_viewer_suppress = 'X' " 为空的,则调用内嵌EXCEL 显示数据
* IV_PROTECT =
iv_save_as = uv_filename "C:\Users\*****\Desktop\EXPORT.xlsx 保存在PC目录
* IV_SAVE_AS_APPSERVER =
* IV_STARTUP_MACRO =
* IT_DOCPROPERTIES =
* IMPORTING
* EV_DOCUMENT_RAWDATA =
* EV_DOCUMENT_EXTENSION =
EXCEPTIONS
process_terminated = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1
sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
当我们运行程序后,点击Down Excel可以直接下载Excel
下载出来的excel如下图所示
这样一个简单的demo就制作完毕,总体来说下载速度是杠杠的,然后代码仅仅写了调用和赋值两块内容,Excel中的格式可以按照需求修改+绑定数据结构,就可以实现客户化的excel输出了。
最后附上saplink nugg文档和XLSX Workbench链接
链接:https://pan.baidu.com/s/1GZaEv8c2BjtWNHBb_ymGBQ
提取码:whgk