[OLE]OLE 常用方法和属性

因为实在不喜欢原作者博文的字体和颜色，直接转载没法修改，所以这里copy出一份来。

原文地址：http://blog.sina.com.cn/s/blog_5ccd375b0100kf8h.html
支持并尊重原作者版权。

1.ole中如何保存和退出。
call method of sheetname 'saveas' exporting #1 = filepath #2
=1.
call method of applicationname 'quit'.

2.给sheet重命名。
call method of sheetname 'name' = 'sheetname'.

3.创建application.
call method of XXX 'excel.application'.

4.设置XXX的显示模式。
set property of XXX 'visible' = 1. 前台运行。为0时表示为后台运行。

5.创建workbook.
CALL METHOD OF EXCEL 'WORKBOOKS' = WORKBOOK .
call method of workbook 'ADD'.

6.在一个workbook中添加一个worksheet.
CALL METHOD OF applicationname 'sheets' = worksheet.
call method of worksheet 'Add' .

7.给单元格赋值。
CaLL METHOD OF EXCEL 'CELLS' = CELL
    EXPORTING
      #1 =
2
      #2 =
2.
Set PROPERTY OF CELL 'value' =  xxxx.

8.指定要被操作的sheet.
CALL METHOD OF applicationname 'Worksheets' = SHEET
    EXPORTING
      #1 =
'sheet3'.   这里sheet3为要操作的sheet的名字。
call method of sheet 'Activate '.

9.指定操作的单元格的范围。
  CALL METHOD OF applicationname 'Range' =
range
    EXPORTING
      #1 =
'B2'
      #2 =
'c2'.

10. 如何操作范围内的单元格。
  call method of range 'select '.
  range也为已经定义好的ole2_object.
  Set PROPERTY OF range
 'MergeCells' = 0 .
 合并单元格，0时不合并，1则合并。与前面一起使用
  Set PROPERTY OF range
 'HorizontalAlignment' = 10 .
  Set PROPERTY OF range
 'VerticalAlignment' = -4108
 .

11.单元格内部属性的操作.
  call method of cell 'INTERIOR' = int.
  set property of int 'ColorIndex' = color.
 颜色
  set property of int 'Pattern' =
pattern.

12.单元格内字体的操作.
  call method of CELL 'FONT' = font.
  set property of font 'BOLD' = bold.
  set property of font 'SIZE' = size.

13.边框的操作.
  call method of CELL 'BORDERS' =
BORDERS
    EXPORTING
      #1 =
'1'. 1-left  2-right 3-top 4-bottom
  set property of borders 'Linestyle' =
plinestyle .
  set property of borders 'Weight' = pweight
.
  free object borders.
  在此之前应该指定range.

14.复制与粘贴.
call method of sheet 'copy'.
call method of sheet 'paste'.

15.一点注意。
在操作sheet时，默认为上次操作的sheet.如果想更换，参考8。

16。一个问题。有时输入数据如111111111111111111，会显示为1E+17。
    解决办法：
  CALL METHOD OF h_excel 'COLUMNS' =
columnObj
    EXPORTING
      #1 =
6.  "the column number
  SET PROPERTY OF columnObj 'ColumnWidth' =
10.
  SET PROPERTY OF columnObj 'NumberFormat' =
'@'.

17。打开一个workbook.
call METHOD OF workbook 'Open' EXPORTING #1 =
filename+path.

18.  所有的操作方法都可以在sell----表 oleload 中
查询到。

19.  执行宏。
CALL METHOD OF EXCEL 'RUN' EXPORTING #1 = 'ZMACRO2'.

20。清除range 内容
  CALL METHOD OF EXCEL 'Range' = RANGE
    EXPORTING
    #1 = tar_cell
    #2 = tar_cell.
  call METHOD of RANGE 'ClearContents'.

21  合并单元格

  CALL METHOD OF EXCEL 'Range' = RANGE
    EXPORTING
    #1 = sor_cell
    #2 = tar_cell.
  SET PROPERTY OF RANGE 'MergeCells' =
1.

22。 缩小字体填充
SET PROPERTY OF range 'ShrinkToFit' = 0 .
note: 为0时取消缩小字体填充，为1时设置缩小字体填充。

 

 note:

1.与ole相关的关键字存储在表oleload中。

2.如果有些ole方法不熟悉，可以利用vba录制宏来寻找相关的关键字。

@20121116：Tools → Macro → Visual Basic Editor → Object
Browser.