REPORT ZDTEST_018.
DATA:pa_file(50).
* AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = 'zl' "?中文名
def_path = 'c:/'
mask = ',Excel(*.xls),*.XLS.'
mode = 's'
* TITLE = ''
IMPORTING
filename = pa_file
* RC =
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
WRITE:'pa_file=',pa_file.
DATA:pa_file(50).
* AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = 'zl' "?中文名
def_path = 'c:/'
mask = ',Excel(*.xls),*.XLS.'
mode = 's'
* TITLE = ''
IMPORTING
filename = pa_file
* RC =
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
WRITE:'pa_file=',pa_file.
本文介绍了一个使用ABAP编程语言实现的文件选择器示例。通过调用WS_FILENAME_GET函数模块,程序允许用户从指定路径中选择Excel格式文件(.xls)。示例展示了如何设置默认文件名、路径及文件类型过滤器,并处理了各种异常情况。
6707

被折叠的 条评论
为什么被折叠?



