Download using GUI_download

Question

Hi all,
i am trying to download the internal table which have 10 field, into the EXCEL file,
at the same time i wanted into the downloaded file
field name also appear....how can we do that,,
while downloading its appearing in a one column,
i want to shift the every field in different column,
Any idea about that how i will acheive this
Thanks for your help..
Manish

Answer 1

Hi manish,
1. For the same purpose
   i have developed an INDEPENDENT SUBROUTINE/FORM
   in which we pass just two things :
    a) itab
    b) file name with full path
2. It then downloads the file
   (ALONG WITH THE FIELD NAMES AT THE TOP)
  (We have to use GUI_DOWNLOAD two times,
   once for downloading data,
   and once for downloading the field names separated
    by tab)
3. Just copy paste in new program.
report abc.
data : itab like table of t001 with header line.
select * from t001 into table itab.
perform mydownload tables itab using 'D:\t001.txt'.
INDEPENDENT FORM
form mydownload tables ptab using filename.
DAta
  DATA : components     LIKE     rstrucinfo OCCURS 0 WITH HEADER LINE.
  DATA : allfields(300) TYPE c.
  DATA : fld(100) TYPE c.
  data : begin of htab occurs 0,
         allfields(300) type c,
         end of htab.
Get component list
  CALL FUNCTION 'GET_COMPONENT_LIST'
    EXPORTING
      program    = sy-repid
      fieldname  = 'ITAB'
    TABLES
      components = components.
construct
  LOOP AT components.
    CONCATENATE   components-compname
  CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB INTO fld.
    CONCATENATE allfields fld INTO allfields .
  ENDLOOP.
  htab-allfields = allfields.
  append htab.
download first field list
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
  BIN_FILESIZE                    =
      FILENAME                        = 'D:\t001.txt'
     WRITE_FIELD_SEPARATOR           = 'X'
    TABLES
      DATA_TAB                        = htab
then download file data
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                    =
    FILENAME                        = filename
    APPEND                          = 'X'
   WRITE_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                        = ptab
  endform.
regards,
amit m.