DATA: EXCEL TYPE OLE2_OBJECT,
SHEET TYPE OLE2_OBJECT,
CELL TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
XLSNAME TYPE STRING VALUE 'C:\sap_usr02.xls',
LINE TYPE I VALUE 0. "行号
CREATE OBJECT EXCEL 'EXCEL.APPLICATION'."启动Excel
IF SY-SUBRC NE 0.
WRITE: / '启动Excel失败。'.
STOP.
ENDIF.
CALL METHOD OF EXCEL 'WORKBOOKS' = WORKBOOK.
SET PROPERTY OF EXCEL 'VISIBLE' = 1. "使excel 可视
SET PROPERTY OF EXCEL 'SHEETSINNEWWORKBOOK' = 1. "若是是读取excel文件中的内容 则是直接打开工做簿第一页
CALL METHOD OF WORKBOOK 'ADD'. "例如：CALL METHOD OF EXCEL 'WORKSHEETS' = SHEET EXPORTING #1 = 1.
LOOP AT IT_DATA INTO MY_DATA.
LINE = LINE + 1. "Excel 中行号从1开始
CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = LINE #2 = 1. "指定单元格，
SET PROPERTY OF CELL 'VALUE' = MY_DATA-MANDT. "写入值
CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = LINE #2 = 2. "指定单元格，
SET PROPERTY OF CELL 'VALUE' = MY_DATA-BNAME. "写入值
CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = LINE #2 = 3. "指定单元格，
SET PROPERTY OF CELL 'VALUE' = MY_DATA-ERDAT. "写入值
CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = LINE #2 = 4. "指定单元格，
SET PROPERTY OF CELL 'VALUE' = MY_DATA-LTIME. "写入值
ENDLOOP.
GET PROPERTY OF EXCEL 'ACTIVESHEET' = SHEET. "激活工做簿
GET PROPERTY OF EXCEL 'ACTIVEWORKBOOK' = WORKBOOK. "激活工做区
CALL METHOD OF WORKBOOK 'SAVEAS' EXPORTING #1 = XLSNAME #2 = 1. "将excel文件保存
CALL METHOD OF WORKBOOK 'CLOSE'. "关闭工做区
CALL METHOD OF EXCEL 'QUIT'. "退出excel
*WRITE:/ XLSNAME,'DONE'. "退出成功，输出done
FREE OBJECT SHEET. "释放操做
FREE OBJECT WORKBOOK.
FREE OBJECT EXCEL.html
其余方法：编程
目录函数
- 1. 函数: GUI_DOWNLOAD
- 3. 函数: MS_EXCEL_OLE_STANDARD_DAT
- 4. OLE
- 5. 函数: XXL_FULL_API
- 6. ABAP2XLSX
- 7. XLSX Workbench
1. 函数: GUI_DOWNLOAD
这是一种最基本的方法，对应 CLASS: CL_GUI_FRONTEND_SERVICES 的方法 GUI_DOWNLOAD工具
注意FILENAME参数的扩展名应为XLS，这样在保存时能够保存为EXCEL格式。 示例以下：性能
1 DATA:itab LIKE TABLE OF mara WITH HEADER LINE.字体
3DATA:BEGINOF t_fieldnames OCCURS0,
4
5 name TYPE char20,
6
7 END OF t_fieldnames.
8
9 START-OF-SELECTION.
10
11 SELECT * FROM mara INTO TABLE itab UP TO 10 ROWS.
12
13 t_fieldnames-name = '公司代码'.
14
15 APPEND t_fieldnames.
16
17 t_fieldnames-name = '功能范围'.
18
19 APPEND t_fieldnames.
20
21 CALL FUNCTION 'GUI_DOWNLOAD'
22 EXPORTING
23 filename = 'C:\1234.xls'
24 filetype = 'DAT'
25 "这里通常用DAT，若是用ASC则1000-不会显示为-1000，而dat会显示为-1000，若是用DBF则不会有缩进，即字符前面的空格会被除去,并且字符的前导0也会输出。
26 codepage = '8404'
27 TABLES
28 data_tab = itab
29 fieldnames = t_fieldnames. ui
这个函数虽然比较简单，但当FILETYPE为DAT和ASC时，生成的文件用EXCEL打开时会弹出以下的对话框：google
缘由: 以DAT和ASC格式存的表格实际上是TXT格式，与EXCEL格式不一致，将扩展名改成TXT，会很容易看出这一点。spa
2. 函数:SAP_CONVERT_TO_XLS_FORMAT设计
这个FM功能与GUI_DOWNLOAD相似，支持xlsx格式：
SELECT * FROM sflight INTO TABLE @DATA(gt_temp) UP TO 10 ROWS. CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT' EXPORTING i_filename = 'C:\SAP\QQ1.XLSX' TABLES i_tab_sap_data = gt_temp EXCEPTIONS conversion_failed = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF.
3. 函数: MS_EXCEL_OLE_STANDARD_DAT
同时也会直接打开EXCEL文件。这个FM不单单能把数据传到EXCEL，
可是这个函数有一个缺点：当要把中文数据导入到EXCEL时就必有登录中文的GUI运行程序，不然中文就会变成'#'号。
1 DATA:BEGIN OF it_fieldnames OCCURS 0,
2
3 name TYPE char20,
4
5 END OF it_fieldnames.
6
7 it_fieldnames-name = 'Company Code'.
8
9 APPEND it_fieldnames.
10
11 it_fieldnames-name = 'Function Area'.
12
13 APPEND it_fieldnames.
14
15 it_fieldnames-name = '5'. "针对非C、N、D、T类型列的列名，函数有Bug
16
17 APPEND it_fieldnames.
18
19 CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
20 EXPORTING
21 file_name = 'C:\johnson.XLSX'
22 * CREATE_PIVOT = 0
23 * DATA_SHEET_NAME = ' '
24 * PIVOT_SHEET_NAME = ' '
25 * PASSWORD = ' '
26 * pASSWORD_OPTION = 0
27 TABLES
28 * PIVOT_FIELD_TAB =
29 data_tab = itab
30 fieldnames = it_fieldnames
31 * EXCEPTIONS
32 * FILE_NOT_EXIST = 1
33 * FILENAME_EXPECTED = 2
34 * cOMMUNICATION_ERROR = 3
35 * oLE_OBJECT_METHOD_ERROR = 4
36 * OLE_OBJECT_PROPERTY_ERROR = 5
37 * INVALID_PIVOT_FIELDS = 6
38 * DOWNLOAD_PROBLEM = 7
39 * OTHERS = 8
说明：应用这个FM时要注意的问题:
一、Fieldname数据类型会被强制转变为对应列的类型，若是转换失败则Dump
二、若是连续两次或两次以上以上调用，列名会跑到数据区
还有一个函数彷佛是它的前身，名字是 EXCEL_OLE_STANDARD_DAT ，实现方法类似。不过这个函数对某些表会报"data can't converted in unicode program" 的错误，因此仍是建议采用最新的函数。
4. OLE
这种方式与上面几种比较优势在于可以定制EXCEL格式，不过比较麻烦。
实现方法见这篇文章：http://www.cnblogs.com/hhelibeb/p/5787396.html
5. 函数: XXL_FULL_API
一样能实现EXCEL格式，而且速度上较OLE有优点。SE38有几个参考示例： XXLTTEST, XXLSTEST, XXLFTEST
6. ABAP2XLSX
这是一个类包，是一群爱好者开发的一个专门用于将ABAP数据导入到EXCEL的类，包括对齐，合并，字体，着色等的设置，由于是面向对象的，相比OLE方式要简单，编写程序也就比较省力。
通常用于须要定制EXCEL格式的状况。
具体可参考此文章
7. XLSX Workbench
一种可视化表单生成工具，相比复杂的OLE，能够用少许代码+一些拖拽和配置来生成EXCEL报表，性能更好。按XLSX Workbench的文档介绍，它有九大特性：
- 无需ABAP编程技能
- 可视化设计方式
- 高性能
- 支持后台处理
- 强大的表单格式特性支持
- 支持公式
- 支持图片
- 支持图表
- 支持树
官方文档：https://sites.google.com/site/sapxlwb/home
XLSX Workbench是我眼中的首选方案，由于它的可视化编辑工具真的很方便。经过这个工具，开发者只须要简单地将数据放入设计好的context结构，而且在可视化工具中将context绑定到具体的单元格，就能够生成EXCEL文件了：
DATA: l_data TYPE zcontext. CALL FUNCTION 'ZXLWB_CALLFORM' EXPORTING iv_formname = 'ZXLWBFORM' iv_context_ref = l_data EXCEPTIONS OTHERS = 2. IF sy-subrc NE 0 . MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 . ENDIF .