) 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]
Tags:
|