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

《ransparancy6應用程序與Word和Excel的交互.ppt》由會員分享，可在線閱讀，更多相關《ransparancy6應用程序與Word和Excel的交互.ppt（33頁珍藏版）》請在裝配圖網(wǎng)上搜索。

第六章,應用程序與Word和Excel的交互,2,回顧,編寫ActiveXDLL服務組件；ActiveXDLL組件的調試；兼容性設置和使用Implements實現(xiàn)接口；組件的Instancing屬性設置；編寫ActiveXEXE進程外組件；使用事件實現(xiàn)回調和客戶端異步；,3,使用Word應用程序、文檔對象實現(xiàn)桌面文檔交互；使用Excel工作簿、工作表對象實現(xiàn)文檔自動化；掌握Word自定義宏及相關的配置；在VBE中使用應用程序、文檔、工作簿和工作表對象；自定義文檔模板及操作；,目標,4,Word和Excel對象,ActiveXEXE對象；可以在VB中進行對象和接口方式的調用；,,5,層次式對象模型,6,創(chuàng)建Word對象——綁定,前期綁定DimwdAppAsWord.ApplicationDimwdDocAsWord.DocumentSetwdApp=NewWord.Application后期綁定DimwdAppAsObjectSetwdApp=CreateObject(“Word.Application”)wdApp.Documents.Add,,,7,創(chuàng)建Word對象——GetObject,DimwdDocAsObjectSetwdDoc=GetObject("C:\SPM-Sem1.doc")wdDoc.Application.Visible=True,,8,Word應用程序對象——屬性,MyApp.Visible=TrueMyApp.ActiveDocument.SaveMyApp.Caption=“公文——20040102”MyApp.ActiveDocument.FullName=MyApp.Path&“\A.DOC”MyApp.WindowState=wdWindowStateMaximize,9,Word應用程序對象——方法,MyApp.ActivateDocName=Dir("*.DOC")WhileDocNameEmptyApplication.PrintOut(adoc)DocName=Dir()WendMyApp.QuitMyApp.Repeat:MyApp.UndoNormal.Module2.Macro1:CallNormal.Module2.Macro1Application.RunMacroName:="Normal.Module2.Macro1,10,Word文檔對象——屬性,IfMyDoc.Saved=FalseThenMyDoc.SaveDebug.PrintActiveDocument.AttachedTemplate.FullNameSetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.PassWord=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveFormat=wdFormatRTF,11,Word文檔對象——方法,IfMyDoc.Saved=FalseThenMyDoc.SaveCallActiveDocument.SaveAs(“C:\ABC.DOC”,wdFormatDocument,False,”O(jiān)penPwd”,True,”WritePwd”,True)SetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.CloseActiveDocument.Undo(2),12,DimwdAppAsWord.ApplicationSetwdApp=NewApplicationIf(wdAppIsNothing)OrErr.Number=0ThenWithwdApp.Visible=True.Activate.WindowState=wdWindowStateMaximize.Documents.Open(strDocFileName)Call.ActiveDocument.SaveAs(“C:\ABC.TXT”,wdFormatEncodedText).ActiveDocument.Close.Quit(False)EndWith,使用Word文檔對象,演示文檔格式轉換…,13,創(chuàng)建Excel對象,前期綁定DimexAppAsExcel.ApplicationDimexDocAsExcel.WorkBookSetexApp=NewExcel.Application后期綁定DimexAppAsObjectSetexApp=CreateObject(“Excel.Application”)exApp.SheetsInNewWorkbook=1exApp.Workbooks.Add,14,Excel工作簿對象——屬性,MyBook.ActiveSheet.Name=“年度計劃工作表”MyBook.ActiveChart.BarShap=xlBoxMyBook.KeepChangeHistory=TrueMyApp.Sheets.Item(1).Cell(1,1).Value=12,15,Excel工作簿對象——方法,MyBook.ActivateMyBook.CloseMyBook.ProtectPassword:=“ASPS"MyApp.SaveCopyAs(“C:\A.XLS”),16,Excel工作表對象——屬性,MySheet.Application.DisplayFullScreen=TrueMySheet.Cells(1,1).Locked=FalseMySheet.Columns(1).Font.Bold=TrueMySheet.Visible=FalseMySheet.PageSetup.LeftMargin=Application.InchesToPoints(0.5),17,Excel工作表對象——方法,MySheet.UsedRange.Columns("A:C").CalculateMySheet.CheckSpellingMySheet.Range("A1:D10").DeleteShift:=xlShiftToLeftMySheet.PrintPreview=TrueMySheet.Range("A1:B3").Select,18,使用Excel工作表對象,exlApp.SheetsInNewWorkbook=1exlApp.DefaultFilePath=App.PathexlApp.Workbooks.AddexlApp.Visible=TrueSetwsBook=.ActiveWorkbookSetwsSheet=.ActiveSheetwsBook.Application.DisplayAlerts=FalseCallwsBook.SaveAs("C:\ABCD.XLS",,"ASD")wsBook.Application.DisplayAlerts=TruewsBook.Author=.FullNamewsSheet.Cells.Font.Name="System"wsSheet.Cells.Font.Size=12wsSheet.Name=“隨機數(shù)據(jù)檢測”‘填充隨機數(shù)的代碼wsBook.SaveexlApp.DisplayAlerts=TrueexlApp.Quit,演示填充隨機數(shù)到工作表…,19,宏和宏錄制,為了自動執(zhí)行某些任務而作為單個命令組合在一起的一系列或一組命令；宏病毒；可以通過宏錄制來轉化操作為執(zhí)行代碼；,,演示宏錄制、查看…,20,自定義和宏命令按鈕,21,VBA程序設計3-1,,22,VBA程序設計3-2,,23,VBA程序設計3-3,,24,文檔模板2-1,文檔的格式、內容和相關操作進行定制；需要和Word中的宏結合起來使用；可以檢測文檔、應用程序對象的事件，對文檔編輯、審核、安全等方面進行控制；以.Dot的形式保存文檔模板文件；,25,,文檔模板2-2,26,在文檔模板中自定義工具欄按鈕,,27,文檔模板工程加密,,28,VBE對象事件4-1,,,29,VBE對象事件4-2,,,30,,VBE對象事件4-3,‘類模塊clsApplicationEvents代碼PublicWithEventsMyAppAsApplicationPrivateSubMyApp_DocumentBeforeClose(ByValDocAsDocument,CancelAsBoolean)MyApp.ActiveDocument.Saved=TrueMyApp.DisplayAlerts=wdAlertsNoneEndSub,31,,VBE對象事件4-4,‘模塊modMain中的代碼DimXAsNewclsApplicationEventsSubRegester_Events()SetX.MyApp=Word.ApplicationEndSub,32,總結2-1,MicrosoftOffice中的Word、Excel、PowerPoint、Access等，都是ActiveXEXE組件，可以在VisualBasic應用程序中調用其組件接口，進行可編程方式的訪問和控制；Word和Excel提供了一個層次式的對象結構提供外部訪問，在外部應用程序中，可以通過前期綁定或者后期綁定的方式來訪問其應用程序對象；像使用其他ActiveXEXE組件對象一樣，可以調用Application、Document、WorkBook、WorkSheet對象的屬性、方法進行相關的操作；Word宏是為了自動執(zhí)行某些任務而作為一個命令組合在一起的一系列或一組命令；,33,總結2-2,VisualBasic編輯器通常稱為VBE，是一種可用于創(chuàng)建、編輯和測試VisualBasicforApplications代碼和過程的環(huán)境，并且可以在Word中使用窗體、控件、模塊和類模塊等多種編程對象；通過文檔模板，可以定制文檔格式和操作，并且經(jīng)常和宏結合起來使用；在VBE中，可以像VBIDE一樣使用Document、WorkBook、WorkSheet對象的事件，并且可以通過WithEvents關鍵詞，引用Application對象的事件。,