使用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，对系统中不常用的语法，结构，类接口等不很熟悉，不对之处希望博友指点，分享这篇文章大家共同学习。
原创文章，作者：Maggie-Hunter，如若转载，请注明出处：https://blog.ytso.com/17931.html