自开发导出数据到文件

"定义导出的数据表头-内表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_filenamesy-datumsy-uzeitINTO 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.

原文地址：https://www.cnblogs.com/js47/p/17301654.html