如何在PB中嵌入Excel对象

Excel具有较强的数据显示与处理能力，如果在进行程序开发时，将PowerBuilder的数据库数据的存取能力与Excel结合起来，如将数据检索出来后，按照格式要求，将数据转入到Excel表格中进行处理和显示，甚至打印，将起到较大的效果。本文就介绍了一个通用办法，虽然该方法所使用的PB版本较低，但可以参考不经过任何修改就可以移植到其它版本的PB中来。具体实现步骤如下：

1.创建并连接对象：

oleobject loo_excel

oleobject loo_sheet

loo_excel=create oleobject

loo_excel.ConnectToNewObject("Excel.Application")

//设置缺省的字体与大小

loo_excel.Application.StandardFont = "Arial Narrow"

loo_excel.Application.StandardFontSize = "8"

loo_excel.Application.Workbooks.Add()

loo_sheet=loo_excel.Application.Workbooks(1).worksheets(1)

loo_excel.Application.Visible=true

loo_excel.Application.ScreenUpdating = false     //屏蔽可见属性

2.调用Excel本身的属性，函数，通过数据窗口填写数据到Excel：

loo_excel.Application.ScreenUpdating = true //设置可见属性

3.断开连接并释放对象：

loo_excel.DisconnectObject()

//注：建议引用API函数，捕获Handle。

destroy loo_excel

以上程序已在PB6.0、Windows 98平台上运行通过。