1、VBA應(yīng)用開(kāi)發(fā)與實(shí)例,李 輝 微軟課程培訓(xùn)講師,活動(dòng)行程表,VBA編程環(huán)境 Office對(duì)象模型 VBA編程技巧與案例 Office XP開(kāi)發(fā)版簡(jiǎn)介,MS Office開(kāi)發(fā)平臺(tái)的方向,Office高級(jí)用戶 模板開(kāi)發(fā)，加載宏或構(gòu)建小型項(xiàng)目 企業(yè)信息部門(mén)人員 可用Office對(duì)象進(jìn)行項(xiàng)目設(shè)計(jì)開(kāi)發(fā) 軟件開(kāi)發(fā)廠商 構(gòu)建供Office使用的加載宏或向?qū)?MS Office開(kāi)發(fā)平臺(tái)的好處,對(duì)企業(yè)和公司 降低培訓(xùn)成本，資源的回收利用 對(duì)程序開(kāi)發(fā)人員 縮短研發(fā)時(shí)間，提高系統(tǒng)穩(wěn)定性 對(duì)使用者的好處 減少摸索新系統(tǒng)的挫折,Office平臺(tái)開(kāi)發(fā)的關(guān)鍵,Office平臺(tái)的通用語(yǔ)言宏（VBA） 內(nèi)置于Office應(yīng)用程

2、序，免費(fèi) 完整的工作環(huán)境 宏錄制器 對(duì)象瀏覽窗口,挑戰(zhàn)第一關(guān),善用宏簡(jiǎn)化工作,什么是宏,宏是一段定義好的操作，它可以是一段程序代碼，也可以是一連串的指令集合。 宏的作用可以使頻繁執(zhí)行的動(dòng)作自動(dòng)化 節(jié)省時(shí)間，提高工作效率，又能減少失誤,開(kāi)始錄制宏,操作步驟,完成宏錄制,運(yùn)行宏,錄制宏 需要經(jīng)常重復(fù)執(zhí)行的某項(xiàng)任務(wù)，就可以把執(zhí)行這些任務(wù)的步驟全部錄制在宏里，把宏變?yōu)榭勺詣?dòng)執(zhí)行的任務(wù),執(zhí)行宏的操作 執(zhí)行宏的命令 在工具欄上設(shè)置宏按鈕 使用窗體控件 使用圖形對(duì)象執(zhí)行宏,DEMO,VBA幫助你完成從必然王國(guó)到自由王國(guó)的飛躍,充分發(fā)揮Office XP的強(qiáng)大功能，成為Office應(yīng)用的真正高手,堅(jiān)如磐石的安

3、全性 宏的安全性,宏，就是一段定義好的操作，它可以是一段程序代碼，它也可以是一連串的指令集合。宏的作用可以使頻繁執(zhí)行的動(dòng)作自動(dòng)化，它執(zhí)行一組動(dòng)作比用戶一步一步執(zhí)行要快得多，而且是完全按用戶所設(shè)定好的要求，準(zhǔn)確無(wú)誤地執(zhí)行。這樣，既能節(jié)省時(shí)間，提高工作效率，又能減少失誤，起到事半功倍的作用。 你可能聽(tīng)說(shuō)過(guò)由計(jì)算機(jī)病毒引起的潛在威脅?！安《尽笔且环N在后臺(tái)工作的隱藏宏或者軟件程序，經(jīng)常騷擾計(jì)算機(jī)用戶，并且毀壞重要的數(shù)據(jù)文件以及應(yīng)用軟件。 宏的保護(hù)方法： 安全級(jí)【高】通常適用于用戶沒(méi)有安裝防病毒軟件的時(shí)候 選擇安全級(jí)為【中】時(shí)，用戶可以確保所使用的宏命令是安全的 安全級(jí)【低】的情況下，Office XP

4、將不對(duì)宏作出任何檢查,挑戰(zhàn)第二關(guān),深入淺出VBA,宏的結(jié)構(gòu),Sub 主界面() 主界面 Macro Coren Lee 記錄的宏 2002-11-5 Sheets(主界面).Select End Sub,宏名,批注,宏程序,Visual Basic編輯器,用來(lái)編輯宏程序或制作更高階的整合性應(yīng)用程序 附屬于Office之下，使用較少的系統(tǒng)資源，達(dá)到編輯應(yīng)用程序的目的。,什么是工程,工程就是模塊的集合，包括： 用戶窗體 文件，例如Excel中的工作表以及圖表工作表 模塊 類(lèi)模塊 ActiveX文件 引用的其他工程,為何要使用 VBA 宏缺少伸縮的彈性 記錄了許多不需要的步驟 記錄了許多不需要的資料

5、 無(wú)法使用較深入的功能 無(wú)法完成重復(fù)性的工作 無(wú)法完成需要條件判斷的工作,宏,VBA,Visual Basic for Application,認(rèn)識(shí)VBA,VBA是一個(gè)通用程序語(yǔ)言，可共享Microsoft各種相關(guān)的重要軟件。 以VBA編寫(xiě)的程序允許用戶將其復(fù)制到Visual Basic中加以調(diào)試，用Visual Basic宏來(lái)控制Excel。 當(dāng)記錄宏不能滿足用戶需要或用記錄宏無(wú)法記錄命令時(shí)，可以用VBA語(yǔ)言創(chuàng)造宏來(lái)控制工作簿的各項(xiàng)操作。 創(chuàng)建用戶對(duì)話框、工具按鈕或自定義命令，把Excel提供的多個(gè)工具按鈕連接起來(lái)，作為一個(gè)工具按鈕。 利用重復(fù)語(yǔ)句控制循環(huán)宏內(nèi)操作，利用不同參數(shù)執(zhí)行某個(gè)相關(guān)功

6、能模塊，使宏指令完成一系列復(fù)雜操作。來(lái)連接多個(gè)宏。 VBA提供了許多內(nèi)部函數(shù)，還允許用戶自定義函數(shù)來(lái)簡(jiǎn)化對(duì)工作簿、工作表、圖表等復(fù)雜操作。,VBA程序的基本架構(gòu),對(duì)象 面向?qū)ο蟮拈_(kāi)發(fā)方式 VBA是以操作Office對(duì)象為目的的程序語(yǔ)言 屬性 對(duì)象所屬的特性或特征 方法 控制對(duì)象的內(nèi)建動(dòng)作或功能，以便可以讓程序順利打開(kāi) 事件 發(fā)生于對(duì)象上的事情,VBA與Visual Basic的差異,Visual Basic以界面為中心的開(kāi)發(fā)方式 重點(diǎn)在使用者如何進(jìn)行操作 VBA以文件為中心的開(kāi)發(fā)方式 重點(diǎn)在使用者最后看到什么,Excel對(duì)象結(jié)構(gòu),使用對(duì)象的程序語(yǔ)法,Workbooks(“Mybook.xls”

7、).Worksheets(“Sheet1”).Range(“B5”).Value = “ABCDE”,屬性,Workbooks.Close,集合對(duì)象,Office 對(duì)象模型,頂級(jí)對(duì)象：Application 層次式對(duì)象模型結(jié)構(gòu) 查看結(jié)構(gòu)模型圖（幫助） 對(duì)象瀏覽器 自動(dòng)列出成員功能 對(duì)象屬性 對(duì)象方法 事件：文檔級(jí)和應(yīng)用級(jí),VBA的重要語(yǔ)法,Set Object1 = Object Object.Property = Value Object.Method (Setting),VBA程序開(kāi)發(fā)的步驟,設(shè)定引用的參數(shù)項(xiàng)目 定義對(duì)象變量 設(shè)置對(duì)象變量 完成對(duì)象的接口 對(duì)象屬性 操作方法 事件程序,VB

8、A控制結(jié)構(gòu),分支結(jié)構(gòu),If 條件1 Then 語(yǔ)句塊1 ElseIf 條件2 Then 語(yǔ)句塊2 Else 語(yǔ)句塊n+1 End If,Select Case 測(cè)試變量 Case 表達(dá)式1 語(yǔ)句塊1 Case 表達(dá)式2 語(yǔ)句塊2 Case Else 語(yǔ)句塊n+1 End Select,VBA控制結(jié)構(gòu),循環(huán)結(jié)構(gòu),For 變量=初值 To 終值 Step 步長(zhǎng) 語(yǔ)句塊 Next 變量,For Each 對(duì)象變量 In 對(duì)象集 語(yǔ)句塊Next 對(duì)象變量,Do While 條件表達(dá)式 語(yǔ)句塊 Loop,示例：在Excel中打印工資表,Sub InsertTitle() Selection.Curren

9、tRegion.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

10、(2, 0).Range(A1).Select Loop Application.CutCopyMode = False End Sub,示例：對(duì)話框與外部應(yīng)用程序,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

11、 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, Titl

12、e, Default0) MyValue = UCase(MyValue) Convert to uppercase ,示例：保存并關(guān)閉系統(tǒng),Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim abc abc = MsgBox(您確認(rèn)要關(guān)閉本系統(tǒng)嗎？, vbQuestion + vbYesNo + vbDefaultButton2, 確認(rèn)) If abc = vbYes Then Worksheets(股票收益計(jì)算器).Unprotect Password:=1 Worksheets(股票收益

13、計(jì)算器).Range(G13).FormulaR1C1 = 0 Worksheets(股票收益計(jì)算器).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=1 Sheets(說(shuō)明).Select ActiveWorkbook.Save Else Cancel = True End If End Sub,程序編寫(xiě)的特殊考慮,如何啟動(dòng)特定版本的應(yīng)用程序 CreateObject 如何使用當(dāng)前的應(yīng)用程序 GetObject 如何結(jié)束應(yīng)用程序 Application.Quit 如何清除內(nèi)存的占用 Set ap

14、pObject = Nothing,挑戰(zhàn)第三關(guān),優(yōu)化與部署,創(chuàng)建用戶窗體,提示使用者選取、輸入或?yàn)g覽數(shù)據(jù) 使用控件 文本框輸入文字 列表框選取內(nèi)容 選擇框選取一個(gè)或多個(gè)功能,用戶窗體窗口的操作,建立用戶窗體 配置ActiveX控件 設(shè)置窗口屬性 配置控件屬性及其事件 Load與UnLoad語(yǔ)句 加載到內(nèi)存或從內(nèi)存中釋放 用Show和Hide方法控制對(duì)象的顯示和隱藏,DEMO,VBA幫助你完成從必然王國(guó)到自由王國(guó)的飛躍,充分發(fā)揮Office XP的強(qiáng)大功能，成為Office應(yīng)用的真正高手,使用Excel創(chuàng)建進(jìn)銷(xiāo)存管理系統(tǒng) 在Word中完成員工信息的錄入和查詢 妙用窗體制作小游戲,封裝應(yīng)用程序,菜

15、單欄的替換 窗口環(huán)境的替換 工具欄的替換 完成應(yīng)用程序封裝,保護(hù)應(yīng)用程序開(kāi)發(fā),加入程序修改口令 使用數(shù)字簽名 Office XP技術(shù)允許通過(guò)使用“數(shù)字證書(shū)”對(duì)文件或宏進(jìn)行數(shù)字簽名。你可以把數(shù)字證書(shū)看作是身份證的電子版本。 使用“數(shù)字簽名”以后有什么效果呢？如果整個(gè)文件都被簽名，任何人（包括你自己）將它修改的話，文件的簽名都會(huì)被破壞。也就是說(shuō)，簽名將保證自簽名以后后該文件沒(méi)有被修改。,打包向?qū)?打包操作可創(chuàng)建一個(gè)程序包，將應(yīng)用程序安裝到用戶計(jì)算機(jī)。 程序包包含一個(gè)或多個(gè).cab文件以及運(yùn)行應(yīng)用程序所必須安裝的其他所有文件 打包步驟 確定需要分發(fā)的文件 如果需要，創(chuàng)建應(yīng)用程序組件的依賴文件 確定要

16、將文件安裝到用戶計(jì)算機(jī)的什么位置 創(chuàng)建程序包,DEMO,VBA幫助你完成從必然王國(guó)到自由王國(guó)的飛躍,充分發(fā)揮Office XP的強(qiáng)大功能，成為Office應(yīng)用的真正高手,挑戰(zhàn)第四關(guān),善用Office XP開(kāi)發(fā)版,Office XP產(chǎn)品系列,Microsoft Office 開(kāi)發(fā)平臺(tái)的特點(diǎn),降低開(kāi)發(fā)和部署的總成本 可利用 Office 部署工具 利用流行和熟悉的技術(shù) 開(kāi)發(fā)量極小 減少使用者的培訓(xùn)負(fù)擔(dān)和支持費(fèi)用 培訓(xùn)不再必不可少 提高了對(duì)需求的及時(shí)反應(yīng)能力和解決方案的靈活性 起點(diǎn)高，開(kāi)發(fā)周期短,MS Office 的開(kāi)發(fā)原則,MS Office 是一個(gè)功能齊全的應(yīng)用系統(tǒng) MS Office 是一個(gè)

17、靈活方便的開(kāi)發(fā)平臺(tái) Office 開(kāi)發(fā)的原則 能不開(kāi)發(fā)就不開(kāi)發(fā) 很多功能 Office 原已提供 對(duì) Office 了解越多，開(kāi)發(fā)者的效率越高 Office 開(kāi)發(fā)者：全球 260 萬(wàn) Office 開(kāi)發(fā)版Office 完備開(kāi)發(fā)工具,Office 開(kāi)發(fā)工具的發(fā)展概況,Office 從一開(kāi)始就是一個(gè)開(kāi)放的系統(tǒng) Office 97 以前 WordBASIC Access Basic VBA in Excel Office 97: Visual Basic for Applications 5.0 （Outlook 支持 VBScript） Office 2000: Visual Basic for

18、Applications 6.0 和 Script Office XP,Microsoft Office XP 開(kāi)發(fā)版,Office XP 中文開(kāi)發(fā)版：面向 Office 開(kāi)發(fā)人員的開(kāi)發(fā)工具和示例 Windows 組件更新 Visual SourceSafe：源代碼控制軟件 Microsoft Exchange 2000 Server Developer Edition Microsoft SQL Server 2000 個(gè)人版的開(kāi)發(fā)和測(cè)試版 帶有 FrontPage 的 Microsoft Office XP 專業(yè)版 Microsoft Office XP 素材庫(kù) 小型語(yǔ)言套件（切換為英文界面）,Office 開(kāi)發(fā)版所提供的開(kāi)發(fā)環(huán)境,開(kāi)發(fā)項(xiàng)目 Exchange 工作流項(xiàng)目 儀表盤(pán)項(xiàng)目 SQL Sever 工作流項(xiàng)目 開(kāi)發(fā)文件 HTML 頁(yè) 框架集 樣式表 Active Server Page XML 文件 文本文件,工作流：基本概念,描述用作業(yè)務(wù)處理模型的應(yīng)用程序 常用于強(qiáng)化業(yè)務(wù)規(guī)則 狀態(tài)和事件 狀態(tài)：一個(gè)項(xiàng)目的狀態(tài)屬性的離散值 事件：可對(duì)項(xiàng)目執(zhí)行的操作 轉(zhuǎn)換：一種特殊類(lèi)型的事件，使項(xiàng)目由一種狀態(tài)轉(zhuǎn)換到另一種狀態(tài),工作流設(shè)計(jì)器,可以在幾乎任何一種編程語(yǔ)言或開(kāi)發(fā)環(huán)境下開(kāi)發(fā)工作流應(yīng)用程序 借助工作流引擎和專門(mén)的工作流建模工具可以簡(jiǎn)化工作 Office Develop