利用VB设计打印复杂报表

文章作者 100test 发表时间 2007:03:10 17:58:55
来源 100Test.Com百考试题网

Ａ---- 一. 用VB创建外部EXCEL对象
---- 大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件，在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问，并且还提供对整个应用程序起作用的方法和属性。
---- 例如，每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft office/9.shtml’ target=’_blank’ class=’article’>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) 工作时间
（表一）