数据库管理系统的开发人员经常被编制复杂的报表所困扰，VB的水晶报表可以设计简单的报表，但是设计出的报表缺乏灵活性。我利用VB操作EXCEL2000来生成复杂的报表。
用VB创建外部EXCEL对象
Microsoft Office应用程序提供了一个顶层Application 对象。下面语句显示了对Microsoft Excel的Application 对象的引用，用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。：
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(strDestination)
Set xlSheet = xlBook.Worksheets(1)
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(strDestination)
Set xlSheet = xlBook.Worksheets(1)
用EXCEL 2000设计报表的模版文件
EXCEL 2000是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分功能基本上能够满足设计复杂报表的要求。它对任意一个单元格的格式随意控制，因此它为设计复杂报表提供了强大的支持。
根据用户提供的报表，我们可以很快在EXCEL里生成模版文件。模版文件只是为了满足用户多方面的需求而设计的。并且随着时间和实际情况的变化，表格格式有可能需要改变，我们设计一个模版文件可以“以不变应万变”了。在程序里我们不要对模版文件进行操作，我们只需要对模版文件的一个拷贝进行操作就行。程序代码如下：
Dim strSource, strDestination As String
strSource = App.Path & "//Excels//dangan.xls"
strDestination = App.Path & "//Excels//Temp.xls"
FileCopy strSource, strDestination
Set mobjExcel = New Excel.Application
Set mobjExcel = CreateObject("Excel.Application")
mobjExcel.Visible = False
Set mobjworkbook = mobjExcel.Workbooks.Open(strDestination)
Set xlsheet = mobjworkbook.Worksheets(1)
If Not opendatasource() Then
MsgBox "不能打开数据源!", , "提示"
Unload Me
Exit Sub
End If
Private Function opendatasource()
ssql="select shgt_dah,shgt_yth,shgt_ajtm,shgt_chtrq,
shgt_shjdw,shgt_wzysh,shgt_tzzhsh,shgt_gdrq,shgt_bz from shgtajb"
OpenResultset ssql, mrdors
opendatasource = True
Exit Function
End Function
strSource = App.Path & "//Excels//dangan.xls"
strDestination = App.Path & "//Excels//Temp.xls"
FileCopy strSource, strDestination
Set mobjExcel = New Excel.Application
Set mobjExcel = CreateObject("Excel.Application")
mobjExcel.Visible = False
Set mobjworkbook = mobjExcel.Workbooks.Open(strDestination)
Set xlsheet = mobjworkbook.Worksheets(1)
If Not opendatasource() Then
MsgBox "不能打开数据源!", , "提示"
Unload Me
Exit Sub
End If
Private Function opendatasource()
ssql="select shgt_dah,shgt_yth,shgt_ajtm,shgt_chtrq,
shgt_shjdw,shgt_wzysh,shgt_tzzhsh,shgt_gdrq,shgt_bz from shgtajb"
OpenResultset ssql, mrdors
opendatasource = True
Exit Function
End Function
生成工作表内容
有了上述两步工作的铺垫，我们只要根据模板的格式给各单元格赋值如：
Do while Not mrdors.Eof i=4 For j=0 to mrdors.rdocolumns.count-2 MobjExcel.Activesheet.cells（i，j+1）。value=mrdors.rdocolumns（j）。Value Next Mrdors.movenext Loop
打印报表
生成了工作表后，就可以对EXCEL发出打印指令了。在执行打印操作之前应该对EXCEL临时文件执行一次保存操作，以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件。如下语句：
xlBook.Save xlSheet.PrintOut xlApp.Quit
·本文关键字： VB / Excel2000 / 复杂报表打印
推荐阅讯
- 继往开来 Visual Baisc 2005初体验
- VBScript教程第三课 VBScript数据类型
- 用Visual Basic.NET编写扑克牌游戏
- 在VB的ListView控件中动态加载记录
- 如何编写高质量的VB代码
- 仅用一条指令实现界面换肤和多语言版本
- VBScript教程第六课 VBScript运算符
- VB中利用ccrpHotKey控件设置热键
- VBScript 遍历表单元素 简化数据操作代码
- VB.NET使用OracleTransaction处理事务
阅读排行
- 1.通过实例学VB—创建简单的个人通讯录
- 2.如何编写高质量的VB代码
- 3.在VB的ListView控件中动态加载记录
- 4.用VB备份和恢复SQL Server数据库的方法
- 5.利用VB学做“黑客”程序
- 6.掌握VB中的ADO数据对象编程
- 7.将程序加入启动组
- 8.VB程序中用ADO对象动态创建数据库和表
- 9.VB与Excel2000实现复杂报表打印
- 10.六天学会Visual Basic数据库编程
专题教程
- 大话G游 专题：手机病毒揭密
- ARP攻击防范与解决方案 路由故障处理手册
- Picasa中文版_Picasa教程 专题：清除流氓软件
- Firefox专题 seo搜索引擎优化专区
- 重装Windows必知的事情 装机之必备软件大行动
病毒专杀栏