Output to an excel sheet

Question

Hi all,
How do we send the 1)script output 2)ALV report output to an excel sheet
please expedite
thanks

Answer 1

Hi arun,
Check the below example, to download the ALV report output to an excel sheet.
REPORT Z_CONCEPTALV .
TABLES: KNA1,VBAK.
DATA: ITAB TYPE TABLE OF VBAK,
      CONTAINER TYPE SCRFNAME VALUE 'ALVCONTROL',
      CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      GRID TYPE REF TO CL_GUI_ALV_GRID,
      L_CONTAINER TYPE SCRFNAME VALUE 'LOGO',
      I_PARENT TYPE REF TO CL_GUI_CONTAINER,
      L_CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
      LT_LIST_COMMENTARY TYPE SLIS_T_LISTHEADER,
      L_LOGO TYPE SDYDO_VALUE.
DATA: OK_CODE(4).
CALL SCREEN 1100.
*&      Module  STATUS_1100  OUTPUT
      text
MODULE STATUS_1100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CASE OK_CODE.
WHEN 'DISP'.
SELECT * FROM VBAK INTO TABLE ITAB WHERE KUNNR = KNA1-KUNNR.
IF CUST IS INITIAL.
CREATE OBJECT CUST EXPORTING CONTAINER_NAME = CONTAINER.
CREATE OBJECT GRID EXPORTING I_PARENT = CUST.
CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING I_STRUCTURE_NAME
= 'VBAK' CHANGING IT_OUTTAB = ITAB.
ENDIF.
IF L_CUST IS INITIAL.
CREATE OBJECT L_CUST EXPORTING CONTAINER_NAME = L_CONTAINER.
CREATE OBJECT TREE EXPORTING I_PARENT = L_CUST.
PERFORM BUILD_COMMENT USING LT_LIST_COMMENTARY.
CALL METHOD TREE->CREATE_REPORT_HEADER EXPORTING IT_LIST_COMMENTARY =
LT_LIST_COMMENTARY I_LOGO = L_LOGO.
ENDIF.
WHEN 'DOWN'.
PERFORM F_DOWNLOAD_TO_EXCEL.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " STATUS_1100  OUTPUT
FORM BUILD_COMMENT USING LT_LIST_COMMENTARY.
L_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM.
FORM F_DOWNLOAD_TO_EXCEL.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
  BIN_FILESIZE                  = ' '
  CODEPAGE                      = ' '
   FILENAME                       = ' '
   FILETYPE                       = 'DAT'
  ITEM                          = ' '
  MODE                          = ' '
  WK1_N_FORMAT                  = ' '
  WK1_N_SIZE                    = ' '
  WK1_T_FORMAT                  = ' '
  WK1_T_SIZE                    = ' '
  FILEMASK_MASK                 = ' '
  FILEMASK_TEXT                 = ' '
  FILETYPE_NO_CHANGE            = ' '
  FILEMASK_ALL                  = ' '
  FILETYPE_NO_SHOW              = ' '
  SILENT                        = 'S'
  COL_SELECT                    = ' '
  COL_SELECTMASK                = ' '
  NO_AUTH_CHECK                 = ' '
IMPORTING
  ACT_FILENAME                  =
  ACT_FILETYPE                  =
  FILESIZE                      =
  CANCEL                        =
  TABLES
    DATA_TAB                      = ITAB
  FIELDNAMES                    =
EXCEPTIONS
  INVALID_FILESIZE              = 1
  INVALID_TABLE_WIDTH           = 2
  INVALID_TYPE                  = 3
  NO_BATCH                      = 4
  UNKNOWN_ERROR                 = 5
  GUI_REFUSE_FILETRANSFER       = 6
  CUSTOMER_ERROR                = 7
  OTHERS                        = 8
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.