ABAP OLE：多文件导出Excel及在一个文件中创建多个工作表

REPORT ztst_hqc087.


INCLUDE ole2incl.

DATA: w_cell1 TYPE ole2_object,
      w_cell2 TYPE ole2_object.

*--- Ole data Declarations
DATA: h_excel     TYPE ole2_object, " Excel object
      h_mapl      TYPE ole2_object, " list of workbooks
      h_map       TYPE ole2_object, " workbook
      h_zl        TYPE ole2_object, " cell
      h_f         TYPE ole2_object, " font
      gs_interior TYPE ole2_object, " Pattern

      worksheet   TYPE ole2_object,
      h_cell      TYPE ole2_object,
      h_cell1     TYPE ole2_object,
      range       TYPE ole2_object,
      h_sheet2    TYPE ole2_object,
      h_sheet3    TYPE ole2_object,
      gs_font     TYPE ole2_object,
      gs_border   TYPE ole2_object,
      e_color     TYPE ole2_object,
      border      TYPE ole2_object,
      gs_italic   TYPE ole2_object,

      flg_stop(1) TYPE c.
*********************************************************************

** Internal table Declaration
*********************************************************************
DATA: BEGIN OF t_excel OCCURS 0,
        matnr TYPE mara-matnr, "(18) type c,
        ersda TYPE mara-ersda, " (8)  type c,
        ernam TYPE mara-ernam, "(12) type c,
        laeda TYPE mara-laeda, "(8)  type c,
        aenam TYPE mara-aenam, "(12) type c,
        vpsta TYPE mara-vpsta, "(15) type c,
        pstat TYPE mara-pstat, "(15) type c,
      END OF t_excel.

DATA: t_excel_bckord LIKE t_excel OCCURS 0 WITH HEADER LINE,
      t_excel_bcklog LIKE t_excel OCCURS 0 WITH HEADER LINE,
      t_excel_blkord LIKE t_excel OCCURS 0 WITH HEADER LINE.
DATA: wa_excel_bckord LIKE LINE OF t_excel.
TYPES: data1(1500) TYPE c,
       ty          TYPE TABLE OF data1.

DATA: it        TYPE ty WITH HEADER LINE,
      it_2      TYPE ty WITH HEADER LINE,
      it_3      TYPE ty WITH HEADER LINE,
      rec       TYPE sy-tfill,
      deli(1)   TYPE c,
      l_amt(18) TYPE c.

DATA: BEGIN OF hex,
        tab TYPE x,
      END OF hex.