Slide 2: VBA 应开发与实 用 例
Slide 3: 动 活     行程表 VBA 编环 境 程 Office 对象模型 VBA 编与技巧 案例 程 程技巧 Office XP 开发简 介 版
Slide 4: MS Office 开发平台的方向  Office 高级用户  模板开发，加载宏或构建小型项目 可用 Office 对象进行项目设计开发 构建供 Office 使用的加载宏或向导  企业信息部门人员   软件开发厂商 
Slide 5: MS Office 开发平台的好处  对企业和公司  降低培训成本，资源的回收利用 缩短研发时间，提高系统稳定性 减少摸索新系统的挫折  对程序开发人员   对使用者的好处 
Slide 6: Office 平台开发的关键  Office 平台的通用语言——宏 （ VBA ）     内置于 Office 应用程序，免费 完整的工作环境 宏录制器 对象浏览窗口
Slide 7: 挑战第一关 善用宏简化工作
Slide 8: 什么是宏 宏是一段定义好的操作，它可以是 一段程序代码，也可以是一连串的 指令集合。 宏的作用可以使频繁执行的动作自动化  节省时间，提高工作效率，又能减少失误 
Slide 9: 开始录制宏 录制宏 需要经常重复执行的某项任务， 就可以把执行这些任务的步骤全 部录制在宏里，把宏变为可自动 执行的任务 操作步骤 执行宏的操作  执行宏的命令  在工具栏上设置宏 按钮  使用窗体控件  使用图形对象执行 完成宏录制 运行宏
Slide 10: VBA 帮助你完成从必然王国到自由王国的飞跃 分发挥 Office XP 的强大功能，成为 Office 应用的真正高手
Slide 11: 坚 如磐石的安全性 宏的安全性 义它码它连 宏，就是一段定 好的操作， 可以是一段程序代 ， 也可以是一 频执动动它执组动 串的指令集合。宏的作用可以使 繁 行的 作自 化， 行一 户执户设 作比用 一步一步 行要快得多，而且是完全按用 所 定好的要求， 误执这样既节时间减误 ， 能 省 准确无 地 行。 ，提高工作效率，又能 少失 ，起到事半功倍的作用。 你说过计胁种隐 算机病毒引起的潜在威 ”是一 在后台工作的 藏 可能听 由 “病毒 。 软经骚扰计户并数 宏或者 件程序， 常 算机用 ， 且毁坏重要的 据文件以及 应软 件。 用 护 宏 的保 方法： 宏的保 • 安全 【高】通常适用于用 级户没软时 有安装防病毒 件的 候 • 选择级为时户 【中】 ，用 可以确保所使用的宏命令是安 安全 全的 • 安全 【低】的情 下， Office XP 将对检查 级况 不 宏作出任何
Slide 12: 挑战第二关 深入浅出 VBA
Slide 13: 宏的结构 宏名 Sub 主界面 () ' ' 主界面 Macro ' Coren Lee 记录的宏 2002-11-5 ' ' Sheets(" 主界面 ").Select 批注 宏程序 End Sub
Slide 14: Visual Basic 编辑器   用来编辑宏程序或制作更高阶的整合性应用程序 附属于 Office 之下，使用较少的系统资源，达到编辑应用程序 的目的。
Slide 15: 什么是工程  工程就是模块的集合，包括：       用户窗体 文件，例如 Excel 中的工作表以及图表工 作表 模块 类模块 ActiveX 文件 引用的其他工程
Slide 16: Visual Basic for Application 宏       为何要使用 VBA VB A 宏缺少伸缩的弹性 记录了许多不需要的步骤 记录了许多不需要的资料 无法使用较深入的功能 无法完成重复性的工作 无法完成需要条件判断的工 作
Slide 17: 认识 VBA       VBA 是一个通用程序语言，可共享 Microsoft 各种相关 的重要软件。 以 VBA 编写的程序允许用户将其复制到 Visual Basic 中加以调试，用 Visual Basic 宏来控制 Excel 。 当记录宏不能满足用户需要或用记录宏无法记录命令 时，可以用 VBA 语言创造宏来控制工作簿的各项操作 。 创建用户对话框、工具按钮或自定义命令，把 Excel 提供的多个工具按钮连接起来，作为一个工具按钮。 利用重复语句控制循环宏内操作，利用不同参数执行 某个相关功能模块，使宏指令完成一系列复杂操作。 来连接多个宏。 VBA 提供了许多内部函数，还允许用户自定义函数来 简化对工作簿、工作表、图表等复杂操作。
Slide 18: VBA 程序的基本架构  对象   面向对象的开发方式 VBA 是以操作 Office 对象为目的的程序语 言 对象所属的特性或特征 控制对象的内建动作或功能，以便可以让 程序顺利打开 发生于对象上的事情  属性   方法   事件 
Slide 19: VBA 与 Visual Basic 的差异 Visual Basic 以界面为中心的开发方式 重点在使用者如何进行操作  VBA 以文件为中心的开发方式 重点在使用者最后看到什么 
Slide 20: Excel 对象结 构 Application Workbooks Windows Addins …… Worksheets Charts …… Cells Range ……
Slide 21: 使用对象的程序语法 Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value = “ABCDE” 容器 容器 属性 Workbooks.Close 集合对象
Slide 22: Office 对象模型         顶级对象： Application 层次式对象模型结构 查看结构模型图（帮助） 对象浏览器 自动列出成员功能 对象属性 对象方法 事件：文档级和应用级
Slide 23: VBA 的重要语法    Set Object1 = Object Object.Property = Value Object.Method (Setting)
Slide 24: VBA 程序开发的步骤     设定引用的参数项目 定义对象变量 设置对象变量 完成对象的接口    对象属性 操作方法 事件程序
Slide 25: VBA 控制结构  分支结构 If 〈条件 1 〉 Then 〈语句块 1 〉 ElseIf 〈条件 2 〉 Then 〈语句块 2 〉 · Else 〈语句块 n+1 〉 End If Select Case 〈测试变量〉 Case 〈表达式 1 〉 〈语句块 1 〉 Case 〈表达式 2 〉 〈语句块 2 〉 · Case Else 〈语句块 n+1 〉 End Select
Slide 26: VBA 控制结构  循环结构 For 〈变量〉 = 〈初值〉 To 〈终值〉 Step 〈步长〉 〈语句块〉 Next 〈变量〉 For Each 〈对象变量〉 In 〈对象集〉     〈语句块〉 Next 〈对象变量〉 Do While 〈条件表达式〉 〈语句块〉 Loop
Slide 27: Sub InsertTitle() 示例：在 Excel 中打印工资 表 Selection.CurrentRegion.Select Cells(Selection.Row, Selection.Column).Select Range(Selection, Selection.End(xlToRight)).Select 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
Slide 28: Private Sub donkey_Click() MsgBox (" I am a donkey ") End Sub 示例：对话框与外部应用程 序 Private Sub Wabbit_Click() Call PlaySound(ActiveDocument.Path + "\wabbit.wav") End Sub Private Sub turtle_Click() Const Answer = "TURTLE" Dim Tries As Integer Dim Message, Title, Default0, MyValue As String Tries = 0 Message = "What am I?" 'Set prompt. Title = "What am I?" 'Set title. Default0 = "******" 'Set default for input field. Question: Tries = Tries + 1 If Tries = 3 Then Default0 = "T*****" End If If Tries = 4 Then Default0 = "TUR***" End If MyValue = InputBox(Message, Title, Default0) MyValue = UCase(MyValue) 'Convert to uppercase ……
Slide 29: 示例：保存并关闭系统 Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim abc abc = MsgBox(" 您确认要关闭本系统吗？ ", 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 End Sub
Slide 30: 程序编写的特殊考虑  如何启动特定版本的应用程序  CreateObject GetObject Application.Quit Set appObject = Nothing  如何使用当前的应用程序   如何结束应用程序   如何清除内存的占用 
Slide 31: 挑战第三关 优化与部署
Slide 32: 创建用户窗体   提示使用者选取、输入或浏览数据 使用控件    文本框输入文字 列表框选取内容 选择框选取一个或多个功能
Slide 33: 用户窗体窗口的操作      建立用户窗体 配置 ActiveX 控件 设置窗口属性 配置控件属性及其事件 Load 与 UnLoad 语句   加载到内存或从内存中释放 用 Show 和 Hide 方法控制对象的显示和隐 藏
Slide 34: VBA 帮助你完成从必然王国到自由王国的飞跃 • • • 使用 Excel 创建进销存管理系统 在 Word 中完成员工信息的录入和查询 妙用窗体制作小游戏 分发挥 Office XP 的强大功能，成为 Office 应用的真正高手
Slide 35: 封装应用程序     菜单栏的替换 窗口环境的替换 工具栏的替换 完成应用程序封装
Slide 36: 保护应用程序开发   加入程序修改口令 使用数字签名 Office XP 技术允许通过使用“数字证书”对文 件或宏进行数字签名。你可以把数字证书看作是身 份证的电子 版本。 使用“数字签名”以后有什么效果呢 ？如果整个 文件都被签名，任何人（包括你自己） 将它修改的 话，文件的签名都会被破坏。也就是说 ，签名将保 证自签名以后后该文件没有被修改。
Slide 37: 打包向导    打包操作可创建一个程序包，将应用程 序安装到用户计算机。 程序包包含一个或多个 .cab 文件以及 运行应用程序所必须安装的其他所有文 件 打包步骤     确定需要分发的文件 如果需要，创建应用程序组件的依赖文件 确定要将文件安装到用户计算机的什么位 置 创建程序包
Slide 38: VBA 帮助你完成从必然王国到自由王国的飞跃 分发挥 Office XP 的强大功能，成为 Office 应用的真正高手
Slide 39: 挑战第四关 善用 Office XP 开发版
Slide 40: Office XP 产品系列 Office XP Word Excel Outlook PowerPoint Access FrontPage (SharePoint) 开发工具 语 小型 库 素材 议场 建市 零售价 品 许证 普通版 级产 升 版全包装 品 级许证 升版 可 可 ￥ 3940 ￥ 2925 ￥ 1970 ￥ 1408 ￥ 2750 ￥ 2102 ￥ 4720 ￥ 3528 -￥ 4405 -￥ 2605 ￥ 4340 ￥ 3510 ￥ 6310 ￥ 4926 产 普通版全包装 言套件 ( 英文界面 ) 标准版 ` 专业版 业 企 版 开发版
Slide 41: Microsoft Office 开发平台的特点  降低开发和部署的总成本    可利用 Office 部署工具 利用流行和熟悉的技术 开发量极小 培训不再必不可少  减少使用者的培训负担和支持费用   提高了对需求的及时反应能力和解决方 案的灵活性  起点高，开发周期短
Slide 42: MS Office 的开发原则    MS Office 是一个功能齐全的应用系统 MS Office 是一个灵活方便的开发平台 Office 开发的原则    能不开发就不开发 很多功能 Office 原已提供 对 Office 了解越多，开发者的效率越高   Office 开发者：全球 260 万 Office 开发版— Office 完备开发工具
Slide 43: Office 开发工具的发展概况   Office 从一开始就是一个开放的系统 Office 97 以前    WordBASIC Access Basic VBA in Excel    Office 97: Visual Basic for Applications 5.0 （ Outlook 支持 VBScript ） Office 2000: Visual Basic for Applications 6.0 和 Script Office XP…
Slide 44: Microsoft Office XP 开发版 Office XP 中文开发版：面向 Office 开发人员的开发工具和示例 Windows 组件更新 Visual SourceSafe ：源代码控制软件 Microsoft Exchange 2000 Server Developer Edition Microsoft SQL Server 2000 个人版的 开发和测试版 带有 FrontPage 的 Microsoft Office XP 专业版 Microsoft Office XP 素材库 小型语言套件（切换为英文界面）
Slide 45: Office 开发版所提供的开发环境  开发项目    Exchange 工作流项目 仪表盘项目 SQL Sever 工作流项目 HTML 页 框架集 样式表 Active Server Page XML 文件 文本文件  开发文件      
Slide 46: 工作流：基本概念    描述用作业务处理模型的应用程序 常用于强化业务规则 状态和事件    状态：一个项目的状态属性的离散值 事件：可对项目执行的操作 转换：一种特殊类型的事件，使项目由一 种状态转换到另一种状态
Slide 47: 工作流设计器    可以在几乎任何一种编程语言或开发环 境下开发工作流应用程序 借助工作流引擎和专门的工作流建模工 具可以简化工作 Office Developer 利用图形用户界面 （ GUI ）将工作流过程表示为可自动操 作、扩展和编辑的图表
Slide 48: 数字仪表盘的基本概念    数字仪表盘是集中的知识管理入口。通 过数字仪表盘，知识工作者可以在合理 的信息负载下掌握必要的和统一的信息 从技术的角度看，数字仪表盘是一个 Active Server Page (ASP) ，它引用一 个或多个 Web 部件 在数字仪表盘的中心是 Web 部件。 加载仪表盘时，仪表盘将检索已设置要 显示的 Web 部件
Slide 49: Web 部件    Web 部件是可重复利用的部件，并且 支持一系列用于确定如何在数字仪表盘 中呈现 Web 部件的标准属性。 Web 部件遵循常规标准，可以将它们存储在 用于为本单位组合所有数字仪表盘的库 中 Web 部件易于生成。用户可以创建相 对简单的 Web 部件，通过使用开发 环境可以创建更复杂的 Web 部件 可以从三个地方生成 Web 部件： Microsoft® Office XP Developer 、仪表 盘自身或用于 Microsoft® Visual InterDev® 的 Web 部件生成器加载项
Slide 50: 使用示范代码库共享代码    可以在集中数据库中存储和管理可重复 利用的代码 包含一个大型数据库，包含预先编写的 代码 示范代码库支持拖放操作以及剪切和粘 贴操作
Slide 51: 学习 Office 编程之路 语言特性 Office 程序特 性 对象模型 程序整合优化 案例研究 VB/VBA Excel 、 Word 、 PowerPoint 、 Out look 、 Access