与Word和Excel交互ppt.ppt

第六章,应用程序与Word和Excel的交互,2,回顾,编写ActiveXDLL服务组件；ActiveXDLL组件的调试；兼容性设置和使用Implements实现接口；组件的Instancing属性设置；编写ActiveXEXE进程外组件；使用事件实现回调和客户端异步；,3,使用Word应用程序、文档对象实现桌面文档交互；使用Excel工作簿、工作表对象实现文档自动化；掌握Word自定义宏及相关的配置；在VBE中使用应用程序、文档、工作簿和工作表对象；自定义文档模板及操作；,目标,4,Word和Excel对象,ActiveXEXE对象；可以在VB中进行对象和接口方式的调用；,5,层次式对象模型,6,创建Word对象绑定,前期绑定DimwdAppAsWord.ApplicationDimwdDocAsWord.DocumentSetwdApp=NewWord.Application后期绑定DimwdAppAsObjectSetwdApp=CreateObject(“Word.Application”)wdApp.Documents.Add,7,创建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=ArialActiveDocument.PassWord=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveFormat=wdFormatRTF,11,Word文档对象方法,IfMyDoc.Saved=FalseThenMyDoc.SaveCallActiveDocument.SaveAs(“C:ABC.DOC”,wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True)SetmyRange=ActiveDocument.ContentmyRange.Font.Name=ArialActiveDocument.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,创建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:=“ASPSMyApp.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=SystemwsSheet.Cells.Font.Size=12wsSheet.Name=“随机数据检测”填充随机数的代码wsBook.SaveexlApp.DisplayAlerts=TrueexlApp.Quit,演示填充随机数到工作表,19,宏和宏录制,为了自动执行某些任务而作为单个命令组合在一起的一系列或一组命令；宏病毒；可以通过宏录制来转化操作为执行代码；,演示宏录制、查看,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宏是为了自动执行某些任务而作为一个命令组合在一起的一系列或一组命令；,33,总结2-2,VisualBasic编辑器通常