Excel具有較強(qiáng)的數(shù)據(jù)顯示與處理能力，如果在進(jìn)行程序開(kāi)發(fā)時(shí)，將PowerBuilder的數(shù)據(jù)庫(kù)數(shù)據(jù)的存取能力與Excel結(jié)合起來(lái)，如將數(shù)據(jù)檢索出來(lái)后，按照格式要求，將數(shù)據(jù)轉(zhuǎn)入到Excel表格中進(jìn)行處理和顯示，甚至打印，將起到較大的效果。本文就介紹了一個(gè)通用辦法，雖然該方法所使用的PB版本較低，但可以參考不經(jīng)過(guò)任何修改就可以移植到其它版本的PB中來(lái)。具體實(shí)現(xiàn)步驟如下：

1.創(chuàng)建并連接對(duì)象：

oleobject loo_excel

oleobject loo_sheet

loo_excel=create oleobject

loo_excel.ConnectToNewObject("Excel.Application")

//設(shè)置缺省的字體與大小

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     //屏蔽可見(jiàn)屬性

2.調(diào)用Excel本身的屬性，函數(shù)，通過(guò)數(shù)據(jù)窗口填寫數(shù)據(jù)到Excel：

loo_excel.Application.ScreenUpdating = true //設(shè)置可見(jiàn)屬性

3.斷開(kāi)連接并釋放對(duì)象：

loo_excel.DisconnectObject()

//注：建議引用API函數(shù)，捕獲Handle。

destroy loo_excel

以上程序已在PB6.0、Windows 98平臺(tái)上運(yùn)行通過(guò)。