SAP 将内表的数据导出到本地xls文件 abap实例 INCLUDE OLE2INCL

关注

VIP免费原创最新推荐文章于 2026-03-07 08:22:04 发布 8.1k 阅读 AI 写同款· GEO 优化 ›

用OLE/DOI 实现ABAP导出EXCEL表格[ OLE导出：sap中abap 导出excel的方法很多，ole是其中一种，但其导出速度比较慢，一般只应用于对excel格式有特别要求的场所 REPORT YGL_MYOLE. INCLUDE OLE2INCL. * OLE OBJECT DATA: MYEXCELTYPE OLE2_OBJECT, MYSHEETTYPE OLE2_OBJECT, MYCELLTYPE OLE2_OBJECT, MYWORKBOOKTY... 阅读详情

目的：将abap中内表的数据导出到本地（local）的xls文件中。

常用的方法有GUI_DOWNLOAD,但是该函数下载的是一些无转换文档，特别是TXT文件的导出。

如果要实现excel文件，并且把字段按照不同列进行输出，需要使用到object：OLE2_OBJECT来实现。

一个实例如下：

INCLUDE OLE2INCL

* ALV呼出
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM          = SY-REPID
      I_CALLBACK_PF_STATUS_SET    = 'PF_STATUS_SET'
      I_CALLBACK_USER_COMMAND     = 'PF_USER_COMMAND'
*     i_callback_html_top_of_page = 'TOP_OF_PAGE'
      IS_LAYOUT                   = PS_IN_LAYOUT
      IT_FIELDCAT                 = PT_IN_FIELDCAT
      I_SAVE                      = 'X'
    TABLES
      T_OUTTAB                    = GT_ALVDATA
    EXCEPTIONS
      PROGRAM_ERROR               = 1
      OTHERS                      = 2.

  IF SY-SUBRC <> 0.
*   Implement suitable error handling here
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO DISPLAY LIKE 'E'
                                   WITH SY-MSGV1
                                        SY-MSGV2
                                        SY-MSGV3
                                        SY-MSGV4.
    LEAVE LIST-PROCESSING.
  ENDIF.

ALV自定义按钮处理

*&---------------------------------------------------------------------*
*&      Form  PF_USER_COMMAND
*&---------------------------------------------------------------------*
*       USER_COMMAND
*----------------------------------------------------------------------*
*      -->P_UCOMM      text
*      -->PS_SELFIELD  text
*----------------------------------------------------------------------*
FORM PF_USER_COMMAND USING P_UCOMM     LIKE SY-UCOMM
                           PS_SELFIELD TYPE SLIS_SELFIELD.


  CASE P_UCOMM.
    WHEN 'DOWN'.
*     下载数据到xls文件
      PERFORM FRM_DOWNLOAD_DATA.

    WHEN OTHERS.
  ENDCASE.

  PS_SELFIELD-REFRESH = 'X'.


ENDFORM.                    "PF_USER_COMMAND

*&---------------------------------------------------------------------*
*&      Form  FRM_DOWNLOAD_DATA
*&---------------------------------------------------------------------*
*       下载数据到xls文件
*----------------------------------------------------------------------*
FORM FRM_DOWNLOAD_DATA .
  DATA: LV_EXCEL       TYPE OLE2_OBJECT,
        LV_SHEET       TYPE OLE2_OBJECT,
        LV_CELL        TYPE OLE2_OBJECT,
        LV_WORKBOOK    TYPE OLE2_OBJECT,
        LV_XLSNAME     TYPE STRING,
        LV_LINE        TYPE I      VALUE 1, "行号
        LV_COLS