如何用Excel控件制作简单报表-英雄云拓展知识分享

①报表的概念

这张报表包括了报表的基本元素，即页眉、页脚、横表头、竖表头、表头交叉区、单元格。

页 眉：位于报表的最上部份。作为报表的描写性信息，大致性的说明报表的名称、表号、批准机关、批准文号等。

页 脚：位于报表的最下部份，用于说明报表的其它信息，例如：单位负责人、部门负责人、制表人等信息。

横表头：也叫宾栏，位于报表的横方向的表头，它是统计的束缚条件，也多是描写信息。对统计表来讲横表头是可以分层的，并且上层的条件对它下面各层都起作用。

竖表头：也叫甲栏，报表竖方向的表头，它在统计表中与横表头起相同的作用，也是统计的束缚性条件，也多是描写性信息。在分层结构中，上层的条件对它下面各层都起作用。

表头交叉区：在报表的左上角，可以分栏说明报表的横表头和竖表头。

单元格：报表的主体部份。在统计报表中是其相对应横表头和竖表头的两个条件的统计情况，在查询表中是横表头的查询信息，也多是简单的计算统计结果。单元格内容在新建报表后是空的，要经过统计查询这一步来填充，在填充后也能够修改。

②Visual Basic中制作报表

Visual Basic中制作报表，通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer)，或使用第3方产品(如非常着名的Crystal Report)来完成并经过ActiveX控件输出。但对大多数程序员来讲，设计报表常常他们费尽心思。但是，我们可以有更简单的方法来满足他们的要求。由于Visual Basic的可扩大性,使用和融入Office2000的特质，包括Excel是相当方便的。Excel可以用作OLE服务器，向外部输出某些属性，方法和事件.Visual Basic可以利用这些功能，实现与Excel的集成。下面，我们来具体论述一个用VB来创建Excel报表的例子。

③Excel对象

微软的Excel对象模型包括了128个不同的对象，从矩形，文本框等简单的对象到透视表，图表等复杂的对象.下面我们简单介绍一下其中最重要，也是用得最多的4个对象.

A、Application对象

Application对象处于Excel对象层次结构的顶层，表示Excel本身的运行环境.

B、Workbook对象

Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件.

C、Worksheet对象

Worksheet对象包括于Workbook对象，表示一个Excel工作表.

D、Range对象

Range对象包括于Worksheet对象，表示Excel工作表中的一个或多个单元格.

④Access2000的报表解决方案

A、在Excel中做一个模板

在用Visual Basic生成Excel报表之前，应先依照用户的要求在Excel中做好一个模板，包括页眉，页脚，表头等等。

B、在VB中创建Excel对象，打开Excel文件

和其它的第3方控件一样，使用之前必须援用或作为部件导入。要在VB中创建和作用Excel对象，就必须先援用Microsoft Excel 9.0 object library。然后我们就能够在VB的编程操作Excel对象了。

关键代码入下：

Dim excelFile As String

excelFile = App.Path & "myReport.xls" 'Excel文件名

'定义内涵Excel的Application对象,Application对象相当于Excel程序

Dim xlApp As Excel.Application

'定义内涵Excel的Workbook对象，Workbook对象相当于Excel文件

Dim xlbook As Excel.Workbook

'定义内涵Excel的Worksheet对象，Worksheet对象相当于Excel文件中的一个表

Dim xlsheet As Excel.Worksheet

'给Application分配内存空间，将其实例化

Set xlApp = New Excel.Application

'创建Application对象

Set xlApp = CreateObject("Excel.Application")

'隐藏被VB打开的Excel程序

xlApp.Visible = False

'打开工作簿，excelFile为一个EXCEL报表文件

Set xlbook = xlApp.Workbooks.Open(excelFile)

'打开Excel工作表

Set xlsheet = xlbook.Worksheets(1)

C、控制Excel工作表，对其进行编辑

如果是经过ADO打开了一个记录集，想把记录集中的数据显示在单元格中，关键代码为：

Do Until rs.EOF

For i = 0 To rs.Fields.Count - 1

xlsheet.Cells(j + 1, i + 1) = rs.Fields(i)

Next

rs.MoveNext

j = j + 1

Loop