与Word和Excel交互ppt.ppt

《与Word和Excel交互ppt.ppt》由会员分享，可在线阅读，更多相关《与Word和Excel交互ppt.ppt（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、与与WordWord和和ExcelExcel交互交互pptppt回顾回顾编写编写ActiveX DLL服务组件；服务组件；ActiveX DLL组件的调试；组件的调试；兼容性设置和使用兼容性设置和使用Implements实现接口；实现接口；组件的组件的Instancing属性设置；属性设置；编写编写ActiveX EXE进程外组件；进程外组件；使用事件实现回调和客户端异步；使用事件实现回调和客户端异步；2 2使用使用WordWord应用程序、文档对象实现桌面文档交互；应用程序、文档对象实现桌面文档交互；使用使用 ExcelExcel工作簿、工作表对象实现文档自动化；工作簿、工作表对象实现文档自

2、动化；掌握掌握WordWord自定义宏及相关的配置；自定义宏及相关的配置；在在VBEVBE中使用应用程序、文档、工作簿和工作表对象；中使用应用程序、文档、工作簿和工作表对象；自定义文档模板及操作；自定义文档模板及操作；目标目标3 3WordWord和和ExcelExcel对象对象ActiveX EXEActiveX EXE对象；对象；可以在可以在VBVB中进行对象和接口方式的调用；中进行对象和接口方式的调用；4 4层次式对象模型层次式对象模型ApplicationDocumentsDocumentRangesRangeFields5 5创建创建Word对象对象 绑定绑定前期绑定前期绑定Dim

3、wdApp As Word.ApplicationDim wdDoc As Word.DocumentSet wdApp=New Word.Application后期绑定后期绑定Dim wdApp As ObjectSet wdApp=CreateObject(“Word.Application”)wdApp.Documents.Add6 6创建创建Word对象对象 GetObjectDim wdDoc As ObjectSet wdDoc=GetObject(C:SPM-Sem1.doc)wdDoc.Application.Visible=True 7 7Word应用程序对象应用程序对象 属

4、性属性MyApp.Visible=True MyApp.ActiveDocument.SaveMyApp.Caption=“公文公文2004010220040102”MyApp.ActiveDocument.FullName=MyApp.Path&“A.DOC”MyApp.WindowState=wdWindowStateMaximize 8 8Word应用程序对象应用程序对象 方法方法MyApp.ActivateActivateDocName=Dir(*.DOC)While DocName Empty Application.PrintOut(adoc)DocName=Dir()WendMy

5、App.QuitQuitMyApp.Repeat:MyApp.Undo Normal.Module2.Macro1:Call Normal.Module2.Macro1 Application.Run MacroName:=Normal.Module2.Macro1 9 9Word文档对象文档对象 属性属性If MyDoc.Saved=False Then MyDoc.SaveDebug.Print ActiveDocument.AttachedTemplate.FullName Set myRange=ActiveDocument.Content myRange.Font.Name=Aria

6、lActiveDocument.PassWord=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveFormat=wdFormatRTF1010Word文档对象文档对象 方法方法If MyDoc.Saved=False Then MyDoc.SaveCall ActiveDocument.SaveAs(“C:ABC.DOC”,wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True)Set myRange=ActiveDocument.ContentmyRange.Font.Name=Ari

7、alActiveDocument.CloseActiveDocument.Undo(2)1111 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”,wdFormatEncode

8、dText).ActiveDocument.Close .Quit(False)End With使用使用Word文档对象文档对象演示文档格式转换演示文档格式转换1212创建创建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.Wor

9、kbooks.Add 1313Excel工作簿对象工作簿对象 属性属性MyBook.ActiveSheet.Name=“年度计划工作表年度计划工作表”MyBook.ActiveChart.BarShap=xlBoxMyBook.KeepChangeHistory=TrueMyApp.Sheets.Item(1).Cell(1,1).Value=121414Excel工作簿对象工作簿对象 方法方法MyBook.ActivateMyBook.CloseMyBook.Protect Password:=“ASPS MyApp.SaveCopyAs(“C:A.XLS”)1515Excel工作表对象工作

10、表对象 属性属性MySheet.Application.DisplayFullScreen =TrueMySheet.Cells(1,1).Locked=False MySheet.Columns(1).Font.Bold=TrueMySheet.Visible=FalseMySheet.PageSetup.LeftMargin=Application.InchesToPoints(0.5)1616Excel工作表对象工作表对象 方法方法MySheet.UsedRange.Columns(A:C).CalculateMySheet.CheckSpellingMySheet.Range(A1:D

11、10).Delete Shift:=xlShiftToLeft MySheet.PrintPreview=TrueMySheet.Range(A1:B3).Select 1717使用使用Excel工作表对象工作表对象 exlApp.SheetsInNewWorkbook=1 exlApp.DefaultFilePath=App.Path exlApp.Workbooks.Add exlApp.Visible=True Set wsBook=.ActiveWorkbook Set wsSheet=.ActiveSheet wsBook.Application.DisplayAlerts=Fals

12、e 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演示填充随机数到工作表演示填充随机数到工作表1818宏和宏录制宏和宏录制为了自动执行某些任务而作为单个

13、命令组合在一起的一为了自动执行某些任务而作为单个命令组合在一起的一系列或一组命令；系列或一组命令；宏病毒；宏病毒；可以通过宏录制来转化操作为执行代码；可以通过宏录制来转化操作为执行代码；演示宏录制、查看演示宏录制、查看1919自定义和宏命令按钮自定义和宏命令按钮2020VBA程序设计程序设计 3-12121VBA程序设计程序设计 3-22222VBA程序设计程序设计 3-32323文档模板文档模板 2-1文档的格式、内容和相关操作进行定制；文档的格式、内容和相关操作进行定制；需要和需要和Word中的宏结合起来使用；中的宏结合起来使用；可以检测文档、应用程序对象的事件，对文档编辑、可以检测文档、

14、应用程序对象的事件，对文档编辑、审核、安全等方面进行控制；审核、安全等方面进行控制；以以.Dot的形式保存文档模板文件；的形式保存文档模板文件；2424文档模板文档模板 2-22525在文档模板中自定义工具栏按钮在文档模板中自定义工具栏按钮2626文档模板工程加密文档模板工程加密2727VBE对象事件对象事件 4-12828VBE对象事件对象事件 4-22929VBE对象事件对象事件 4-3类模块类模块clsApplicationEvents代码代码Public WithEvents MyApp As ApplicationPrivate Sub MyApp_DocumentBeforeClo

15、se(ByVal Doc As Document,Cancel As Boolean)MyApp.ActiveDocument.Saved=True MyApp.DisplayAlerts=wdAlertsNoneEnd Sub3030VBE对象事件对象事件 4-4模块模块modMain中的代码中的代码Dim X As New clsApplicationEventsSub Regester_Events()Set X.MyApp=Word.ApplicationEnd Sub3131总结总结 2-1Microsoft Office中的中的Word、Excel、PowerPoint、Acces

16、s等，都是等，都是ActiveX EXE组件，可以在组件，可以在Visual Basic应用程序中调用其组件接口，进行可编程方式应用程序中调用其组件接口，进行可编程方式的访问和控制；的访问和控制；Word和和Excel提供了一个层次式的对象结构提供外部提供了一个层次式的对象结构提供外部访问，在外部应用程序中，可以通过前期绑定或者访问，在外部应用程序中，可以通过前期绑定或者后期绑定的方式来访问其应用程序对象；后期绑定的方式来访问其应用程序对象；像使用其他像使用其他ActiveX EXE组件对象一样，可以调用组件对象一样，可以调用Application、Document、WorkBook、Work

17、Sheet对象对象的属性、方法进行相关的操作；的属性、方法进行相关的操作；Word 宏是为了自动执行某些任务而作为一个命令组宏是为了自动执行某些任务而作为一个命令组合在一起的一系列或一组命令；合在一起的一系列或一组命令；3232总结总结 2-2Visual Basic 编辑器通常称为编辑器通常称为 VBE，是一种可用于创是一种可用于创建、编辑和测试建、编辑和测试 Visual Basic for Applications 代码和代码和过程的环境，并且可以在过程的环境，并且可以在Word中使用窗体、控件、中使用窗体、控件、模块和类模块等多种编程对象；模块和类模块等多种编程对象；通过文档模板，可以定制文档格式和操作，并且经通过文档模板，可以定制文档格式和操作，并且经常和宏结合起来使用；常和宏结合起来使用；在在VBE中，可以像中，可以像VB IDE一样使用一样使用Document、WorkBook、WorkSheet对象的事件，并且可以通过对象的事件，并且可以通过WithEvents关键词，引用关键词，引用Application对象的事件。对象的事件。3333结束结束