下载时，弹出下载地址选择窗口

DATA:  lo_objdata LIKE wwwdatatab,

         lo_mime LIKE w3mime,

         lc_filename  TYPE string VALUE 'test01',
     
   
 "默认文件名，用户可以修改

         lc_path      TYPE  string , 
     
     
     
     "路径
     
 
 lc_fullpath  TYPE string  ,
     
     
     
     
"完整路径加名称

  

  "保存下载的模板

  CALL METHOD cl_gui_frontend_services=>file_save_dialog "调用保存对话框

    EXPORTING

      default_extension    = 'XLS'
     
     
     
   
 "保存类型

      default_file_name    = lc_filename
     
     
   
 "文件名：test01

    CHANGING

      filename             = lc_filename
     
     
     "文件名

      path                 = lc_path
     
     
     
   "地址，用户选择的时候赋值如d:\

      fullpath             = lc_fullpath
     
     
   
 "文件路径：如d:\test01.xls

    EXCEPTIONS

      cntl_error           = 1

      error_no_gui         = 2

      not_supported_by_gui = 3

      OTHERS               = 4.

  IF lc_fullpath = ''.

    MESSAGE  '不能打开excel' TYPE 'E'.

  ENDIF.

这些东西仅仅是为了以后项目里可以直接copy，不可能记得住那么多东西的。
copy下开发也快，呵呵