SAP EXCEL 下载功能



DATA LC_PATH TYPE STRING.
 CONSTANTS:
  CNS_X           TYPE C VALUE 'X',
  CNS_BIS         TYPE C VALUE '\',
  CNS_EXT(4)      TYPE C VALUE '.XLS'.
 
* 下载路径选择
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
    CHANGING
      SELECTED_FOLDER      = LC_PATH          "路径
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      OTHERS               = 4.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE CNS_S NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  W_NAME = LC_PATH.

  CONCATENATE W_NAME
                CNS_BIS
*                P_BUKRS                                              2011-09-14 *A.Bohe Set Date/Time/Username
                SY-DATUM
                SY-UZEIT
                '-'
                SY-UNAME
                CNS_EXT
           INTO W_FILENAME.
* 下载文件格式
  DATA:CST_FTYPE LIKE RLGRAP-FILETYPE    VALUE 'DAT'.
  *   下载文件
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        FILENAME                = W_FILENAME    "文件路径
*        FILETYPE                = 'ASC'         "文件类型
        FILETYPE                = 'DAT'         "文件类型
        CODEPAGE                = '4103'        "页面编码
        WRITE_FIELD_SEPARATOR   = CNS_X
        TRUNC_TRAILING_BLANKS   = CNS_X         "去除空格
        WRITE_BOM               = CNS_X         "Byte-Order-Mark
      TABLES
*         DATA_TAB                = IT_TXT       "数据下载
        DATA_TAB                = IT_OUTPUT     "数据下载
      EXCEPTIONS
        FILE_WRITE_ERROR        = 1
        NO_BATCH                = 2
        GUI_REFUSE_FILETRANSFER = 3
        INVALID_TYPE            = 4
        NO_AUTHORITY            = 5
        UNKNOWN_ERROR           = 6
        HEADER_NOT_ALLOWED      = 7
        SEPARATOR_NOT_ALLOWED   = 8
        FILESIZE_NOT_ALLOWED    = 9
        HEADER_TOO_LONG         = 10
        DP_ERROR_CREATE         = 11
        DP_ERROR_SEND           = 12
        DP_ERROR_WRITE          = 13
        UNKNOWN_DP_ERROR        = 14
        ACCESS_DENIED           = 15
        DP_OUT_OF_MEMORY        = 16
        DISK_FULL               = 17
        DP_TIMEOUT              = 18
        FILE_NOT_FOUND          = 19
        DATAPROVIDER_EXCEPTION  = 20
        CONTROL_FLUSH_ERROR     = 21
        OTHERS                  = 22.

 IF SY-SUBRC = 0.
*下载成功
    MESSAGE S015.
 ELSE.
 MESSAGE ID SY-MSGID TYPE CNS_S NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.