ABAP实践学习--直接导出到excel实例

最新推荐文章于 2024-05-31 15:14:30 发布

SAP剑客

最新推荐文章于 2024-05-31 15:14:30 发布

阅读量1.1k

点赞数

文章标签： excel structure header table function object

本文链接：https://blog.csdn.net/zhongguomao/article/details/6760320

版权

REPORT YTEST023.
TABLES: USR03,DD02L.
DATA: ZX030L LIKE X030L.
DATA BEGIN OF ZDFIES OCCURS 0.
   INCLUDE STRUCTURE DFIES.
DATA END OF ZDFIES.
DATA: BEGIN OF FLDITAB OCCURS 0,
   FLDNAME(11) TYPE C,
   END OF FLDITAB.
DATA ITABUSR03 LIKE USR03 OCCURS 0 WITH HEADER LINE.
DATA TNAME LIKE DD02L-TABNAME.
select * FROM USR03 INTO TABLE ITABUSR03.
TNAME = ’USR03’.
PERFORM GETFIELEDS.
PERFORM SHOW123.
********************************************
FORM GETFIELEDS.
   CALL FUNCTION ’GET_FIELDTAB’
   EXPORTING
      LANGU             = SY-LANGU
      ONLY             = SPACE
      TABNAME          = TNAME
      WITHTEXT          = ’X’
   IMPORTING
      HEADER          = ZX030L
   TABLES
      FIELDTAB          = ZDFIES
   EXCEPTIONS
      INTERNAL_ERROR    = 01
      NO_TEXTS_FOUND    = 02
      TABLE_HAS_NO_FIELDS = 03
      TABLE_NOT_ACTIV    = 04.
   CASE SY-SUBRC.
      WHEN 0.
      LOOP AT ZDFIES.
            FLDITAB-FLDNAME = ZDFIES-FIELDNAME.
            APPEND FLDITAB.
      ENDLOOP.
      WHEN OTHERS.
         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            with  SY-SUBRC.
   ENDCASE.
ENDFORM.
***********************************
FORM SHOW123.
CALL FUNCTION ’EXCEL_OLE_STANDARD_DAT’
   EXPORTING
      FILE_NAME                = ’C:\USR03.XLS’
      DATA_SHEET_NAME          = ’USER LIST’
TABLES
      DATA_TAB                =  ITABUSR03
      FIELDNAMES             =  FLDITAB
EXCEPTIONS
      FILE_NOT_EXIST          = 1
      FILENAME_EXPECTED       = 2
      COMMUNICATION_ERROR    = 3
      OLE_OBJECT_METHOD_ERROR = 4
      OLE_OBJECT_PROPERTY_ERROR = 5
      INVALID_FILENAME       = 6
      INVALID_PIVOT_FIELDS    = 7
      DOWNLOAD_PROBLEM       = 8
      OTHERS                   = 9.
IF SY-SUBRC  0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.