- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB控制EXCEL进行报表设计及打印
VB控制EXCEL进行报表设计及打印 在工控程序的开发中,经常涉及到数据信息的分析、加工,最终还需把统计结果形成各种形式的报表打印输出。在Visual Basic中制作报表,通常是用数据环境设计器(DataEnvironment Designer)与数据报表设计器(Data Report Designer),或者使用第三方产品来完成。但对于大多数习惯于Excel报表的用户而言,用以上方法生成的报表在格式和功能等方面往往不能满足他们的要求。 由于Excel具有自己的对象库,在Visual Basic工程中可以加以引用,通过对Excel使用OLE自动化,可以创建一些外观整洁的报表,然后打印输出。这样实现了Visual Basi应用程序对Excel的控制。本文将针对一个具体实例,阐述基于VB和EXCEL的报表设计及打印过程。 1)创建Excel对象 Excel对象模型包括了128个不同的对象,从矩形、文本框等简单的对象到透视表,图表等复杂的对象。下面简单介绍一下其中最重要,也是用得最多的五个对象。(1)Application对象:Application对象处于Excel对象层次结构的顶层,表示 Excel自身的运行环境。(2)Workbook对象:Workbook对象直接地处于Application对象的下层,表示一个Excel工作薄文件。(3)Worksheet对象:Worksheet对象包含于Workbook对象,表示一个Excel工作表。(4)Range对象:Range对象包含于Worksheet对象,表示 Excel工作表中的一个或多个单元格。(5)Cells对象:Cells对象包含于Worksheet对象,表示Excel工作表中的一个单元格。 如果要启动一个Excel,使用Workbook和Worksheet对象,下面的代码启动了Excel并创建了一个新的包含一个工作表的工作薄:Dim zsbexcel As Excel.ApplicationSet zsbexcel = New Excel.Applicationzsbexcel.Visible = True如要Excel不可见,可使zsbexcel.Visible = False zsbexcel.SheetsInNewWorkbook = 1 Set zsbworkbook = zsbexcel.Workbooks.Add 2)设置单元格和区域值 要设置一张工作表中每个单元格的值,可以使用Worksheet对象的Range属性或Cells属性。With zsbexcel.ActiveSheet .Cells(1, 2).value = 10 .Cells(2, 2).value = 20 .Cells(3, 2).value = =SUM(B1:B2) .Range(A3:A9) = 报表打印 End With 要设置单元格或区域的字体、边框,可以利用Range对象或Cells对象的Borders属性和Font属性: With objexcel.ActiveSheet.Range(A2:K9).Borders 边框设置 .LineStyle = xlBorderLineStyleContinuous .Weight = xlThin .ColorIndex = 1 End With With objexcel.ActiveSheet.Range(A3:K9).Font 字体设置 .Size = 14 .Bold = True .Italic = True .ColorIndex = 3 End With 通过对Excel单元格和区域值的各种设置的深入了解,可以创建各种复杂、美观、满足需要的、具有自己特点的报表。 3)预览及打印 生成所需要的工作表后,就可以对EXCEL发出预览、打印指令了。 zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait 设置打印方向 zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4 设置打印纸的打下 zsbexcel.Caption = 打印预览 设置预览窗口的标题 zsbexcel.ActiveSheet.PrintPreview 打印预览 zsbexcel.ActiveSheet.PrintOut
文档评论(0)