ABAP OLE相关的应用

来源：互联网发布：linux怎么c语言编程编辑：程序博客网时间：2024/06/05 04:39

excel文件,最常用的一些OLE 知识如下:

冻结列或行

call method of excel_obj 'Range'= range_obj
exporting #1= 'D4'.
call method of range_obj 'Select' .
call method of excel_obj 'ActiveWindow' =window_obj.
set property of window_obj 'FreezePanes' =1.

此代码将excel从前三列和前三开始将窗体冻结

隐藏列

callmethod of excel_obj 'Columns' = column_obj
exporting #1= 'E:I' .
call method of column_obj 'Select' .
set property of column_obj 'Hidden' = 1.

增加批注

call method of excel_obj 'Range'= range_obj
exporting #1 = 'B5' .
call method of range_obj 'Select' .
call method of range_obj 'AddComment' exporting#1 = '系统注释:你可以查看zmb51'.

设置背景

call method of sheet_obj 'Range' = range_objexporting #1 = 'B5' .
call method of range_obj 'Interior' =Interior_obj.
set property of Interior_obj 'ColorIndex' = 3.

合并单元格

form set_cell_union using i j val.

CALL METHOD OF excel_obj 'Range' =range_obj
EXPORTING #1= i #2 = j .

SET PROPERTY OF range_obj 'MergeCells' =1.
SET PROPERTY OF range_obj 'Value' = val .
endform.

运行宏

perform runmacro using 'deleteRows'.

FORM runmacro USING macroname.
CALL METHOD OF excel_obj 'RUN'
EXPORTING
#1 = macroname.
ENDFORM.

设置边框(设置区域边框)

FORM set_cell_border2 using s e w.
CALL METHOD OF excel_obj 'Range' =range_obj
EXPORTING #1 = s
#2 = e.

GET PROPERTY OF range_obj 'Borders' =borders_obj .
SET PROPERTY OF borders_obj 'LineStyle' = '1'.
* SET PROPERTY OF borders_obj 'WEIGHT' =w.
FREE OBJECT borders_obj.
ENDFORM.