一：事物码smw0

二：上传步骤

程序源码：

l_filename = 'XX.xls'.l_muban = 'z123'.
*&---下载模板PERFORM frm_get_fullpath CHANGING gv_fullpath gv_path gv_name.
*&---路径为空则退出IF gv_fullpath IS INITIAL.MESSAGE '用户取消操作' TYPE 'S'.RETURN.ENDIF.PERFORM frm_down USING gv_fullpath.
*--------------------------------------------------------------------*
*       获取下载到本地的路径
*--------------------------------------------------------------------*
FORM frm_get_fullpath   CHANGING pv_fullpath TYPE stringpv_path     TYPE stringpv_name     TYPE string.
DATA: lv_init_path  TYPE string,lv_init_fname TYPE string,lv_path       TYPE string,lv_filename   TYPE string,lv_fullpath   TYPE string.
*&---初始名称(输出的文件名称)
*  concatenate 'Material_Doc_' SY-DATUM '.xslx' into L_INIT_FNAME.lv_init_fname = l_filename.
* 获取桌面路径CALL METHOD cl_gui_frontend_services=>get_desktop_directoryCHANGINGdesktop_directory    = lv_init_pathEXCEPTIONScntl_error           = 1error_no_gui         = 2not_supported_by_gui = 3OTHERS               = 4.IF sy-subrc <> 0.EXIT.ENDIF.
*&---用户选择名称、路径CALL METHOD cl_gui_frontend_services=>file_save_dialogEXPORTING
*     window_title         = '指定保存文件名'
*     default_extension    = 'DOC'default_file_name    = lv_init_fname
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_EXCEL
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_WORDinitial_directory    = lv_init_pathprompt_on_overwrite  = 'X'CHANGINGfilename             = lv_filenamepath                 = lv_pathfullpath             = lv_fullpath
*     USER_ACTION          =
*     FILE_ENCODING        =EXCEPTIONScntl_error           = 1error_no_gui         = 2not_supported_by_gui = 3OTHERS               = 4.IF sy-subrc = 0.pv_fullpath = lv_fullpath.pv_path     = lv_path.ENDIF.
ENDFORM.
*--------------------------------------------------------------------*
*       下载文件
*--------------------------------------------------------------------*
FORM frm_down  USING pr_filename.DATA: lv_objdata     LIKE wwwdatatab,lv_mime        LIKE w3mime,lv_destination LIKE rlgrap-filename,lv_objnam      TYPE string,lv_rc          LIKE sy-subrc,lv_errtxt      TYPE string.
DATA: lv_filename TYPE string,lv_result,lv_subrc    TYPE sy-subrc.
DATA: lv_objid TYPE wwwdatatab-objid .
lv_objid = l_muban.  "上传的模版名称
*&---查找文件是否存在。SELECT SINGLE relid objidFROM wwwdataINTO CORRESPONDING FIELDS OF lv_objdataWHERE srtf2    = 0AND   relid    = 'MI'AND   objid    = lv_objid.
*&---判断模版不存在则报错IF sy-subrc NE 0 OR lv_objdata-objid EQ space.CONCATENATE '模板文件：' lv_objid '不存在，请用TCODE：SMW0进行加载'INTO lv_errtxt.MESSAGE lv_errtxt TYPE 'E'.ENDIF.
lv_filename = pr_filename.
"判断本地地址是否已经存在此文件。CALL METHOD cl_gui_frontend_services=>file_existEXPORTINGfile                 = lv_filenameRECEIVINGresult               = lv_resultEXCEPTIONScntl_error           = 1error_no_gui         = 2wrong_parameter      = 3not_supported_by_gui = 4OTHERS               = 5.IF sy-subrc <> 0.CASE sy-subrc.WHEN 1.WHEN 2.WHEN OTHERS.ENDCASE.ENDIF.
IF lv_result EQ 'X'.  "如果存在则删除原始文件，重新覆盖CALL METHOD cl_gui_frontend_services=>file_deleteEXPORTINGfilename             = lv_filenameCHANGINGrc                   = lv_subrcEXCEPTIONSfile_delete_failed   = 1cntl_error           = 2error_no_gui         = 3file_not_found       = 4access_denied        = 5unknown_error        = 6not_supported_by_gui = 7wrong_parameter      = 8OTHERS               = 9.
IF sy-subrc <> 0.CASE sy-subrc.WHEN 1.WHEN 2.WHEN OTHERS.ENDCASE.ENDIF.
IF lv_subrc <> 0. "如果删除失败，则报错。CONCATENATE '同名EXCEL文件已打开' '请关闭该EXCEL后重试。'INTO lv_errtxt.MESSAGE lv_errtxt TYPE 'E'.ENDIF.ENDIF.
lv_destination   = pr_filename.
*&---下载模版。CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'EXPORTINGkey         = lv_objdatadestination = lv_destinationIMPORTINGrc          = lv_rc.IF lv_rc NE 0.CONCATENATE '模板文件' '下载失败' INTO lv_errtxt.MESSAGE lv_errtxt TYPE 'E'.ENDIF.
ENDFORM.