ABAP 导出TXT文件到桌面
DATA: IT_DATA LIKE MY_DATA OCCURS 0.
DATA: FILENAME TYPE STRING VALUE ‘C:\sap_usr02.txt’.
SELECT USR02~MANDT USR02~BNAME USR02~ERDAT USR02~LTIME
APPENDING TABLE IT_DATA
FROM USR02
UP TO 100 ROWS.
SORT IT_DATA BY BNAME.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
CHANGING
DESKTOP_DIRECTORY = L_DESKTOPDIRECTORY.
CALL METHOD CL_GUI_CFW=>UPDATE_VIEW.
*WRITE L_DESKTOPDIRECTORY.
IF L_DESKTOPDIRECTORY IS NOT INITIAL.
CONCATENATE L_DESKTOPDIRECTORY ‘\FSCODE20201123\sap_usr01.txt’ INTO FILENAME.
ENDIF.
CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
CONFIRM_OVERWRITE = ‘X’ "如果文件存在 弹出是否覆盖文件的对话框
WRITE_FIELD_SEPARATOR = ‘X’ "加入字段分隔符 TAB
FILENAME = FILENAME "文件名 必须为 STRING 类型
TABLES
DATA_TAB = IT_DATA "内表
EXCEPTIONS
FILE_WRITE_ERROR = 1
FILE_NOT_FOUND = 2.
REFRESH IT_DATA. "清空内表
文章来自于网络,如果侵犯了您的权益,请联系站长删除!