逐行写出Excel文件

REPORTZ_EXPORT_EXCEL.

INCLUDEOLE2INCL.

DATA:APPLICATIONTYPEOLE2_OBJECT,
WORKBOOKTYPEOLE2_OBJECT,
SHEETTYPEOLE2_OBJECT,
CELLSTYPEOLE2_OBJECT.

CONSTANTS:ROW_MAXTYPEIVALUE256.

DATAINDEXTYPEI.

DATA:BEGINOFITABOCCURS0,
FIRST_NAME(10),
LAST_NAME(10),
ADDRESS(100),
ENDOFITAB.

START-OF-SELECTION.

"Adddatatoitab

ITAB-FIRST_NAME='123445'.
ITAB-LAST_NAME='tesst'.
ITAB-ADDRESS='中國'.
APPENDITAB.
CLEARITAB.

ITAB-FIRST_NAME='ABCDE'.
ITAB-LAST_NAME='tessasdfasdft'.
ITAB-ADDRESS='中國中山'.
APPENDITAB.
CLEARITAB.

ITAB-FIRST_NAME='123456'.
ITAB-LAST_NAME='tessasdfasdft'.
ITAB-ADDRESS='中國中山'.
APPENDITAB.
CLEARITAB.


CREATEOBJECTAPPLICATION'excel.application'.
SETPROPERTYOFAPPLICATION'visible'=1.
CALLMETHODOFAPPLICATION'Workbooks'=WORKBOOK.
CALLMETHODOFWORKBOOK'Add'.


CALLMETHODOFAPPLICATION'Worksheets'=SHEET
EXPORTING
#1=1.

CALLMETHODOFSHEET'Activate'.
SETPROPERTYOFSHEET'Name'='Sheet1'.

"写标题
INDEX=1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.

SETPROPERTYOFCELLS'Value'='Field1'.

INDEX=INDEX+1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.
SETPROPERTYOFCELLS'Value'='Field2'.

INDEX=INDEX+1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.
SETPROPERTYOFCELLS'Value'='Field3'.

"写数据
LOOPATITAB.
INDEX=ROW_MAX*SY-TABIX+1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.
SETPROPERTYOFCELLS'Value'=ITAB-FIRST_NAME.

INDEX=INDEX+1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.
SETPROPERTYOFCELLS'Value'=ITAB-LAST_NAME.

INDEX=INDEX+1."1-columnname
CALLMETHODOFSHEET'Cells'=CELLS
EXPORTING
#1=INDEX.
SETPROPERTYOFCELLS'Value'=ITAB-ADDRESS.
ENDLOOP.


*保存文件
CALLMETHODOFSHEET'SaveAs'
EXPORTING
#1='c:tempexceldoc1.xls'"filename
#2=1."fileFormat