如何在ABAP中调用OFFICE .XLS与.TXT格式

 

ABAP中调用EXCEL，也会有几种形式

（1）新建一张空白的EXCEL的表格：

*INCLUDE OLE2INCL.
*
*tables:
*  kna1.
*
*DATA:
*  APPLICATION TYPE OLE2_OBJECT,
*  WORKBOOK TYPE OLE2_OBJECT,
*  SHEET TYPE OLE2_OBJECT,
*  CELLS TYPE OLE2_OBJECT,
*
*  begin of inner_tab occurs 0,
*    index type i,
*    kunnr like kna1-kunnr,
*  end of inner_tab.
*
*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_SHEET1.
*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 'Val