TYPE-POOLS: abap.
DATA: fullpath TYPE string,
filename TYPE string,
path TYPE string,
user_action TYPE i,
encoding TYPE abap_encoding.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
window_title = '下载到本地文件'
default_extension = 'XLS' "缺省文件类型
default_file_name = '默认文件名称'
file_filter = '文本文件(*.TXT)|*.TXT|Excel 文件 (*.XLS)|*.XLS;*.XLSX|所有文件 (*.*)|*.*|'
with_encoding = 'X'
initial_directory = 'C:\'
CHANGING
filename = filename "获得用户输入文件名
path = path "获得用户所选路径
fullpath = fullpath "路径加文件名
user_action = user_action
file_encoding = encoding.
IF sy-subrc <> 0 OR user_action <> cl_gui_frontend_services=>action_ok.
EXIT.
ENDIF.
评论