ransparancy6應(yīng)用程序與Word和Excel的交互.ppt

1、第六章,應(yīng)用程序與Word和Excel的交互,2,回顧,編寫ActiveX DLL服務(wù)組件； ActiveX DLL組件的調(diào)試； 兼容性設(shè)置和使用Implements實(shí)現(xiàn)接口； 組件的Instancing屬性設(shè)置； 編寫ActiveX EXE進(jìn)程外組件； 使用事件實(shí)現(xiàn)回調(diào)和客戶端異步；,3,使用Word應(yīng)用程序、文檔對(duì)象實(shí)現(xiàn)桌面文檔交互； 使用 Excel工作簿、工作表對(duì)象實(shí)現(xiàn)文檔自動(dòng)化； 掌握Word自定義宏及相關(guān)的配置； 在VBE中使用應(yīng)用程序、文檔、工作簿和工作表對(duì)象； 自定義文檔模板及操作；,目標(biāo),4,Word和Excel對(duì)象,ActiveX EXE對(duì)象； 可以在VB中進(jìn)行對(duì)象和接口方

2、式的調(diào)用；,5,層次式對(duì)象模型,6,創(chuàng)建Word對(duì)象 綁定,前期綁定 Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application 后期綁定 Dim wdApp As Object Set wdApp = CreateObject(“Word.Application”) wdApp.Documents.Add,7,創(chuàng)建Word對(duì)象 GetObject,Dim wdDoc As Object Set wdDoc = GetObject(C:SPM-Sem1.doc) wdDoc.

3、Application.Visible = True,8,Word應(yīng)用程序?qū)ο?屬性,MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize,9,Word應(yīng)用程序?qū)ο?方法,MyApp.Activate DocName = Dir(*.DOC) While DocName Empty Application.Pr

4、intOut(adoc) DocName = Dir() Wend MyApp.Quit MyApp.Repeat: MyApp.Undo Normal.Module2.Macro1: Call Normal.Module2.Macro1 Application.Run MacroName:=Normal.Module2.Macro1,10,Word文檔對(duì)象 屬性,If MyDoc.Saved = False Then MyDoc.Save Debug.Print ActiveDocument.AttachedTemplate.FullName Set myRange = ActiveDocu

5、ment.Content myRange.Font.Name = Arial ActiveDocument.PassWord = “ABC” ActiveDocument.ReadOnly = True ActiveDocument.SaveFormat = wdFormatRTF,11,Word文檔對(duì)象 方法,If MyDoc.Saved = False Then MyDoc.Save Call ActiveDocument.SaveAs(“C:ABC.DOC”, wdFormatDocument,False,”O(jiān)penPwd”,True,”WritePwd”,True) Set myRan

6、ge = ActiveDocument.Content myRange.Font.Name = Arial ActiveDocument.Close ActiveDocument.Undo(2),12,Dim wdApp As Word.Application Set wdApp = New Application If (wdApp Is Nothing) Or Err.Number = 0 Then With wdApp .Visible = True .Activate .WindowState = wdWindowStateMaximize .Documents.Open (strDo

7、cFileName) Call .ActiveDocument.SaveAs(“C:ABC.TXT”, wdFormatEncodedText) .ActiveDocument.Close .Quit (False) End With,使用Word文檔對(duì)象,演示文檔格式轉(zhuǎn)換,13,創(chuàng)建Excel對(duì)象,前期綁定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBook Set exApp = New Excel.Application 后期綁定 Dim exApp As Object Set exApp = CreateObject(“

8、Excel.Application”) exApp.SheetsInNewWorkbook = 1 exApp.Workbooks.Add,14,Excel工作簿對(duì)象 屬性,MyBook.ActiveSheet.Name = “年度計(jì)劃工作表” MyBook.ActiveChart.BarShap = xlBox MyBook.KeepChangeHistory = True MyApp.Sheets.Item(1).Cell(1,1).Value = 12,15,Excel工作簿對(duì)象 方法,MyBook.Activate MyBook.Close MyBook.Protect Passwor

9、d := “ASPS MyApp.SaveCopyAs(“C:A.XLS”),16,Excel工作表對(duì)象 屬性,MySheet.Application.DisplayFullScreen = True MySheet.Cells(1,1).Locked = False MySheet.Columns(1).Font.Bold = True MySheet.Visible = False MySheet.PageSetup.LeftMargin = Application.InchesToPoints(0.5),17,Excel工作表對(duì)象 方法,MySheet.UsedRange.Columns

10、(A:C).Calculate MySheet.CheckSpelling MySheet.Range(A1:D10).Delete Shift:=xlShiftToLeft MySheet.PrintPreview = True MySheet.Range(A1:B3).Select,18,使用Excel工作表對(duì)象,exlApp.SheetsInNewWorkbook = 1 exlApp.DefaultFilePath = App.Path exlApp.Workbooks.Add exlApp.Visible = True Set wsBook = .ActiveWorkbook Set

11、 wsSheet = .ActiveSheet wsBook.Application.DisplayAlerts = False Call wsBook.SaveAs(C:ABCD.XLS, , ASD) wsBook.Application.DisplayAlerts = True wsBook.Author = .FullName wsSheet.Cells.Font.Name = System wsSheet.Cells.Font.Size = 12 wsSheet.Name = “隨機(jī)數(shù)據(jù)檢測(cè)” 填充隨機(jī)數(shù)的代碼 wsBook.Save exlApp.DisplayAlerts = T

12、rue exlApp.Quit,演示填充隨機(jī)數(shù)到工作表,19,宏和宏錄制,為了自動(dòng)執(zhí)行某些任務(wù)而作為單個(gè)命令組合在一起的一系列或一組命令； 宏病毒； 可以通過宏錄制來轉(zhuǎn)化操作為執(zhí)行代碼；,演示宏錄制、查看,20,自定義和宏命令按鈕,21,VBA程序設(shè)計(jì) 3 - 1,22,VBA程序設(shè)計(jì) 3 - 2,23,VBA程序設(shè)計(jì) 3 - 3,24,文檔模板 2 - 1,文檔的格式、內(nèi)容和相關(guān)操作進(jìn)行定制； 需要和Word中的宏結(jié)合起來使用； 可以檢測(cè)文檔、應(yīng)用程序?qū)ο蟮氖录?，?duì)文檔編輯、審核、安全等方面進(jìn)行控制； 以.Dot的形式保存文檔模板文件；,25,文檔模板 2 - 2,26,在文檔模板中自定義工

13、具欄按鈕,27,文檔模板工程加密,28,VBE對(duì)象事件 4 - 1,29,VBE對(duì)象事件 4 - 2,30,VBE對(duì)象事件 4 - 3,類模塊clsApplicationEvents代碼 Public WithEvents MyApp As Application Private Sub MyApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) MyApp.ActiveDocument.Saved = True MyApp.DisplayAlerts = wdAlertsNone End Sub,31,VBE對(duì)象事件

14、 4 - 4,模塊modMain中的代碼 Dim X As New clsApplicationEvents Sub Regester_Events() Set X.MyApp = Word.Application End Sub,32,總結(jié) 2 - 1,Microsoft Office中的Word、Excel、PowerPoint、Access等，都是ActiveX EXE組件，可以在Visual Basic應(yīng)用程序中調(diào)用其組件接口，進(jìn)行可編程方式的訪問和控制； Word和Excel提供了一個(gè)層次式的對(duì)象結(jié)構(gòu)提供外部訪問，在外部應(yīng)用程序中，可以通過前期綁定或者后期綁定的方式來訪問其應(yīng)用程序?qū)ο螅?像使用其他ActiveX EXE組件對(duì)象一樣，可以調(diào)用Application、Document、WorkBook、WorkSheet對(duì)象的屬性、方法進(jìn)行相關(guān)的操作； Word 宏是為了自動(dòng)執(zhí)行某些任務(wù)而作為一個(gè)命令組合在一起的一系列或一組命令；,33,總結(jié) 2 - 2,Visual Ba