基于VB和EXCEL的复杂数据报表输出.pdfVIP

第15卷第1期 华北航天工业学院学报 V01．15No．1 2005年3月 JournalofNorthChinaInstituteofAstmnauticEngineering Mar．2(×)5 基于VB和ExCEL的复杂数据报表输出 魏彩乔 王晓光 焦满囤 (华北航天工业学院机械工程系，河北廊坊065000) 摘要：针对vB开发管理信息系统过程中遇到的报表处理问题，结合一个具体实例，介绍如何在VB6．O中用 Excel 2000实现复杂报表输出的具体方法，重点是数据的填充与格式的编程控制。 Ser、rer2000 关键词：数据报表；Excel；VB；sQL 中图分类号：TP391．13文献标识码：A 文章编号：1009—2145(2005)01一0003—02 Excel9．o 在利用VB进行应用软件开发中，经常会遇到 用”，我们引用Microsoft Libra。y以便调用 xDataOb． 需要输出一些复杂报表的情况，比如设计绿色度评 Excel的事件方法，通过ADO(Ac—tive server 价系统时，要输出图1式样的报表，该报表不仅包含 2000数据库，数据使用sQL ject)访问sQL 了一般报表的各部分组成，而且表中有表。一般情 语句来获得。 况下，可以采用VisualBasic6．0提供的一个设计器 Data reDort来完成一个报表模板的设计，它适于制 作不带表格的报表；但它必须和VB提供的数据环 境设计器结合使用，用户对其控制相当麻烦，为解决 这些问题，本人在VB6．0开发的绿色度评价系统中 尝试了用Excel制作的表格为模板，通过VB控制实 现复杂格式报表的打印输出，并得到了较满意的结 果，下面就有关问题作一简单介绍。 1 创建OLE对象实例、定义初始化B(ceI的对象 在VB中可以利用OLE技术访问Excel、调用 Excel的事件方法，完成报表的制作。利用Excel实 图1评价结果输出报表 现数据报表制作的关键在于如何根据报表要求的格 式将数据快速准确地输出到Excel。微软的Excel 的代码如下： 对象模型中经常使用的四个对象有：Application对 Dim As 象，它处于Excel对象层次结构的顶层，表示Excel x1AppExcel．Application DimxlbookAsExcel．Workbook 自身的运行环境；workbook对象，它直接地处于 DimxlsheetAsExcel．Worksheet Application对象的下层，表示一个Excel工作簿文 set 件；worksheet对象，它包含于workbook对象，表示 Set 一个Excel工作表；Range对象，它包含于workshe． et对象，表示Excel工作表中的一个或多个单元格。