ABAP利用OLE2_OBJECT实现将数据输出到Excel单元格
REPORT? ZEXCEL_ZLT.
INCLUDE OLE2INCL.
****定義OLE對象****
DATA: APPLICATION TYPE OLE2_OBJECT, "定義EXCEL對象
WORKBOOK TYPE OLE2_OBJECT, "定義工作區對象
WORKSHEET TYPE OLE2_OBJECT. "定義具體的SHEET對象
DATA CELL TYPE OLE2_OBJECT. "定義CELL對象
****存儲每個CELL值得變量****
DATA: VAL1(30) TYPE C.
****每個CELL的位置****
DATA: R1 TYPE I,
R2 TYPE I.
****創建EXCEL對象*****
CREATE OBJECT APPLICATION 'Excel.Application'.
****創建工作區對象*****
CALL METHOD OF APPLICATION 'Workbooks' = WORKBOOK.
*******************以下是新增一個SHEET操作********************
SET PROPERTY OF APPLICATION 'SheetsInNewWorkbook' = 1.
CALL METHOD OF WORKBOOK 'ADD' = WORKSHEET.
CALL METHOD OF WORKSHEET 'ACTIVATE'.
****向EXCEL中寫入數據****
R1 = 1.
R2 = 2.
VAL1 = 'CON'.
CALL METHOD OF APPLICATION 'CELLS' = CELL
EXPORTING
#1 = R1
#2 = R2.
SET PROPERTY OF CELL 'VALUE' = VAL1.
****保存文件****
CALL METHOD OF worksheet 'SAVEAS'
EXPORTING #1 = 'C:/file.xls'
#2 = 1.
****關閉WORKSHEET****
CALL METHOD OF WORKSHEET 'CLOSE'.
****關閉WORKBOOK****
CALL METHOD OF WORKBOOK 'CLOSE'.
****關閉EXCEL對象****
CALL METHOD OF APPLICATION 'QUIT'.
FREE OBJECT CELL.
FREE OBJECT WORKSHEET.
FREE OBJECT WORKBOOK.
FREE OBJECT APPLICATION.
總結
以上是生活随笔為你收集整理的ABAP利用OLE2_OBJECT实现将数据输出到Excel单元格的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: SAP歷史更改記錄函數
- 下一篇: function收集