SAP导出内表数据到excel

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.

其他方法：

目录

• 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.

这个函数虽然比较简单，但当FILETYPE为DAT和ASC时，生成的文件用EXCEL打开时会弹出如下的对话框：

原因: 以DAT和ASC格式存的表格其实是TXT格式，与EXCEL格式不一致，将扩展名改为TXT，会很容易看出这一点。

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时要注意的问题:

1、Fieldname数据类型会被强制转变为对应列的类型，如果转换失败则Dump

2、如果连续两次或两次以上以上调用，列名会跑到数据区

还有一个函数似乎是它的前身，名字是 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 .