1.ole 如何保存和退出
call method of sheetname 'saves'
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. "1显示EXCEL,0不显示EXCEL
5.创建workbook
call method of
excel
'WORKBOOKS' = WORKBOOK.
CALL METHOD OF
WORKBOOK
'ADD'.
*&=====================================================================
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.如何操作范围内的单元格。/RANGE也为已经定义好的OLE2_OBJECT.
CALL METHOD OF RANGE 'select '.
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录制宏来寻找相关的关键字。