FM for sending itab data to excel sheet

Question

Hi,
Can any one tell FM for sending internal table data to excel.
Thanks & Regards,
Prasad reddy.

Answer 1

Hi,
If you want open Internal Table data in Excel automatically, try this FM: EXCEL_OLE_STANDARD_DAT.
Here the sample program:
REPORT  ZTEST .
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'
      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.
Regards,