您的位置:首页 > 其它

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

2014-01-22 09:18 260 查看
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下开发也快,呵呵
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: