SAP ABAP EXCEL 导出(多sheet页)
文章目录
前言
有时我们需要将数据分sheet页导出,而SAP的标准导出功能无法满足我们的需求
这时我们就需要自开发导出功能
代码总览
DATA: v_filename TYPE string,
wa_excel TYPE ole2_object,
wa_book TYPE ole2_object,
wa_sheet TYPE ole2_object,
wa_cell TYPE ole2_object.
DATA: v_index TYPE i VALUE IS INITIAL,
v_sheet_index TYPE i VALUE IS INITIAL.
CALL METHOD cl_gui_frontend_services=>directory_browse
CHANGING
selected_folder = v_filename.
CONCATENATE v_filename '\ xxx表' '_' sy-datum '_' sy-uzeit
'.xls'
INTO v_filename.
CREATE OBJECT wa_excel 'EXCEL.APPLICATION'.
SET PROPERTY OF wa_excel 'Visible' = 0.
CALL METHOD OF wa_excel 'Workbooks' = wa_book.
SET PROPERTY OF wa_excel 'SHEETSINNEWWORKBOOK' = 1.
CALL METHOD OF wa_book 'ADD'.
v_sheet_index = 1.
CALL METHOD OF wa_excel 'WORKSHEETS' = wa_sheet
EXPORTING
#1 = v_sheet_