How to convert ALV report to Excel ??

Question

Hi,
My requirement is to show ALV report in the excel .
I have 2 radio buttons in Selection screen :
1)  ALV  format                           2) Excel.
If excel is selected then user will give a path : C :\newexcelreport.xls
I knew that there is a way to download report through ALV report using download into local file. But the requirement is to create a report in Excel same like ALV report .
I tried using GUI_Download . But it is displaying some fields wrongly, ex : Date , Time, without header .
Date is showing year month date format in the excel .
time is showing in a numeric format.
But the ALV report is showing correct report . When I download into local then the report is showing correct results .
Is there any function module to download exact ALV report into excel .??
Thanks & Regards,
Varma

Answer 1

Use the FM - ALV_XXL_CALL. here is the sample -
REPORT  ZSKC_ALV_XXL.
TYPE-POOLS : KKBLO.
DATA : ITAB LIKE T100 OCCURS 0,
       T_FCAT_LVC TYPE LVC_S_FCAT OCCURS 0 WITH HEADER LINE,
       T_FCAT_KKB TYPE KKBLO_T_FIELDCAT.
START-OF-SELECTION.
Get data.
  SELECT * UP TO 20 ROWS
  FROM   T100
  INTO   TABLE ITAB
  WHERE  SPRSL = SY-LANGU.
  CHECK SY-SUBRC EQ 0.
Create the field catalog.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
      I_STRUCTURE_NAME             = 'T100'
    CHANGING
      CT_FIELDCAT                  = T_FCAT_LVC[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE       = 1
      PROGRAM_ERROR                = 2
      OTHERS                       = 3.
  CHECK SY-SUBRC EQ 0.
make sure you pass the correct internal table name in the field catalog.
  t_fcat_lvC-tabname = 'ITAB'.
  MODIFY T_FCAT_LVC TRANSPORTING TABNAME WHERE TABNAME NE SPACE.
Transfer to KKBLO format.
  CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
    EXPORTING
      IT_FIELDCAT_LVC                 = T_FCAT_LVC[]
    IMPORTING
      ET_FIELDCAT_KKBLO               = T_FCAT_KKB
   EXCEPTIONS
     IT_DATA_MISSING                 = 1
     IT_FIELDCAT_LVC_MISSING         = 2
     OTHERS                          = 3.
  CHECK SY-SUBRC EQ 0.
Call XXL.
  CALL FUNCTION 'ALV_XXL_CALL'
    EXPORTING
      I_TABNAME                    = 'ITAB'
      IT_FIELDCAT                  = T_FCAT_KKB
    TABLES
      IT_OUTTAB                    = ITAB[]
    EXCEPTIONS
      FATAL_ERROR                  = 1
      NO_DISPLAY_POSSIBLE          = 2
      OTHERS                       = 3.
  IF SY-SUBRC <> 0.
  ENDIF.