利用Visual Basic设计打印复杂报表

  次阅读 作者:智能小宝 来源:互联网 2016-01-19 12:48 我要评论(0)

一.用VB创建外部EXCEL对象

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

例如,每个MicrosoftOffice应用程序提供一个顶层Application对象。下面语句显示了对 Microsoftoffice/9.shtml'target='_blank'class='article'>Excel的 Application对象的引用:

DimxlAppAsExcel.Application

SetxlApp=NewExcel.Application

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

SetxlApp=CreateObject("Excel.Application")

激活EXCEL应用程序

xlApp.Visible=False 隐藏EXCEL应用程序窗口

SetxlBook=xlApp.Workbooks.Open(strDestination)

打开工作簿,strDestination为一个EXCEL报表文件

SetxlSheet=xlBook.Worksheets(1)

设定工作表

二.用EXCEL97设计报表的模版文件

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

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

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

Cell(4,2)职工姓名Cell(6,6)毕业学校

Cell(4,4)职工性别Cell(6,7)所学专业

Cell(4,6)职工民族Cell(6,9)工作时间

(表一)

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

DimstrSource,strDestinationAsString

strSource=App.Path&"ExcelsRegisterFee.xls"

RegisterFee.xls就是一个模版文件

strDestination=App.Path&"ExcelsTemp.xls"

FileCopystrSource,strDestination

将模版文件拷贝到一个临时文件

三.生成工作表内容

有了上述两步工作的铺垫,我们下面接着就只要根据(表一)的格式给各单元格赋值了。如:

datPrimaryRS.Recordset.MoveFirst

datPrimaryRS为Data控件

IfIsNull(datPrimaryRS.Recordset!姓名)=FalseThen

xlSheet.Cells(4,2)=datPrimaryRS.Recordset!姓名

EndIf

IfIsNull(datPrimaryRS.Recordset!性别)=FalseThen

xlSheet.Cells(4,4)=datPrimaryRS.Recordset!性别

EndIf

IfIsNull(datPrimaryRS.Recordset!民族)=FalseThen

xlSheet.Cells(4,6)=datPrimaryRS.Recordset!民族

EndIf

四.打印报表

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

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

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 英国研发“杀生”机器人 通过生命体获取能量

    英国研发“杀生”机器人 通过生命体获取能量

  • 韩春雨称已能重复实验结果 近期将有消息公布

    韩春雨称已能重复实验结果 近期将有消息公布

  • 无人驾驶汽车如何改变城市生活?听听他们怎么说

    无人驾驶汽车如何改变城市生活?听听他们怎么说

  • 未来两年人工智能要怎么走?看这篇就够了

    未来两年人工智能要怎么走?看这篇就够了

网友点评网友点评
阅读推荐阅读推荐

据国外媒体报道,在过去两年内,聊天机器人(chatbot)、人工智能以及机器学习的研发和采用取得了巨大进展。许多初创公司正利用人工智能和...

霍金 视觉中国 图 英国著名物理学家霍金(Stephen Hawking)再次就人工智能(AI)发声,他认为:对于人类来说,强大AI的出现可能是最美妙的...

文|郑娟娟 今年,人工智能(AI) 60岁了。在AI60岁的时候,笔者想要介绍一下AI100,一个刚刚2岁的研究项目,但它的预设寿命是100年,甚至更长...

AlphaGo与李世石的人机大战,为大众迅速普及了人工智能的概念。 但对谷歌而言,除了下围棋,现在的人工智能进展到哪一步了?未来,人工智能...