学习

REPORT  EXCEL.

INCLUDE  OLE2INCL.

DATA:  APPLICATION    TYPE  OLE2_OBJECT,

         WORKBOOK     TYPE  OLE2_OBJECT,

         SHEET          TYPE  OLE2_OBJECT,

         CELLS          TYPE  OLE2_OBJECT.

CREATE  OBJECT  APPLICATION  ‘Excel.application’.

SET  PROPERTY  OF  APPLICATION  ‘Visible’  =  1.

*  宣告一EXCEL工作底槁档(WORKBOOK)

CALL  METHOD  OF  APPLICATION  ‘Workbooks’  =  WORKBOOK.

*  增加一新的工作表(SHEET)，编号是 1 号

CALL  METHOD  OF  WORKBOOK  ‘Add’.

CALL  METHOD  OF  APPLICATION  ‘Worksheets’  =  SHEET

                       EXPORTING  #1  =  1.

*  设定此工作表开启使用

CALL  METHOD  OF  SHEET  ‘Activate’.

PERFORM  FILL_SHEET.

FREE  APPLICATION.

*----------------------------------------------------------------------------------------------------------------

FORM  FILL_SHEET.

DATA: ROW_MAX  TYPE  I  VALUE  256,

       ROWS      TYPE  I  VALUE  1.

       INDEX      TYPE  I.

FIELD-SYMBOLS:  <NAME>.

SELECT  *  FROM  KNA1.

   ROWS  =  ROWS  +  1.  “至第ROWS列

   INDEX  =  ROW_MAX  *  ( ROWS  -  1  )  +  1.

   DO  10  TIMES.  “如要每一列放入10个存格的资料

      ASSIGN  COMPONENT  SY-INDEX  OF  STRUCTURE  KNA1

          TO  <NAME>.

      CALL  METHOD  OF  SHEET  ‘Cells’  =  CELLS

          EXPORTING  #1  =  INDEX.

      SET  PROPERTY  OF  CELLS  ‘Value’  =  <NAME>.

      ADD  1  TO  INDEX.

       ENDDO.

    ENDSELECT.