SAP通过程序创建Excel模板

使用SAP系统时，时常需要批量导入数据，用户需要根据Excel模板对应填入批量数据以导入系统中，模板的创建有两种方法：

1.从服务器已经上传的Excel模板中下载到本地，然后贴入数据。

2.通过程序代码创建Excel模板，然后保存到本地。

第一种方法我想许多大神早已经在论坛或博客中有详细的介绍，这里我们介绍一下第二种方法，通过可执行程序创建一个Excel模板。

我们这里实现一个简单的模板创建：



我们点击红圈中的选择地址按钮：



我们可以选择一个文件夹，然后自己输入文件名，或者选择一个已经存在的Excel文件(将替换原内容)。这里我选择桌面，然后输入123(无需后缀)，点击保存，然后点击执行，效果如下：



当我们点击保存后，路径就会显示在输入框中，然后点击执行，那这个路径下的Excel文件就会创建出来，而文件中的内容是通过程序代码写出来的。

这是创建出来的Excel的内容，可以看到不光是单元格内容，包括字体大小，颜色等设置都可以实现(可能通常用不到)。



具体代码如下：

*&-------------------------------------------------------------
*& Report  xxx
*&
*&-------------------------------------------------------------

REPORT  xxx.

TYPE-POOLS:OLE2.

"OLE EXCEL定义。 结构.OBJ_RECORD ."
DATA: G_SHEET TYPE OLE2_OBJECT,
G_ACTIVESHEET TYPE OLE2_OBJECT,
G_NEWSHEET TYPE OLE2_OBJECT,
G_APPL TYPE OLE2_OBJECT,
G_WORK TYPE OLE2_OBJECT,
G_CELL TYPE OLE2_OBJECT.

DATA:MES_TEXT TYPE C LENGTH 50."消息提示文本"

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:P_FILE LIKE RLGRAP-FILENAME."路径输入栏"
SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE ."选择屏幕仍然活动时，处理用户在选择屏幕上输入之后的点"
PERFORM OPEN_FILE."实现路径选择和保存"

AT SELECTION-SCREEN.
CASE SY-UCOMM.
WHEN 'ONLI'.
IF P_FILE IS INITIAL.
MESSAGE '请添加路径！' TYPE 'E'.
ELSEIF P_FILE IS NOT INITIAL.
IF P_FILE NS 'C:\ ' AND P_FILE NS 'D:\ ' AND P_FILE NS 'E:\ ' AND P_FILE NS 'F:\ ' .
MESSAGE '请选择正确路径！' TYPE 'E'.
ENDIF.
ENDIF.
ENDCASE.

START-OF-SELECTION.
PERFORM DOWNLOAD."创建Excel模板"

END-OF-SELECTION.

FORM OPEN_FILE.

DATA:FILENAME TYPE STRING,
PATH    TYPE STRING,
FULLPATH TYPE STRING.

"通过调用方法file_save_dialog实现将选择的路径保存到parameter中"
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
EXPORTING
FILE_FILTER          = 'Excel文件(*.xls;*.xlsx)|*.xlsx'
CHANGING
FILENAME             = FILENAME
PATH                 = PATH
FULLPATH             = FULLPATH
EXCEPTIONS
CNTL_ERROR           = 1
ERROR_NO_GUI         = 2
NOT_SUPPORTED_BY_GUI = 3
others               = 4.

P_FILE = FULLPATH."最终路径赋给输入栏"

ENDFORM.

FORM DOWNLOAD.
CREATE OBJECT G_APPL 'EXCEL.APPLICATION'."创建OLE对象为EXCEL类型。"

SET PROPERTY OF G_APPL 'VISIBLE' = 0."设置显示模式，0表示后台运行，1表示前台运行。"

"创建一个book。"
CALL METHOD OF
G_APPL
'WORKBOOKS' = G_WORK.

CALL METHOD OF
G_WORK
'ADD'  = G_WORK.

"给sheet重命名。"
GET PROPERTY OF G_APPL 'ActiveSheet' = G_ACTIVESHEET.
SET PROPERTY OF G_ACTIVESHEET 'Name' = '工艺路线模板'.

PERFORM FILL_CELL USING: 1 1 '物料编码'       10 1 10, "行号，列号，值，单元格颜色，是否加粗,字体尺寸"
1 2 '工厂'           20 0 12,
1 3  'MRP控制者'     30 0 13,
1 4  '物料类型'      40 0 16,
1 5  '物料描述'      50  0 20,
1 6  '备注'          55  1 24.

"保存workbook"
CALL METHOD OF
G_WORK
'SAVEAS'
EXPORTING
#1       = P_FILE.

"关闭文件 。"
CALL METHOD OF
G_WORK
'close'.

"退出EXCEL。"
CALL METHOD OF
G_APPL
'QUIT'.

FREE OBJECT G_APPL."操作完毕，释放对象"

CONCATENATE '文件：'  P_FILE  ' 下载成功' INTO MES_TEXT.
MESSAGE MES_TEXT  TYPE 'S'.
ENDFORM.

FORM FILL_CELL USING FU_ROW  FU_COLUMN  FU_VALUE  FU_COLOR  FU_BOLD FU_SIZE.
DATA: L_CELL TYPE OLE2_OBJECT,
L_COLOR TYPE OLE2_OBJECT,
L_BOLD TYPE OLE2_OBJECT.

"给单元格赋值。"
CALL METHOD OF
G_APPL
'CELLS' = L_CELL
EXPORTING
#1      = FU_ROW  "行号
#2      = FU_COLUMN. "列号。

SET PROPERTY OF L_CELL 'Value' = FU_VALUE."赋值。"
"单元格内部属性的操作："
GET PROPERTY OF L_CELL 'Interior' = L_COLOR.
* "也可以这样写："
* "  CALL METHOD OF L_CELL 'INTERIOR' = L_COLOR. "
SET PROPERTY OF L_COLOR 'ColorIndex'  = FU_COLOR."根据值 显示对应的颜色。
"单元格内字体的操作：
GET PROPERTY OF L_CELL 'Font' = L_BOLD.
SET PROPERTY OF L_BOLD 'Bold' = FU_BOLD."1是加粗，0是不加粗"
SET PROPERTY OF L_BOLD 'SIZE' = FU_SIZE. "设置字体大小。"

ENDFORM.

总结：

通过代码我们可以看到，整个实现过程并不复杂，基本包括三个部分：

1.写入路径和文件名

2.创建excel文件

3.写入excel内容

1.写入路径和文件名，调用的还是类接口CL_GUI_FRONTEND_SERVICES的方法，如果使用过这个类或者读过我之前博文的朋友相信应该不陌生，之前我们用过它的另一个非常常用的方法 file_open_dialog ，这里保存选择路径就很简单明了。

2.创建Excel我们使用的OLE技术，我们引用类型池OLE2。开头我们定义了许多type OLE2_OBJECT的变量，其中G_APPL 是我们要创建的OLE对象类型为Excel。后面我们先创建一个workbook，然后赋值sheet名，如果想要创建多个sheet也是可以的，具体可以上网查找SAP_EXCEL_OLE常用方法和属性。

3.写入内容，最基本的参数需要：行号，列号，值。

通过 CALL METHOD OF G_APPL ‘CELLS’ = L_CELL来实现，确定单元格，然后赋值 SET PROPERTY OF L_CELL ‘VALUE’ = 值 。其他格式设置见代码。

这种写法需要多次调整，尤其是设置格式方面需要不断调试以达到预期效果。不过通常情况我们只需要其内容，所以平时备份上一两种模板，用到时修改下内容行即可。

因为我也是才接触abap，对系统中不常用的语法，结构，类接口等不很熟悉，不对之处希望博友指点，分享这篇文章大家共同学习。