Gui_download for excel

Question

Hi all,
       Please if sumone cud help,
       give me a sample WORKING code for download from internal table to   EXCEL (not vice versa!!).
my internal table is getting in the excelfile but all the fieldsare in 1 line..
heres my code..:
data: Lv_file type string,
Lv_path type string,
Lv_file_path type string.
call method cl_gui_frontend_services=>file_save_dialog
changing filename = Lv_file
path = Lv_path
fullpath = Lv_file_path.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                    =
    filename                        = Lv_file_path
   FILETYPE                        = 'ASC'
  APPEND                          = ' '
   WRITE_FIELD_SEPARATOR           = 'X'
IMPORTING
  FILELENGTH                      =
  tables
    data_tab                        = LIT_ORDER
  FIELDNAMES                      =

Answer 1

*& Report  ZMR_BACKGROUND_DOWNLOAD_EXCEL
REPORT  zmr_background_download_excel.
*TABLES: y001.
CONSTANTS: c_path(14) VALUE '/downloads/'.
*CONSTANTS: c_path(14) VALUE 'C:\ABAP\'.
DATA: BEGIN OF c_tab,
        x(2) TYPE C VALUE '09',
      END OF c_tab.
DATA : FILENAME LIKE RLGRAP-FILENAME VALUE 'EXAMPLE.TXT'.
DATA: buffer(8000),
      fieldname_offset TYPE i,
    fullpath(128),
      fullpath LIKE sxpgcolist-parameters,
    cmdfullpath(128),
      cmdfullpath LIKE sxpgcolist-parameters,
      cmd(40),
      ibtcxpm LIKE btcxpm OCCURS 0.
DATA : BEGIN OF I_MKAL OCCURS 0,
          MATNR LIKE MKAL-MATNR,
          WERKS LIKE MKAL-WERKS,
          VERID LIKE MKAL-VERID,
       END OF I_MKAL.
DATA : WA_MKAL LIKE I_MKAL.
DATA : FLAG TYPE C.
DATA : BEGIN OF I_FINAL OCCURS 0,
          MATNR LIKE MKAL-MATNR,
          MAKTX LIKE MAKT-MAKTX,
          WERKS LIKE MKAL-WERKS,
          VERID LIKE MKAL-VERID,
          ATWRT LIKE AUSP-ATWRT,
         ATWRT1 LIKE AUSP-ATWRT,
       END OF I_FINAL.
DATA : ZATWRT1 LIKE AUSP-ATWRT,
       ZATWRT  LIKE AUSP-ATWRT,
       ZMAKTX  LIKE MAKT-MAKTX.
DATA : LOCATION TYPE C VALUE 'A'.
Start of processing
*FUNCTION z_download.
""Local interface:
*"  IMPORTING
*"     VALUE(FILENAME)
*"     VALUE(LOCATION)
*"  TABLES
*"      DATA_TAB
*"      FIELDNAMES OPTIONAL
     data: ws_line type i.
  FIELD-SYMBOLS: <f>.
  CHECK NOT filename IS INITIAL.
START-OF-SELECTION.
FORMAT COLOR COL_NORMAL.
    SELECT MATNR
           WERKS
           VERID
      FROM MKAL INTO CORRESPONDING FIELDS OF TABLE I_MKAL
     WHERE SERKZ = 'X'
       AND WERKS IN ('1101', '1102').
LOOP AT I_MKAL.
  SELECT SINGLE ATWRT
           FROM AUSP INTO ZATWRT
          WHERE OBJEK = I_MKAL-MATNR
            AND ATINN = '0000000019'
            AND KLART = '001'.
      IF SY-SUBRC = 0.
         FLAG = 'X'.
      ENDIF.
  SELECT SINGLE ATWRT
           FROM AUSP INTO ZATWRT1
          WHERE OBJEK = I_MKAL-MATNR
            AND ATINN = '0000000022'
            AND KLART = '001'.
      IF SY-SUBRC = 0 AND FLAG = 'X'.
            SELECT SINGLE MAKTX
                     FROM MAKT INTO ZMAKTX
                    WHERE MATNR = I_MKAL-MATNR.
            I_FINAL-MATNR = I_MKAL-MATNR.
            I_FINAL-MAKTX = ZMAKTX.
            I_FINAL-WERKS = I_MKAL-WERKS.
            I_FINAL-VERID = I_MKAL-VERID.
            I_FINAL-ATWRT = ZATWRT.
           I_FINAL-ATWRT1 = ZATWRT1.
            APPEND I_FINAL.
      ENDIF.
CLEAR ZATWRT.
CLEAR ZATWRT1.
CLEAR ZMAKTX.
ENDLOOP.
END-OF-SELECTION.
  CONCATENATE c_path filename INTO fullpath.
  OPEN DATASET fullpath IN TEXT MODE FOR OUTPUT ENCODING DEFAULT.
  DESCRIBE TABLE I_FINAL LINES ws_line.
  IF ws_line NE 0.
    PERFORM fieldnames_2_buffer TABLES I_FINAL CHANGING buffer.
    fieldname_offset = STRLEN( buffer ).
    TRANSFER buffer TO fullpath LENGTH fieldname_offset.
  ENDIF.
  LOOP AT I_FINAL.
    CLEAR buffer.
    CLEAR fieldname_offset.
    DO.
      ASSIGN COMPONENT sy-index OF STRUCTURE I_FINAL TO <f>.
      IF sy-subrc NE 0.  EXIT.  ENDIF.
      WRITE <f> TO buffer+fieldname_offset.
      CONDENSE buffer.
      fieldname_offset = STRLEN( buffer ).
      WRITE c_tab TO buffer+fieldname_offset(1).
      ADD 1 TO fieldname_offset.
    ENDDO.
    TRANSFER buffer TO fullpath LENGTH fieldname_offset.
  ENDLOOP.
  CLOSE DATASET fullpath.
  CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
    EXPORTING
      commandname                   = 'ZCHMOD'
      additional_parameters         = fullpath
    TABLES
      exec_protocol                 = ibtcxpm
    EXCEPTIONS
      no_permission                 = 1
      command_not_found             = 2
      parameters_too_long           = 3
      security_risk                 = 4
      wrong_check_call_interface    = 5
      program_start_error           = 6
      program_termination_error     = 7
      x_error                       = 8
      parameter_expected            = 9
      too_many_parameters           = 10
      illegal_command               = 11
      wrong_asynchronous_parameters = 12
      cant_enq_tbtco_entry          = 13
      jobcount_generation_error     = 14
      OTHERS                        = 15.
      IF SY-SUBRC = 0.
      ENDIF.
  CONCATENATE c_path filename '_cmd' INTO cmdfullpath.
  OPEN DATASET cmdfullpath IN TEXT MODE FOR OUTPUT ENCODING DEFAULT.
  CASE location.     "location A, B, C, D on a network
    WHEN 'A  '.
BREAK-POINT.
      TRANSFER 'open 192.9.200.223' TO cmdfullpath.
      TRANSFER 'user ROOT ROOT123' TO cmdfullpath.
    WHEN 'B  '.
      TRANSFER 'open xx.xxx.xx.xx' TO cmdfullpath.
      TRANSFER 'user sapftp <pwd>' TO cmdfullpath.
    WHEN 'C  '.
      TRANSFER 'open xx.xxx.xx.xx' TO cmdfullpath.
      TRANSFER 'user sapftp <pwd>' TO cmdfullpath.
    WHEN 'D  '.
      TRANSFER 'open xx.xxx.xx.xx' TO cmdfullpath.
      TRANSFER 'user sapftp <pwd>' TO cmdfullpath.
    WHEN OTHERS.
  ENDCASE.
*start>
    clear y001.
SELECT SINGLE y_path INTO y001-y_path
                      FROM y001 WHERE bname = sy-uname
                                  AND y_site = location.
TRANSFER y001-y_path TO cmdfullpath.
*<end
BREAK-POINT.
     concatenate 'lcd' c_path into cmd separated by space.
  TRANSFER cmd TO cmdfullpath.
  CLEAR cmd.
  CONCATENATE 'put' filename INTO cmd SEPARATED BY space.
  TRANSFER cmd TO cmdfullpath.
  TRANSFER 'bye' TO cmdfullpath.
  CLOSE DATASET cmdfullpath.
  CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
    EXPORTING
      commandname                   = 'ZCHMOD'
      additional_parameters         = cmdfullpath
    TABLES
      exec_protocol                 = ibtcxpm
    EXCEPTIONS
      no_permission                 = 1
      command_not_found             = 2
      parameters_too_long           = 3
      security_risk                 = 4
      wrong_check_call_interface    = 5
      program_start_error           = 6
      program_termination_error     = 7
      x_error                       = 8
      parameter_expected            = 9
      too_many_parameters           = 10
      illegal_command               = 11
      wrong_asynchronous_parameters = 12
      cant_enq_tbtco_entry          = 13
      jobcount_generation_error     = 14
      OTHERS                        = 15.
IF SY-SUBRC = 0.
      ENDIF.
  CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
       EXPORTING
            commandname                   = 'ZFTP'
         commandname                   = 'ZFTP'
            additional_parameters         = cmdfullpath
       TABLES
            exec_protocol                 = ibtcxpm
       EXCEPTIONS
            no_permission                 = 1
            command_not_found             = 2
            parameters_too_long           = 3
            security_risk                 = 4
            wrong_check_call_interface    = 5
            program_start_error           = 6
            program_termination_error     = 7
            x_error                       = 8
            parameter_expected            = 9
            too_many_parameters           = 10
            illegal_command               = 11
            wrong_asynchronous_parameters = 12
            cant_enq_tbtco_entry          = 13
            jobcount_generation_error     = 14
            OTHERS                        = 15.
IF SY-SUBRC = 0.
      ENDIF.
*ENDFUNCTION.
      form fieldnames_2_buffer                                      *
-->  fieldnames                                                    *
-->  buffer                                                        *
form fieldnames_2_buffer tables fieldnames changing buffer.
CLEAR buffer.
CLEAR fieldname_offset.
LOOP AT fieldnames.
  WRITE fieldnames TO buffer+fieldname_offset.
  CONDENSE buffer.
  fieldname_offset = STRLEN( buffer ).
  WRITE c_tab TO buffer+fieldname_offset(1).
  ADD 1 TO fieldname_offset.
ENDLOOP.
fieldname_offset = fieldname_offset - 1.
IF fieldname_offset >= 0.
  WRITE space TO buffer+fieldname_offset(1).
ENDIF.
ENDFORM.                    "