Hi list should be saved as .xls file on desktop.

Question

hi,
my scenarios is as follows:
In Selection i have some input fields and select options. upon executing the report , the report output(list) should be saved as excel file. the name of the excel file should be what we mention in the selection screen.( option should be provided parameter ,like browse option)
please help me..
Thanks  & regards
Raju Mummidi

Answer 1

Hiii!
  Try out this code
REPORT  z_FILE_DOWNLOAD.
DATA: w_name(90) TYPE c.
DATA:
  BEGIN OF fs_flight,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    fldate   LIKE sflight-fldate,
    price    LIKE sflight-price,
    currency LIKE sflight-currency,
  END OF fs_flight.
DATA:
  t_flight LIKE
     TABLE OF
           fs_flight.
SELECT-OPTIONS:
  s_carrid FOR fs_flight-carrid.
PARAMETERS: p_name(90) TYPE c DEFAULT 'D:\'.
START-OF-SELECTION.
  SELECT carrid
         connid
         fldate
         price
         currency
    FROM sflight
    INTO TABLE t_flight
   WHERE carrid IN s_carrid.
w_name = p_name.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
*   BIN_FILESIZE                  =
filename = 'w_name'
   FILETYPE                      = 'ASC'
   WRITE_FIELD_SEPARATOR         = 'X'
  tables
    data_tab                      = t_flight
EXCEPTIONS
   FILE_WRITE_ERROR              = 1
   NO_BATCH                      = 2
   GUI_REFUSE_FILETRANSFER       = 3
   INVALID_TYPE                  = 4
   NO_AUTHORITY                  = 5
   UNKNOWN_ERROR                 = 6
   HEADER_NOT_ALLOWED            = 7
   SEPARATOR_NOT_ALLOWED         = 8
   FILESIZE_NOT_ALLOWED          = 9
   HEADER_TOO_LONG               = 10
   DP_ERROR_CREATE               = 11
   DP_ERROR_SEND                 = 12
   DP_ERROR_WRITE                = 13
   UNKNOWN_DP_ERROR              = 14
   ACCESS_DENIED                 = 15
   DP_OUT_OF_MEMORY              = 16
   DISK_FULL                     = 17
   DP_TIMEOUT                    = 18
   FILE_NOT_FOUND                = 19
   DATAPROVIDER_EXCEPTION        = 20
   CONTROL_FLUSH_ERROR           = 21
   OTHERS                        = 22
IF sy-subrc EQ 0.
  MESSAGE 'Download successful' TYPE 'S'.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards
Abhijeet Kulshreshtha