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.
原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/18250.html