学习

以要将KNA1(Customer General Data)中的资料存入EXCEL的存格(CELL)为例:

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.