自开发导出数据到文件

"定义导出的数据表头-内表
DATA: BEGIN OF gt_hd OCCURS 0 ,
field TYPE char100,
END OF gt_hd.

 

"定义导出的数据内表
DATA:GT_TAB TYPE TABLE OF BSEG,
GS_TAB TYPE BSEG.

"得到导出的数据
SELECT *
INTO CORRESPONDING FIELDS OF TABLE GT_TAB
FROM BSEG.

 

DATA:
lv_filename TYPE string,
lv_path TYPE string,
lv_fullpath TYPE string,
lv_destination LIKE rlgrap-filename,
ls_objdata LIKE wwwdatatab,
lv_objid TYPE wwwdatatab-objid,
lv_rc TYPE sy-subrc,
lv_tabix TYPE i.

 

"定义导出的文件名
CONCATENATE lv_filename
sy-datum
sy-uzeit
INTO lv_filename.

 

*****选择文件存储地点
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
default_extension = 'XLSX'
default_file_name = lv_filename
initial_directory = lv_path
CHANGING
filename = lv_filename
path = lv_path
fullpath = lv_fullpath
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.

"excel表头设置 插入导出数据表头字段名称
APPEND '第一列' TO gt_hd.
APPEND '第二轮' TO gt_hd.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = lv_fullpath
filetype = 'ASC'
write_field_separator = 'X'
TABLES
* data_tab = gt_download
data_tab = gt_TAB
fieldnames = gt_hd.