Transparancy6应用程序与Word和Excel的交互.ppt

第六章,应用程序与Word和Excel的交互,2,回顾,编写ActiveX DLL服务组件； ActiveX DLL组件的调试； 兼容性设置和使用Implements实现接口； 组件的Instancing属性设置； 编写ActiveX EXE进程外组件； 使用事件实现回调和客户端异步；,3,使用Word应用程序、文档对象实现桌面文档交互； 使用 Excel工作簿、工作表对象实现文档自动化； 掌握Word自定义宏及相关的配置； 在VBE中使用应用程序、文档、工作簿和工作表对象； 自定义文档模板及操作；,目标,4,Word和Excel对象,ActiveX EXE对象； 可以在VB中进行对象和接口方式的调用；,5,层次式对象模型,6,创建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,创建Word对象 GetObject,Dim wdDoc As Object Set wdDoc = GetObject(C:SPM-Sem1.doc) wdDoc.Application.Visible = True,8,Word应用程序对象 属性,MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize,9,Word应用程序对象 方法,MyApp.Activate DocName = Dir(*.DOC) While DocName Empty Application.PrintOut(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 = ActiveDocument.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,”OpenPwd”,True,”WritePwd”,True) Set myRange = 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 (strDocFileName) Call .ActiveDocument.SaveAs(“C:ABC.TXT”, wdFormatEncodedText) .ActiveDocument.Close .Quit (False) End With,使用Word文档对象,演示文档格式转换,13,创建Excel对象,前期绑定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBook Set exApp = New Excel.Application 后期绑定 Dim exApp As Object Set exApp = CreateObject(“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 Password := “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(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 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 = “随机数据检测” 填充随机数的代码 wsBook.Save exlApp.DisplayAlerts = True exlApp.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代码 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对象事件 4 - 4,模块modMain中的代码 Dim X As New clsApplicationEvents Sub Regester_Events() Set X.MyApp = Word.Application End Sub,32,总结 2 - 1,Microsoft Office中的Word、Excel、PowerPoint、Access等，都是ActiveX EXE组件，可以在Visual Basic应用程序中调用其组件接口，进行可编程方式的访问和控制； 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对象的事件。,