OLE操作EXCEL.docVIP

OLE操作EXCEL PB调用EXCEL的操作不失为一种好的报表输出方式 收藏 对于较为中国化的报表,虽然后dw这个坚强后盾，但是也难不住繁复疲劳的应对。 不过我们可以知道，数据的输出，都是居于table的栏位或者计算字段。只是很多统计的模式和展现模式不同。 我在一年前作完一个系统，可是客户几乎隔三差五有新的东东要输出报表。终于我发现。让客户先在excel里弄好，然后再写程序来输出也是一个不错的方法。关键是，客户给的东西不必要再进自己的系统，所以数据不会发生什么问题。如果本身软件有任何问题，那能从excel里的写的结果很容易看得出来。虽然写excel表格要花很多时间，但是减少了输入导入和输出的一些麻烦。 转载excel操作大全： powerbuilder操作excel命令大全(例子的有些地方不对！) 2006-12-04 16:43 1．创建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=.t. 　　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 　　18．设置顶边距为2厘米 　　eole.ActiveSheet.PageSetup.TopMargin=2/0.035 　　19．设置底边距为4厘米 　　eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 　　20．设置左边距为2厘米 　　veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 　　21．设置右边距为2厘米 　　eole.ActiveSheet.PageSetup.RightMargin=2/0.035 　　22．设置页面水平居中 　　eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 　　23．设置页面垂直居中 　　eole.ActiveSheet.PageSetup.CenterVertically=.t. 　　24．设置页面纸张大小(1－窄行8 5 11 39－宽行14 11) 　　eole.ActiveSh