在PowerBuilder中利用自动化技术调用Excel处理与打印表格

)
OLE_MyExcel.ActiveCell.FormulaR1C1 = sle_2.text  //Sle_2为一个静态文本框控件
OLE_MyExcel.Range("J10").Select()
……
如果希望得到一系列数值的和，则需要首先使用Select()方法来指定需要求和的Cell的范围，然后指定存放和的Cell位置，最后调用SUM方法即可，如下：
OLE_MyExcel.Range(“A1:D1”).Select()
OLE_MyExcel.Range(“E1”).Activate()
OLE_MyExcel.ActiveCell.FormulaR1C1 = “=SUM(RC[-4]:RC[-1])”
当然还可以进行其他方面的设置，例如把字体设置为粗体（Bold），则可以编写如下代码：
OLE_MyExcel.Range(“A1:E1”).Select()
OLE_MyExcel.Selection.Font.Bold = True
至于其他的设置可以参考相关书籍。
至于表格的打印，则是简单的调用PrintOut()方法即可，但是需要首先指定打印的范围，如下是打印名为“Sheet1”的WorkSheet的代码：
OLE_MyExcel.Worksheets("sheet1").Activate()
OLE_MyExcel.ActiveSheet.PrintOut()
接下来是关于对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。这个问题只需要简单的对OLE_MyExcel.Application.DisplayAlerts属性进行设置即可，为True时弹出警告框，为False时不弹出警告框，保存所作的修改。
最后一步，在作完所有工作以后，需要关闭自动化对象，撤销与自动化服务器的连接，销毁OLE对象，因为使用自动化程序，尤其是Word或Excel这样的Office程序，所消耗的系统资源是很庞大的，因此在每次工作完成之后，需要释放这部分系统资源。如下：
OLE_MyExcel.Application.quit()
OLE_MyExcel.DisConnectObject()
destroy OLE_MyExcel
5 结束语
在使用了自动化技术以后，完满的解决了原来的表格处理问题，可以非常方便的对各种表格进行小批量的处理与打印，非常灵活。如果能够与企业的数据库结合起来，通过外部程序将数据成批输入，亦可解决大批量数据输出的问题，不失为一条好的解决方案。
在实际应用中，通过与企业数据库相结合，使用此方法自动填写了包含了大量数据的XLS文件，并可以通过打印机打印出来.

参考资料
[1]James Foxall 《Teaching yourself Visual Basic .NET in 24 hours》 Sams  11/2001
[2]梁科山，徐晓军，刘涛   《某企业的PDM系统设计方案书》
[3]PowerBuilder帮助文件

上一页  [1] [2]