用VB创建复杂表格

用VB创建复杂表格

---- 数据库管理系统的开发人员经常感叹的一个问题就是：我们中国人的报表太复杂了！无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧，设计数据操作也固然需要一定的逻辑分析能力，但这些问题对一般的开发人员来说应该是不成为问题的。用户可是不管你采用了多么灵活的算法多么方便的操作，他们最感兴趣的是最后他们出来的报表如何漂亮，出报表的操作如何简单（最好是一个按钮解决所有的问题）。笔者在开发数据库管理系统方面也稍有些经验，从FoxPro、Delphi、PowerBuilder一直到现在用的VB，都遇到过设计打印报表的问题，这些软件在设计报表的过程中可谓各有千秋，我这里不一一细说。我在这里只向大家介绍一种我迄今为止最为满意的一种设计打印报表的方法：利用VB操作EXCEL来生成复杂的报表。

---- 一. 用VB创建外部EXCEL对象

---- 大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件，在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问，并且还提供对整个应用程序起作用的方法和属性。

---- 例如，每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft Excel的 Application 对象的引用：

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application

---- 然后，可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：

Set xlApp = CreateObject("Excel.Application")
‘激活EXCEL应用程序
xlApp.Visible = False ‘隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
‘打开工作簿，strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
‘设定工作表

---- 二. 用EXCEL 97设计报表的模版文件

---- EXCEL 97是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分和绘图功能基本上能够满足设计所有复杂报表的需求。它对任意一个单元格的格式随意控制，更为随心所欲地设计报表提供了强大的支持。

---- 根据用户提供的报表，我们可以很快在EXCEL里生成模版文件。所谓生成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表，但其格式都是一致的，并且随着时间和实际情况的变化，表格格式有可能需要改变，我们设计一个模版文件显然可以“以不变应万变”了。

---- 生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内要填充的数据字段。这样形成一个表格，在写程序时一目了然。如：

Cell(4,2) 职工姓名 Cell(6,6) 毕业学校
Cell(4,4) 职工性别 Cell(6,7) 所学专业
Cell(4,6) 职工民族 Cell(6,9) 工作时间
（表一）

---- 在程序里我们当然不要对模版文件进行操作了，我们只需要对模版文件的一个拷贝进行操作就行（这也是我们设计模版文件的一个目的和好处）。如下面的例子：

Dim strSource,strDestination As String
strSource = App.Path & "/Excels/RegisterFee.xls"　
‘RegisterFee.xls就是一个模版文件
strDestination = App.Path & "/Excels/Temp.xls"　
FileCopy strSource,strDestination
‘将模版文件拷贝到一个临时文件

---- 三. 生成工作表内容

---- 有了上述两步工作的铺垫，我们下面接着就只要根据（表一）的格式给各单元格赋值了。如：

　datPrimaryRS.Recordset.MoveFirst
‘datPrimaryRS为Data控件
　　If IsNull(datPrimaryRS.Recordset!姓名) = False Then
　　xlSheet.Cells(4,2) = datPrimaryRS.Recordset!姓名
　　End If
　　If IsNull(datPrimaryRS.Recordset!性别) = False Then
　　xlSheet.Cells(4,4) = datPrimaryRS.Recordset!性别
　　End If
　　If IsNull(datPrimaryRS.Recordset!民族) = False Then
　　xlSheet.Cells(4,6) = datPrimaryRS.Recordset!民族
　　End If
………………

---- 四. 打印报表

---- 生成了工作表后，就可以对EXCEL发出打印指令了。

---- 注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作，以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件，让用户觉得莫名其妙。如下语句：

xlBook.Save　‘保存文件
　　xlSheet.PrintOut　‘执行打印
　　xlApp.Quit　‘退出EXCEL

---- 至此读者应该看到，我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程，他们只看到一张张漂亮的报表轻易地被打印出来了。