ransparancy6應用程序與Word和Excel的交互.ppt

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

2、式的調(diào)用；,5,層次式對象模型,6,創(chuàng)建Word對象 綁定,前期綁定 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對象 GetObject,Dim wdDoc As Object Set wdDoc = GetObject(C:SPM-Sem1.doc) wdDoc.

3、Application.Visible = True,8,Word應用程序?qū)ο?屬性,MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize,9,Word應用程序?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文檔對象 屬性,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文檔對象 方法,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文檔對象,演示文檔格式轉(zhuǎn)換,13,創(chuàng)建Excel對象,前期綁定 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工作簿對象 屬性,MyBook.ActiveSheet.Name = “年度計劃工作表” MyBook.ActiveChart.BarShap = xlBox MyBook.KeepChangeHistory = True MyApp.Sheets.Item(1).Cell(1,1).Value = 12,15,Excel工作簿對象 方法,MyBook.Activate MyBook.Close MyBook.Protect Passwor

9、d := “ASPS MyApp.SaveCopyAs(“C:A.XLS”),16,Excel工作表對象 屬性,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工作表對象 方法,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工作表對象,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 = “隨機數(shù)據(jù)檢測” 填充隨機數(shù)的代碼 wsBook.Save exlApp.DisplayAlerts = T

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

13、具欄按鈕,27,文檔模板工程加密,28,VBE對象事件 4 - 1,29,VBE對象事件 4 - 2,30,VBE對象事件 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對象事件

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應用程序中調(diào)用其組件接口，進行可編程方式的訪問和控制； Word和Excel提供了一個層次式的對象結(jié)構(gòu)提供外部訪問，在外部應用程序中，可以通過前期綁定或者后期綁定的方式來訪問其應用程序?qū)ο螅?像使用其他ActiveX EXE組件對象一樣，可以調(diào)用Application、Document、WorkBook、WorkSheet對象的屬性、方法進行相關的操作； Word 宏是為了自動執(zhí)行某些任務而作為一個命令組合在一起的一系列或一組命令；,33,總結(jié) 2 - 2,Visual Ba