在进行程序开发时,有时会需要将 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