pb通过ole来控制excel

《pb通过ole来控制excel》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、在开发过程中有一些复杂的报表尤其是中国式的报表，用pb的数据窗口来实现非常麻烦甚至实现不了，我们可以换一种方式通过操作excel来实现。实现的原理是先在pb脚本中检索或计算出报表中的各项数据，然后把它们一个萝卜一个坑的赋值到单元格中。pb通过ole对象来控制excel的步骤如下：1、创建连接到excel应用的ole对象OleObjectole_excelole_excel=createOleObjectIfole_excel.ConnectToNewObject("Excel.Application")<>0Then    M

2、essageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)    Destroyold_excel    ReturnEndIf2、打开指定的excle文件ole_excel.Application.Workbooks.Open("excel文件")3、操作excel单元格excel单元格有一系列的操作，它们的使用格式一般如下：ole对象.ActiveWorkBook.Sheets("工作表名").操作对象.动作或属性读取或赋值工作表1中单元格的格式：ole_excel.Ac

3、tiveWorkBook.Sheets("工作表1").cells[1,1].value合并工作表1中的第ll_rows_buget行的A列到I列的单元格：ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Merge，还有如下一些与合并单元格相类似的动作或属性.HorizontalAlignment=xlGeneral    //单元格的横向对齐方式.VerticalAlignm

4、ent=xlBottom         //单元格的纵向对齐方式(1、2左，3居中,4右).WrapText=True                              //自动换行.Orientation=0   AddIndent=False   ShrinkToFit=False   .MergeCells=False  设置工作表1中的第ll_rows_buget行的A列到I列的单元格四周为实现边框ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string

5、(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(1).LineStyle=1ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(2).LineStyle=1ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+s

6、tring(ll_rows_buget)).Borders(3).LineStyle=1ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(4).LineStyle=1第ll_rows_buget行从A到I单元格的背景色和字体颜色设置如下：ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows

7、_buget)+":I"+string(ll_rows_buget)).Interior.ColorIndex=48     //背景色为棕黑色ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Font.ColorIndex=3     //字体颜色为红色有一点需要注意的是单元格的背景色和字体颜色的属性ColorIndex不能超过56，否则程序崩溃，自动退出。ColorIndex

8、=0为白色，ColorIndex=56则接近黑色，其他颜色请自行摸索，我也不太清楚4、保存excel文件，退出excel，并销毁ole对象ole_excel.ActiveWorkBook.save()ole_excel.Application.Quit()Destroyole