试论在VB程序中制作Excel报表.docVIP

试论在VB程序中制作Excel报表 试论在MB程序中制作Excel报表 张志强 (安顺职业技术学院贵州安顺561000) 信息技术 摘要:在VB程序设计中报表主要用于数据分析和统计,本文讨论了利用VB和Excel设计数据报表的方法,此方法不是单纯地拖动报表中 字段或标题,而是用Excel模板文件即简便又灵活地满足用户对报表格式和功能的要求. 关键词:vB程序Exce/报表 中图分类号:TP391.13文献标识码:A文章编号:1672--379t(2010)08(b)一0028—01 报表在VB应用程序系统中占据很重要 的地位,它能显示出更直观的数据输出,在 VB中报表一般是用数据报表设计器(data reportdesigner)来实现,但这种情况局限于 报表格式的变化就得去修改程序设计给软 件维护工作带来很大的负担. 用过Excel的人都知道Excel的功能很 强大,下面笔者通过自己的教学经验来分 析VB和Excel的设计数据报表. 1EXCEL对象 在VB中能处理的D0DeJ对象有:Application, WorkBooks,WorkSheets,Range及Cells,利用这 些对象所提供的属性,方法和文件,就可以很 容易的在VB应用程序中生成Excel报表,但要 注意使用它们之前要先声明. (1)Application对象是对象模型的顶层, 表示整个Excel应用程序. (2)Workbook对象表示Excel应用程序 中当前打开的一个工作簿. (3)Worksheet对象表示工作表对象(一 个工作簿可以包含多个工作表). (4)Range对象代表工作表的某一单元 格或多个单元格,某一选定区域等. (5)Cell对象表示特定工作表的一个单 元格对象. 2利用VB操作Excel 在VB应用程序中可以访问Excel对象 的属性,事件,方法,相当于把Excel对象作 为外部对象来引用. (1)对象引用.单击”工程”菜单,选择”引 用”栏,在弹出的对话框中选择Microsoft Excell1.0ObjectLibrary就OK,表示工程 中要[Excel类型库. (2)Excel对象. 对象声明如: DimxlAppAsExce1.Application DimxlBookAsExce1.WorkBook DimxlSheetAsExce1.WorkSheet (3)操作命令 SetxlApp=CreateObject(“Exce1. Application”) SetxlBook=xlApp.Workbooks.open (“文件名”) x】.Vjsine=True SetxlSheet=xlBook.worksheets(“工 作表名”) xlsheet.PrintOut xlBook.Cl0se(True)/x1APP.Quit SetxlApp=Nothing/Setx1Book=N othing/SetxlSheet=Nothing xlBook.RunautoMacros(x1AutoOpen) xlBook.RunautoMacros(xlAutoClose) (4)在VB应用程序中使用激活Excel文 档,打开excel工作簿,设置括动工作表,关 闭工作簿及释放Excel对象等命令操作Ex— cel时,需要设置Excel对象不可见(x1. Visible=True),否NVB程序可继续执行其 它操作,关闭Excel文档,释放Excel对象时, VB应用程序会产生自动化错误. 3利用Excel输出报表 (1)设计数据库stud,在stud库中添加 xsjbxx表,包括学号,姓名,性别,班级,出 生年月,家庭住址,入学时间等字段. (2)设计没有记录的Excel文档当模板文 件,用来控制VB与Excel之问的数据传递. 使用模板文件:C:\stud\XsJBXX.xls DimstuSource,stuDttAsString StUSOUree=APP.Pathamp;” \stud\XSJBXX.xls” stuDtt=App.Pathamp;”\stud\XSXX. xls” FileCopystuSource,stuDtt (3)初始化定义. DimconnAsADODB.Connection DimrcAsADODB.Recordset DimiAsInteger 设置表单unload事件: PfivateSubForm_Unload(CancelAs Integer) rc.close Setre=Nothing conn.close Setconn=Nothing x1APP.quit EndSub (4)生成Excel报表. Setxlapp=CreateObject(JIExce1. Appli