ABAP利用OLE2_OBJECT实现将数据输出到Excel单元格
2009-01-08 12:13
323 查看
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.
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单元格
- 数据结构栈,利用栈实现字符串逆序输出
- ASP.NET MVC中 Jquery AJAX 获取数据利用MVC模型绑定实现输出
- object-c 利用scanf 实现终端的输入输出缓冲
- 请修改append 函数,利用这个函数实现:两个非降序链表的并集,1->2->3 和2->3->5 并为1->2->3->5 另外只能输出结果,不能修改两个链表的数据。
- ASP.NET MVC中 Jquery AJAX 获取数据利用MVC模型绑定实现输出
- 利用8255A实现四位数据的显示输出
- 如何利用s3c2440的gpio实现数据输入和输出
- Effective C# 学习笔记(四十一)使利用DynamicObject或IDynamicMetaObjectProvider接口实现数据驱动的动态类型
- 利用object.defineProperty实现数据与视图绑定
- 对jsp的一个小结(1)搭建web应用环境、用jsp实现输出、实现数据传递
- 利用with关键字实现数据查询的递归调用
- 利用URLrewrite实现伪静态地址输出
- 利用Ajax实现前端与.net后端实现数据交互
- 利用PHP-ExcelReader实现PHP导入Excel数据[不通过CSV]
- 利用Python实现分布于各工作空间中的分幅数据合并
- 利用HttpClient和Jsoup实现从网站中抓取数据
- Java Web获取数据库数据,利用jxl实现数据导出成Excel文件
- 利用string来输入输出数据。
- 利用fstream实现输出到磁盘的迭代器