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

最新推荐文章于 2025-06-30 09:08:19 发布

原创

最新推荐文章于 2025-06-30 09:08:19 发布 · 7.9k 阅读

15 ·

CC 4.0 BY-SA版权

本文提供了一个SAP ABAP实例，详细介绍了如何使用INCLUDE OLE2INCL将内部表的数据导出到本地的Excel (xls) 文件中，实现了SAP系统与本地文件系统的交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目的：将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