Question

如何利用OLEObject对象在PowerBuilder中操作复杂Excel报表文件

Answer 1

PB中操作Excel的技巧集

　eole=CREATEOBJECT("Excel.application")
2．添加新工作簿
　eole.Workbooks.add
3．设置第3个工作表为激活工作表
　eole.Worksheets("sheet3").Activate
4．打开指定工作簿
eole.Workbooks.Open("c:\temp\ll.xls")
5．显示Excel窗口
eole.visible=True
6．更改Excel标题栏
eole.Caption=″VFP应用程序调用Microsoft Excel″
7．给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名)
8．设置指定列的宽度(单位：字符个数)
　eole.ActiveSheet.Columns(1).ColumnWidth=5
9．设置指定行的高度(单位：磅)
　eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (设定行高为1厘米，1磅=0.035厘米)
10．在第18行之前插入分页符
　 eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1
11．在第4列之前删除分页符
　eole.ActiveSheet.Columns(4).PageBreak=0
12．指定边框线宽度(Borders参数如下)
　ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13．设置四个边框线条的类型
　 eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
　 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
14．设置页眉
　 eole.ActiveSheet.PageSetup.CenterHeader=″报表1″
15．设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=″第＆P页″
16．设置页眉到顶端边距为2厘米
　 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．设置页脚到底边距为3厘米
　 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035