快速導出EXCEL --'WS_DOWNLOAD'

 CALL FUNCTION 'WS_DOWNLOAD'
   EXPORTING
*   BIN_FILESIZE                  = ' '
*   CODEPAGE                      = '8400'
     FILENAME                      = P_FILE
     FILETYPE                      =  'DAT'
*   MODE                          = ' '
*   WK1_N_FORMAT                  = ' '
*   WK1_N_SIZE                    = ' '
*   WK1_T_FORMAT                  = ' '
*   WK1_T_SIZE                    = ' '
*   COL_SELECT                    = ' '
*   COL_SELECTMASK                = ' '
*   NO_AUTH_CHECK                 = ' '
* IMPORTING
*   FILELENGTH                    =
    TABLES
      DATA_TAB                      = IT_RESULT
      FIELDNAMES                    = IT_FIELDNAME
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_WRITE_ERROR              = 2
*   INVALID_FILESIZE              = 3
*   INVALID_TYPE                  = 4
*   NO_BATCH                      = 5
*   UNKNOWN_ERROR                 = 6
*   INVALID_TABLE_WIDTH           = 7
*   GUI_REFUSE_FILETRANSFER       = 8
*   CUSTOMER_ERROR                = 9
*   OTHERS                        = 10
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

"------------------------------------------------增加導出字段
  IT_FIELDNAME =  TEXT-235.  "Total shelf life
  APPEND IT_FIELDNAME.