在进行程序开发时,有时会需求将PowerBuilder与Excel使用程序结合使用,如将数据检索出来后,按照格式要求,将数据转入到Excel表格中。实现步骤如下:
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