《VBA应用开发与实例.ppt》由会员分享，可在线阅读，更多相关《VBA应用开发与实例.ppt（42页珍藏版）》请在三一办公上搜索。
1、VBA应用开发与实例,李 辉 微软课程培训讲师,活动行程表,VBA编程环境Office对象模型VBA编程技巧与案例Office XP开发版简介,什么是宏,宏是一段定义好的操作，它可以是一段程序代码，也可以是一连串的指令集合。宏的作用可以使频繁执行的动作自动化 节省时间，提高工作效率，又能减少失误,开始录制宏,操作步骤,完成宏录制,运行宏,录制宏需要经常重复执行的某项任务，就可以把执行这些任务的步骤全部录制在宏里，把宏变为可自动执行的任务,执行宏的操作 执行宏的命令 在工具栏上设置宏按钮 使用窗体控件 使用图形对象执行宏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥Office
2、 XP的强大功能，成为Office应用的真正高手,宏的结构,Sub 主界面()主界面 Macro Coren Lee 记录的宏 2002-11-5 Sheets(主界面).SelectEnd Sub,宏名,批注,宏程序,Visual Basic编辑器,用来编辑宏程序或制作更高阶的整合性应用程序附属于Office之下，使用较少的系统资源，达到编辑应用程序的目的。,什么是工程,工程就是模块的集合，包括：用户窗体文件，例如Excel中的工作表以及图表工作表模块类模块ActiveX文件引用的其他工程,为何要使用 VBA宏缺少伸缩的弹性记录了许多不需要的步骤记录了许多不需要的资料无法使用较深入的功能无法
3、完成重复性的工作无法完成需要条件判断的工作,宏,VBA,Visual Basic for Application,认识VBA,VBA是一个通用程序语言，可共享Microsoft各种相关的重要软件。以VBA编写的程序允许用户将其复制到Visual Basic中加以调试，用Visual Basic宏来控制Excel。当记录宏不能满足用户需要或用记录宏无法记录命令时，可以用VBA语言创造宏来控制工作簿的各项操作。创建用户对话框、工具按钮或自定义命令，把Excel提供的多个工具按钮连接起来，作为一个工具按钮。利用重复语句控制循环宏内操作，利用不同参数执行某个相关功能模块，使宏指令完成一系列复杂操作。来
4、连接多个宏。VBA提供了许多内部函数，还允许用户自定义函数来简化对工作簿、工作表、图表等复杂操作。,VBA程序的基本架构,对象面向对象的开发方式VBA是以操作Office对象为目的的程序语言属性对象所属的特性或特征方法控制对象的内建动作或功能，以便可以让程序顺利打开事件发生于对象上的事情,VBA与Visual Basic的差异,Visual Basic以界面为中心的开发方式重点在使用者如何进行操作VBA以文件为中心的开发方式重点在使用者最后看到什么,Excel对象结构,使用对象的程序语法,Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B
5、5”).Value=“ABCDE”,属性,Workbooks.Close,集合对象,Office 对象模型,顶级对象：Application层次式对象模型结构查看结构模型图（帮助）对象浏览器自动列出成员功能对象属性对象方法事件：文档级和应用级,VBA的重要语法,Set Object1=ObjectObject.Property=ValueObject.Method(Setting),VBA程序开发的步骤,设定引用的参数项目定义对象变量设置对象变量完成对象的接口对象属性操作方法事件程序,VBA控制结构,分支结构,If 条件1 Then语句块1ElseIf 条件2 Then语句块2Else语句块n
6、+1End If,Select Case 测试变量Case 表达式1语句块1Case 表达式2语句块2Case Else语句块n+1End Select,VBA控制结构,循环结构,For 变量=初值 To 终值 Step 步长语句块Next 变量,For Each 对象变量 In 对象集 语句块Next 对象变量,Do While 条件表达式语句块Loop,示例：在Excel中打印工资表,Sub InsertTitle()Cells(Selection.Row,Selection.Column).Select Range(Selection,Selection.End(xlToRight).S
7、elect Selection.Copy ActiveCell.Offset(2,0).Range(A1).Select Do Until ActiveCell=Selection.Insert Shift:=xlDown Range(Selection,Selection.End(xlToRight).Select Selection.Copy ActiveCell.Offset(2,0).Range(A1).Select Loop Application.CutCopyMode=False End Sub,示例：对话框与外部应用程序,Private Sub donkey_Click()Ms
8、gBox(I am a donkey)End Sub,Private Sub Wabbit_Click()Call PlaySound(ActiveDocument.Path+wabbit.wav)End Sub,Private Sub turtle_Click()Const Answer=TURTLEDim Tries As IntegerDim Message,Title,Default0,MyValue As StringTries=0Message=What am I?Set prompt.Title=What am I?Set title.Default0=*Set default
9、for input field.Question:Tries=Tries+1If Tries=3 ThenDefault0=T*End IfIf Tries=4 ThenDefault0=TUR*End IfMyValue=InputBox(Message,Title,Default0)MyValue=UCase(MyValue)Convert to uppercase,示例：保存并关闭系统,Private Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume Next Dim abc abc=MsgBox(您确认要关闭本系统吗？
10、,vbQuestion+vbYesNo+vbDefaultButton2,确认)If abc=vbYes Then Worksheets(股票收益计算器).Unprotect Password:=1 Worksheets(股票收益计算器).Range(G13).FormulaR1C1=0 Worksheets(股票收益计算器).Protect DrawingObjects:=True,Contents:=True,Scenarios:=True,Password:=1 Sheets(说明).Select ActiveWorkbook.Save Else Cancel=True End If E
11、nd Sub,程序编写的特殊考虑,如何启动特定版本的应用程序CreateObject如何使用当前的应用程序GetObject如何结束应用程序Application.Quit如何清除内存的占用Set appObject=Nothing,创建用户窗体,提示使用者选取、输入或浏览数据使用控件文本框输入文字列表框选取内容选择框选取一个或多个功能,用户窗体窗口的操作,建立用户窗体配置ActiveX控件设置窗口属性配置控件属性及其事件Load与UnLoad语句加载到内存或从内存中释放用Show和Hide方法控制对象的显示和隐藏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥Office X
12、P的强大功能，成为Office应用的真正高手,使用Excel创建进销存管理系统 在Word中完成员工信息的录入和查询 妙用窗体制作小游戏,封装应用程序,菜单栏的替换窗口环境的替换工具栏的替换完成应用程序封装,保护应用程序开发,加入程序修改口令使用数字签名 Office XP技术允许通过使用“数字证书”对文件或宏进行数字签名。你可以把数字证书看作是身份证的电子版本。使用“数字签名”以后有什么效果呢？如果整个文件都被签名，任何人（包括你自己）将它修改的话，文件的签名都会被破坏。也就是说，签名将保证自签名以后后该文件没有被修改。,打包向导,打包操作可创建一个程序包，将应用程序安装到用户计算机。程序包
13、包含一个或多个.cab文件以及运行应用程序所必须安装的其他所有文件打包步骤确定需要分发的文件如果需要，创建应用程序组件的依赖文件确定要将文件安装到用户计算机的什么位置创建程序包,Office XP产品系列,Microsoft Office 开发平台的特点,降低开发和部署的总成本可利用 Office 部署工具利用流行和熟悉的技术开发量极小减少使用者的培训负担和支持费用培训不再必不可少提高了对需求的及时反应能力和解决方案的灵活性起点高，开发周期短,MS Office 的开发原则,MS Office 是一个功能齐全的应用系统MS Office 是一个灵活方便的开发平台Office 开发的原则能不开发
14、就不开发很多功能 Office 原已提供对 Office 了解越多，开发者的效率越高Office 开发者：全球 260 万Office 开发版Office 完备开发工具,Office 开发工具的发展概况,Office 从一开始就是一个开放的系统Office 97 以前WordBASICAccess BasicVBA in ExcelOffice 97:Visual Basic for Applications 5.0（Outlook 支持 VBScript）Office 2000:Visual Basic for Applications 6.0 和 ScriptOffice XP,Micro
15、soft Office XP 开发版,Office XP 中文开发版：面向 Office 开发人员的开发工具和示例Windows 组件更新Visual SourceSafe：源代码控制软件Microsoft Exchange 2000 Server Developer EditionMicrosoft SQL Server 2000 个人版的开发和测试版带有 FrontPage 的 Microsoft Office XP 专业版Microsoft Office XP 素材库小型语言套件（切换为英文界面）,Office 开发版所提供的开发环境,开发项目Exchange 工作流项目仪表盘项目SQL
16、 Sever 工作流项目开发文件HTML 页框架集样式表Active Server PageXML 文件文本文件,工作流：基本概念,描述用作业务处理模型的应用程序常用于强化业务规则状态和事件状态：一个项目的状态属性的离散值事件：可对项目执行的操作转换：一种特殊类型的事件，使项目由一种状态转换到另一种状态,工作流设计器,可以在几乎任何一种编程语言或开发环境下开发工作流应用程序借助工作流引擎和专门的工作流建模工具可以简化工作 Office Developer 利用图形用户界面（GUI）将工作流过程表示为可自动操作、扩展和编辑的图表,数字仪表盘的基本概念,数字仪表盘是集中的知识管理入口。通过数字仪表
17、盘，知识工作者可以在合理的信息负载下掌握必要的和统一的信息从技术的角度看，数字仪表盘是一个 Active Server Page(ASP)，它引用一个或多个 Web 部件在数字仪表盘的中心是 Web 部件。加载仪表盘时，仪表盘将检索已设置要显示的 Web 部件,Web 部件,Web 部件是可重复利用的部件，并且支持一系列用于确定如何在数字仪表盘中呈现 Web 部件的标准属性。Web 部件遵循常规标准，可以将它们存储在用于为本单位组合所有数字仪表盘的库中Web 部件易于生成。用户可以创建相对简单的 Web 部件，通过使用开发环境可以创建更复杂的 Web 部件可以从三个地方生成 Web 部件：Microsoft Office XP Developer、仪表盘自身或用于 Microsoft Visual InterDev 的 Web 部件生成器加载项,使用示范代码库共享代码,可以在集中数据库中存储和管理可重复利用的代码包含一个大型数据库，包含预先编写的代码示范代码库支持拖放操作以及剪切和粘贴操作,李辉Mail:,
