VBA应用开发与实例(精)PPT课件

VBA应用开发与实例,李辉微软课程培训讲师,活动行程表,VBA编程环境Office对象模型VBA编程技巧与案例OfficeXP开发版简介,什么是宏,宏是一段定义好的操作，它可以是一段程序代码，也可以是一连串的指令集合。宏的作用可以使频繁执行的动作自动化节省时间，提高工作效率，又能减少失误,开始录制宏,操作步骤,完成宏录制,运行宏,录制宏需要经常重复执行的某项任务，就可以把执行这些任务的步骤全部录制在宏里，把宏变为可自动执行的任务,执行宏的操作执行宏的命令在工具栏上设置宏按钮使用窗体控件使用图形对象执行宏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥OfficeXP的强大功能，成为Office应用的真正高手,宏的结构,Sub主界面()主界面MacroCorenLee记录的宏2002-11-5Sheets(主界面).SelectEndSub,宏名,批注,宏程序,VisualBasic编辑器,用来编辑宏程序或制作更高阶的整合性应用程序附属于Office之下，使用较少的系统资源，达到编辑应用程序的目的。,什么是工程,工程就是模块的集合，包括：用户窗体文件，例如Excel中的工作表以及图表工作表模块类模块ActiveX文件引用的其他工程,为何要使用VBA宏缺少伸缩的弹性记录了许多不需要的步骤记录了许多不需要的资料无法使用较深入的功能无法完成重复性的工作无法完成需要条件判断的工作,宏,VBA,VisualBasicforApplication,认识VBA,VBA是一个通用程序语言，可共享Microsoft各种相关的重要软件。以VBA编写的程序允许用户将其复制到VisualBasic中加以调试，用VisualBasic宏来控制Excel。当记录宏不能满足用户需要或用记录宏无法记录命令时，可以用VBA语言创造宏来控制工作簿的各项操作。创建用户对话框、工具按钮或自定义命令，把Excel提供的多个工具按钮连接起来，作为一个工具按钮。利用重复语句控制循环宏内操作，利用不同参数执行某个相关功能模块，使宏指令完成一系列复杂操作。来连接多个宏。VBA提供了许多内部函数，还允许用户自定义函数来简化对工作簿、工作表、图表等复杂操作。,VBA程序的基本架构,对象面向对象的开发方式VBA是以操作Office对象为目的的程序语言属性对象所属的特性或特征方法控制对象的内建动作或功能，以便可以让程序顺利打开事件发生于对象上的事情,VBA与VisualBasic的差异,VisualBasic以界面为中心的开发方式重点在使用者如何进行操作VBA以文件为中心的开发方式重点在使用者最后看到什么,Excel对象结构,使用对象的程序语法,Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value=“ABCDE”,属性,Workbooks.Close,集合对象,Office对象模型,顶级对象：Application层次式对象模型结构查看结构模型图（帮助）对象浏览器自动列出成员功能对象属性对象方法事件：文档级和应用级,VBA的重要语法,SetObject1=ObjectObject.Property=ValueObject.Method(Setting),VBA程序开发的步骤,设定引用的参数项目定义对象变量设置对象变量完成对象的接口对象属性操作方法事件程序,VBA控制结构,分支结构,If条件1Then语句块1ElseIf条件2Then语句块2Else语句块n+1EndIf,SelectCase测试变量Case表达式1语句块1Case表达式2语句块2CaseElse语句块n+1EndSelect,VBA控制结构,循环结构,For变量=初值To终值Step步长语句块Next变量,ForEach对象变量In对象集语句块Next对象变量,DoWhile条件表达式语句块Loop,示例：在Excel中打印工资表,SubInsertTitle()Selection.CurrentRegion.SelectCells(Selection.Row,Selection.Column).SelectRange(Selection,Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2,0).Range(A1).SelectDoUntilActiveCell=Selection.InsertShift:=xlDownRange(Selection,Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2,0).Range(A1).SelectLoopApplication.CutCopyMode=FalseEndSub,示例：对话框与外部应用程序,PrivateSubdonkey_Click()MsgBox(Iamadonkey)EndSub,PrivateSubWabbit_Click()CallPlaySound(ActiveDocument.Path+wabbit.wav)EndSub,PrivateSubturtle_Click()ConstAnswer=TURTLEDimTriesAsIntegerDimMessage,Title,Default0,MyValueAsStringTries=0Message=WhatamI?Setprompt.Title=WhatamI?Settitle.Default0=*Setdefaultforinputfield.Question:Tries=Tries+1IfTries=3ThenDefault0=T*EndIfIfTries=4ThenDefault0=TUR*EndIfMyValue=InputBox(Message,Title,Default0)MyValue=UCase(MyValue)Converttouppercase,示例：保存并关闭系统,PrivateSubWorkbook_BeforeClose(CancelAsBoolean)OnErrorResumeNextDimabcabc=MsgBox(您确认要关闭本系统吗？,vbQuestion+vbYesNo+vbDefaultButton2,确认)Ifabc=vbYesThenWorksheets(股票收益计算器).UnprotectPassword:=1Worksheets(股票收益计算器).Range(G13).FormulaR1C1=0Worksheets(股票收益计算器).ProtectDrawingObjects:=True,Contents:=True,Scenarios:=True,Password:=1Sheets(说明).SelectActiveWorkbook.SaveElseCancel=TrueEndIfEndSub,程序编写的特殊考虑,如何启动特定版本的应用程序CreateObject如何使用当前的应用程序GetObject如何结束应用程序Application.Quit如何清除内存的占用SetappObject=Nothing,创建用户窗体,提示使用者选取、输入或浏览数据使用控件文本框输入文字列表框选取内容选择框选取一个或多个功能,用户窗体窗口的操作,建立用户窗体配置ActiveX控件设置窗口属性配置控件属性及其事件Load与UnLoad语句加载到内存或从内存中释放用Show和Hide方法控制对象的显示和隐藏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥OfficeXP的强大功能，成为Office应用的真正高手,使用Excel创建进销存管理系统在Word中完成员工信息的录入和查询妙用窗体制作小游戏,封装应用程序,菜单栏的替换窗口环境的替换工具栏的替换完成应用程序封装,保护应用程序开发,加入程序修改口令使用数字签名OfficeXP技术允许通过使用“数字证书”对文件或宏进行数字签名。你可以把数字证书看作是身份证的电子版本。使用“数字签名”以后有什么效果呢？如果整个文件都被签名，任何人（包括你自己）将它修改的话，文件的签名都会被破坏。也就是说，签名将保证自签名以后后该文件没有被修改。,打包向导,打包操作可创建一个程序包，将应用程序安装到用户计算机。程序包包含一个或多个.cab文件以及运行应用程序所必须安装的其他所有文件打包步骤确定需要分发的文件如果需要，创建应用程序组件的依赖文件确定要将文件安装到用户计算机的什么位置创建程序包,OfficeXP产品系列,MicrosoftOffice开发平台的特点,降低开发和部署的总成本可利用Office部署工具利用流行和熟悉的技术开发量极小减少使用者的培训负担和支持费用培训不再必不可少提高了对需求的及时反应能力和解决方案的灵活性起点高，开发周期短,MSOffice的开发原则,MSOffice是一个功能齐全的应用系统MSOffice是一个灵活方便的开发平台Office开发的原则能不开发就不开发很多功能Office原已提供对Office了解越多，开发者的效率越高Office开发者：全球260万Office开发版Office完备开发工具,Office开发工具的发展概况,Office从一开始就是一个开放的系统Office97以前WordBASICAccessBasicVBAinExcelOffice97:VisualBasicforApplications5.0（Outlook支持VBScript）Office2000:VisualBasicforApplications6.0和ScriptOfficeXP,MicrosoftOfficeXP开发版,OfficeXP中文开发版：面向Office开发人员的开发工具和示例Windows组件更新VisualSourceSafe：源代码控制软件MicrosoftExchange2000ServerDeveloperEditionMicrosoftSQLServer2000个人版的开发和测试版带有FrontPage的MicrosoftOfficeXP专业版MicrosoftOfficeXP素材库小型语言套件（切换为英文界面）,Office开发版所提供的开发环境,开发项目Exchange工作流项目仪表盘项目SQLSever工作流项目开发文件HTML页框架集样式表ActiveServerPageXML文件文本文件,工作流：基本概念,描述用作业务处理模型的应用程序常用于强化业务规则状态和事件状态：一个项目的状态属性的离散值事件：可对项目执行的操作转换：一种特殊类型的事件，使项目由一种状态转换到另一种状态,工作流设计器,可以在几乎任何一种编程语言或开发环境下开发工作流应用程序借助工作流引擎和专门的工作流建模工具可以简化工作OfficeDeveloper利用图形用户界面（GUI）将工作流过程表示为可自动操作、扩展和编辑的图表,数字仪表盘的基本概念,数字仪表盘是集中的知识管理入口。通过数字仪表盘，知识工作者可以在合理的信息负载下掌握必要的和统一的信息从技术的角度看，数字仪表盘是一个ActiveServerPage(ASP)，它引用一个或多个Web部件在数字仪表盘的中心是Web部件。加载仪表盘时，仪表盘将检索已设置要显示的Web部件,Web部件,Web部件是可重复利用的部件，并且支持一系列用于确定如何在数字仪表盘中呈现Web部件的标准属性。Web部件遵循常规标