OLE操作EXCEL

最新推荐文章于 2014-04-16 15:35:57 发布

jy00873757

最新推荐文章于 2014-04-16 15:35:57 发布

阅读量5.6k

点赞数

分类专栏： ABAP基础文章标签： excel ole

本文链接：https://blog.youkuaiyun.com/jy00873757/article/details/8553725

版权

本文介绍了如何利用OLE技术进行EXCEL操作，包括新建Excel文件，改变字体颜色，填充单元格颜色等。同时，针对在保存时出现的文件已存在对话框问题，作者解释了这是由于Excel的工作区保存了文件布局，并提供了相应的解决方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近知道了OLE这个概念, 打算学习学习

新建excel, 改变字体颜色, 填充单元格颜色; 下面两段代码效果一样

代码1

PARAMETERS: pr_xls(64) TYPE c DEFAULT 'D:\ZEROTEST.XLS'.

INCLUDE ole2incl.
DATA: excel     TYPE ole2_object,
      workbook  TYPE ole2_object,
      sheet     TYPE ole2_object,
      cell      TYPE ole2_object,
      row       TYPE ole2_object,
      font      TYPE ole2_object,
      int       TYPE ole2_object.

DATA: lv_rc TYPE c.

CREATE OBJECT excel 'EXCEL.APPLICATION'.

GET PROPERTY OF excel 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'ADD'.

CALL METHOD OF excel 'Worksheets' = sheet
  EXPORTING #1 = 1.
CALL METHOD OF sheet 'Activate'. " should be active otherwise can't be saved
SET PROPERTY OF sheet 'Name' = 'Sheet1'.

* Select cell and modify font color
CALL METHOD OF sheet 'CELLS' = cell
  EXPORTING #1 = 2 #2 = 3.
CALL METHOD OF cell 'FONT' = font.
SET PROPERTY OF font 'SIZE' = '24'.
SET PROPERTY OF cell 'VALUE' = 'zero' .
SET PROPERTY OF font 'COLORINDEX' = '4'.
FREE OBJECT CELL.

* Fill the cell color
CALL METHOD OF sheet 'CELLS' = cell
  EXPORTING #1 = 2 #2 = 4.
CALL METHOD OF cell 'INTERIOR' = int.
SET PROPERTY OF int 'ColorIndex' = '4'.


*  release and exit Excel.
CALL METHOD OF sheet 'SAVEAS'
  EXPORTING
  #1 = pr_xls.
CALL METHOD OF excel 'QUIT'.

*  Free all objects
FREE OBJECT font.
FREE OBJECT cell.
FREE OBJE

最低0.47元/天解锁文章