DOWNLOAD FROM ITAB TO EXCEL



 先把模板用SMW0存到系统中，名字为 ZLJC001.

*&---------------------------------------------------------------------*
*& Report  ZLJC
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

 REPORT  zljc   .

 INCLUDE <icon>.
 INCLUDE <symbol>.
 INCLUDE z_alv_incl_001.
 INCLUDE z_file_incl_001.



 DATA : im_ifile    TYPE ibipparms-path,
        im_startrow TYPE i,
        ex_tag      TYPE zsubrc,
        ex_msg      TYPE zyxmsg.



 DATA: gc_objid TYPE wwwdata-objid VALUE 'ZLJC001'.


 DATA: ldf_filename TYPE text255,
       ls_fieldcat  TYPE zexcel_s_fieldcat,
       lt_fieldcat  TYPE zexcel_t_fieldcat.
 DATA: ldf_count    TYPE i,
       ldf_row      TYPE i.



 TYPES: BEGIN OF ty_data,
           matnr TYPE mara-matnr,
           groes TYPE mara-groes,
        END OF ty_data.
 DATA: lt_data      TYPE TABLE OF ty_data WITH HEADER LINE.


 START-OF-SELECTION.


   PERFORM prepare_file.



   PERFORM frm_download_file.

* 打开文件
   CALL FUNCTION 'ZEXCEL_START'
     EXPORTING
       filename = ldf_filename
     IMPORTING
       subrc    = ex_tag
       msg      = ex_msg.

   CHECK ex_tag = 0.


   PERFORM prepare_data.

   ldf_row = 2.
   CALL FUNCTION 'ZEXCEL_FILL_ITAB'
     EXPORTING
       row        = ldf_row
       column     = 2
       fieldcat   = lt_fieldcat
       autoheader = 0
     IMPORTING
       subrc      = ex_tag
       msg        = ex_msg
     TABLES
       itab       = lt_data.


   CALL FUNCTION 'ZEXCEL_END'
     EXPORTING
       visible = 0
       saves   = 1
       close   = 1
     IMPORTING
       subrc   = ex_tag
       msg     = ex_msg.

IF EX_TAG IS INITIAL.
   MESSAGE I000(26) WITH ' DOWNLOAD OK'.
ELSE.
   MESSAGE I000(26) WITH ' DOWNLOAD ERROR'.
ENDIF.


*&---------------------------------------------------------------------*
*&      Form  PREPARE_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
 FORM prepare_file .
   DATA : lfiletable TYPE filetable.
   DATA : ls_file TYPE file_table.
   DATA : l_rc TYPE i.
   CALL METHOD cl_gui_frontend_services=>file_open_dialog
     EXPORTING
       window_title            = 'select open file'
       default_extension       = '*.XLS'
       default_filename        = 'LJC.XLS'
     CHANGING
       file_table              = lfiletable
       rc                      = l_rc
     EXCEPTIONS
       file_open_dialog_failed = 1
       cntl_error              = 2
       error_no_gui            = 3
       not_supported_by_gui    = 4
       OTHERS                  = 5.



   READ TABLE lfiletable INTO ls_file INDEX 1.
   im_ifile = ls_file-filename.


   MOVE im_ifile TO ldf_filename  .
 ENDFORM.                    " PREPARE_FILE


*&---------------------------------------------------------------------*
*&      Form  frm_download_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
 FORM frm_download_file .

   CALL FUNCTION 'ZTOOL_FILE_DOWNLOAD_SMW0'
     EXPORTING
       objname           = gc_objid
       pathname          = im_ifile
     IMPORTING
       filename          = im_ifile
     EXCEPTIONS
       objname_not_exist = 1
       inv_winsys        = 2
       no_batch          = 3
       selection_cancel  = 4
       selection_error   = 5
       download_false    = 6
       OTHERS            = 7.
   CASE sy-subrc.
     WHEN 0.

     WHEN 1.

     WHEN 4.
     WHEN 6.

     WHEN OTHERS.

   ENDCASE.

 ENDFORM.                    " FRM_DOWNLOAD_FILE
*&---------------------------------------------------------------------*
*&      Form  PREPARE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
 FORM prepare_data .

   CLEAR: ls_fieldcat, lt_fieldcat, lt_fieldcat[].
   ls_fieldcat-fname   = 'MATNR'.
   ls_fieldcat-coltext = '物料号'.
   APPEND ls_fieldcat TO lt_fieldcat.

   ls_fieldcat-fname   = 'GROES'.
   ls_fieldcat-coltext = '规格'.
   APPEND ls_fieldcat TO lt_fieldcat.



   CLEAR: lt_data,lt_data[].
   SELECT matnr groes INTO TABLE lt_data FROM mara UP TO 10 ROWS.

 ENDFORM.                    " PREPARE_DATA