Exportal Excel - XML

http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/13092
http://wiki.sdn.sap.com/wiki/display/Snippets/XML+TAGS+simplifies+Excel+Download

1.En la transaccin STRANS crear un archivo llamado ZTEST_NP_XLS
- cambiar ExpandedColumnCount= numero de columnas a motrar.
- campos a mostrar









npatel
npatel
2009-01-01T22:27:09Z

11.8132


12660
19980
480
120
False
False







Material No Material Desc



3
4
1


False
False




False
False




False
False








2.En el codigo F01
FORM exportar_excel_xml.
  DATA: ls_xml    TYPE string,
        xml_table TYPE STANDARD TABLE OF string,
        ls_path   TYPE string,
        lc_rpta   TYPE c.
  CALL TRANSFORMATION ztest_np_xls
    SOURCE table = gtd_aspirante_alv
    RESULT XML ls_xml.
  APPEND ls_xml TO xml_table.
  PERFORM obtener_ruta_guardar_archivo USING  'Lista de Aspirantes'
                                              '.xls'
                                              'XLS files (*.XLS)|*.XLS'
                                     CHANGING ls_path
                                              lc_rpta.
  CHECK lc_rpta = 'T'.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = ls_path
      filetype                = 'ASC'
    TABLES
      data_tab                = xml_table
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      OTHERS                  = 5.
  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.