SAP ABAP EXCEL 导出（多sheet页）

请输入昵称膨胀的馒头

已于 2022-07-15 20:21:59 修改

阅读量3.3k

点赞数 4

CC 4.0 BY-SA版权

分类专栏： SAP ABAP OFFICE 文章标签：其他

于 2022-07-15 20:21:38 首次发布

本文链接：https://blog.youkuaiyun.com/Fall_in_Lc/article/details/125811759

SAP ABAP EXCEL 导出（多sheet页）

文章目录

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_