DATA
: lo_objdata
LIKE wwwdatatab
,
lo_mime LIKE w3mime ,
lc_filename TYPE string VALUE 'test01' , "默认文件名,用户可以修改
lc_path TYPE string , "路径
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 .
"保存下载的模板
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下开发也快,呵呵