ABAP 导出TXT文件到桌面

最新推荐文章于 2024-04-29 11:28:03 发布

隐轩

最新推荐文章于 2024-04-29 11:28:03 发布

阅读量850

点赞数

分类专栏： ABAP 文章标签： sap

原文链接：https://blog.youkuaiyun.com/qq_36617521/article/details/62416286

版权

ABAP 专栏收录该内容

19 篇文章

订阅专栏

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. "清空内表