《Transparancy6应用程序与Word和Excel的交互.ppt》由会员分享，可在线阅读，更多相关《Transparancy6应用程序与Word和Excel的交互.ppt（33页珍藏版）》请在三一办公上搜索。
1、第六章,应用程序与Word和Excel的交互,2,回顾,编写ActiveX DLL服务组件；ActiveX DLL组件的调试；兼容性设置和使用Implements实现接口；组件的Instancing属性设置；编写ActiveX EXE进程外组件；使用事件实现回调和客户端异步；,3,使用Word应用程序、文档对象实现桌面文档交互；使用 Excel工作簿、工作表对象实现文档自动化；掌握Word自定义宏及相关的配置；在VBE中使用应用程序、文档、工作簿和工作表对象；自定义文档模板及操作；,目标,4,Word和Excel对象,ActiveX EXE对象；可以在VB中进行对象和接口方式的调用；,5,层次
2、式对象模型,6,创建Word对象 绑定,前期绑定Dim wdApp As Word.ApplicationDim wdDoc As Word.DocumentSet wdApp=New Word.Application后期绑定Dim wdApp As ObjectSet wdApp=CreateObject(“Word.Application”)wdApp.Documents.Add,7,创建Word对象 GetObject,Dim wdDoc As ObjectSet wdDoc=GetObject(C:SPM-Sem1.doc)wdDoc.Application.Visible=True,
3、8,Word应用程序对象 属性,MyApp.Visible=True MyApp.ActiveDocument.SaveMyApp.Caption=“公文20040102”MyApp.ActiveDocument.FullName=MyApp.Path&“A.DOC”MyApp.WindowState=wdWindowStateMaximize,9,Word应用程序对象 方法,MyApp.ActivateDocName=Dir(*.DOC)While DocName Empty Application.PrintOut(adoc)DocName=Dir()WendMyApp.QuitMyApp
4、.Repeat:MyApp.Undo Normal.Module2.Macro1:Call Normal.Module2.Macro1 Application.Run MacroName:=Normal.Module2.Macro1,10,Word文档对象 属性,If MyDoc.Saved=False Then MyDoc.SaveDebug.Print ActiveDocument.AttachedTemplate.FullName Set myRange=ActiveDocument.Content myRange.Font.Name=ArialActiveDocument.PassWo
5、rd=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveFormat=wdFormatRTF,11,Word文档对象 方法,If MyDoc.Saved=False Then MyDoc.SaveCall ActiveDocument.SaveAs(“C:ABC.DOC”,wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True)Set myRange=ActiveDocument.ContentmyRange.Font.Name=ArialActiveDocument.CloseActiv
6、eDocument.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(strDocFileName)Call.ActiveDocument.SaveAs(“C:ABC.TXT”,wdFormatEncodedText).ActiveDocument.Close.Quit
7、(False)End With,使用Word文档对象,演示文档格式转换,13,创建Excel对象,前期绑定 Dim exApp As Excel.ApplicationDim exDoc As Excel.WorkBookSet exApp=New Excel.Application后期绑定Dim exApp As ObjectSet exApp=CreateObject(“Excel.Application”)exApp.SheetsInNewWorkbook=1exApp.Workbooks.Add,14,Excel工作簿对象 属性,MyBook.ActiveSheet.Name=“年度计
8、划工作表”MyBook.ActiveChart.BarShap=xlBoxMyBook.KeepChangeHistory=TrueMyApp.Sheets.Item(1).Cell(1,1).Value=12,15,Excel工作簿对象 方法,MyBook.ActivateMyBook.CloseMyBook.Protect Password:=“ASPS MyApp.SaveCopyAs(“C:A.XLS”),16,Excel工作表对象 属性,MySheet.Application.DisplayFullScreen=TrueMySheet.Cells(1,1).Locked=False
9、MySheet.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).Delete Shift:=xlShiftToLeft MySheet.PrintPreview=TrueMySheet.Range(A1:B3).Select,18,使
10、用Excel工作表对象,exlApp.SheetsInNewWorkbook=1 exlApp.DefaultFilePath=App.Path exlApp.Workbooks.Add exlApp.Visible=True Set wsBook=.ActiveWorkbook Set wsSheet=.ActiveSheet wsBook.Application.DisplayAlerts=False Call wsBook.SaveAs(C:ABCD.XLS,ASD)wsBook.Application.DisplayAlerts=True wsBook.Author=.FullName
11、 wsSheet.Cells.Font.Name=System wsSheet.Cells.Font.Size=12 wsSheet.Name=“随机数据检测”填充随机数的代码 wsBook.Save exlApp.DisplayAlerts=True exlApp.Quit,演示填充随机数到工作表,19,宏和宏录制,为了自动执行某些任务而作为单个命令组合在一起的一系列或一组命令；宏病毒；可以通过宏录制来转化操作为执行代码；,演示宏录制、查看,20,自定义和宏命令按钮,21,VBA程序设计 3-1,22,VBA程序设计 3-2,23,VBA程序设计 3-3,24,文档模板 2-1,文档的格式、
12、内容和相关操作进行定制；需要和Word中的宏结合起来使用；可以检测文档、应用程序对象的事件，对文档编辑、审核、安全等方面进行控制；以.Dot的形式保存文档模板文件；,25,文档模板 2-2,26,在文档模板中自定义工具栏按钮,27,文档模板工程加密,28,VBE对象事件 4-1,29,VBE对象事件 4-2,30,VBE对象事件 4-3,类模块clsApplicationEvents代码Public WithEvents MyApp As ApplicationPrivate Sub MyApp_DocumentBeforeClose(ByVal Doc As Document,Cancel
13、As Boolean)MyApp.ActiveDocument.Saved=True MyApp.DisplayAlerts=wdAlertsNoneEnd Sub,31,VBE对象事件 4-4,模块modMain中的代码Dim X As New clsApplicationEventsSub Regester_Events()Set X.MyApp=Word.ApplicationEnd Sub,32,总结 2-1,Microsoft Office中的Word、Excel、PowerPoint、Access等，都是ActiveX EXE组件，可以在Visual Basic应用程序中调用其组件
14、接口，进行可编程方式的访问和控制；Word和Excel提供了一个层次式的对象结构提供外部访问，在外部应用程序中，可以通过前期绑定或者后期绑定的方式来访问其应用程序对象；像使用其他ActiveX EXE组件对象一样，可以调用Application、Document、WorkBook、WorkSheet对象的属性、方法进行相关的操作；Word 宏是为了自动执行某些任务而作为一个命令组合在一起的一系列或一组命令；,33,总结 2-2,Visual Basic 编辑器通常称为 VBE，是一种可用于创建、编辑和测试 Visual Basic for Applications 代码和过程的环境，并且可以在Word中使用窗体、控件、模块和类模块等多种编程对象；通过文档模板，可以定制文档格式和操作，并且经常和宏结合起来使用；在VBE中，可以像VB IDE一样使用Document、WorkBook、WorkSheet对象的事件，并且可以通过WithEvents关键词，引用Application对象的事件。,
