《Transparancy6应用程序与和Excel的交互》由会员分享，可在线阅读，更多相关《Transparancy6应用程序与和Excel的交互（33页珍藏版）》请在金锄头文库上搜索。
1、Version 3.0第六章应用程序与应用程序与WordWord和和ExcelExcel的交互的交互回顾 编写ActiveX DLL服务组件； ActiveX DLL组件的调试； 兼容性设置和使用Implements实现接口； 组件的Instancing属性设置； 编写ActiveX EXE进程外组件； 使用事件实现回调和客户端异步；2 2使用Word应用程序、文档对象实现桌面文档交互； 使用 Excel工作簿、工作表对象实现文档自动化； 掌握Word自定义宏及相关的配置； 在VBE中使用应用程序、文档、工作簿和工作表对象； 自定义文档模板及操作；目标3 3Word和Excel对象Active
2、X EXE对象； 可以在VB中进行对象和接口方式的调用；4 4层次式对象模型ApplicationDocumentsDocumentRangesRangeFields5 5创建Word对象 绑定 前期绑定 Dim wdApp As Word.Application Dim wdDoc As Word.DocumentSet wdApp = New Word.Application 后期绑定 Dim wdApp As Object Set wdApp = CreateObject(“Word.Application”)wdApp.Documents.Add6 6创建Word对象 GetObjec
3、t Dim wdDoc As Object Set wdDoc = GetObject(“C:SPM-Sem1.doc“) wdDoc.Application.Visible = True 7 7Word应用程序对象 属性 MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize 8 8Word应用程序对象 方法M
4、yApp.ActivateDocName = Dir(“*.DOC“) While DocName EmptyApplication.PrintOut(adoc)DocName = Dir() WendMyApp.QuitMyApp.Repeat: MyApp.Undo Normal.Module2.Macro1: Call Normal.Module2.Macro1 Application.RunMacroName:=“Normal.Module2.Macro1 9 9Word文档对象 属性 If MyDoc.Saved = False Then MyDoc.SaveDebug.Print
5、ActiveDocument.AttachedTemplate.FullName Set myRange = ActiveDocument.ContentmyRange.Font.Name = “Arial“ ActiveDocument.PassWord = “ABC” ActiveDocument.ReadOnly = True ActiveDocument.SaveFormat = wdFormatRTF1010Word文档对象 方法 If MyDoc.Saved = False Then MyDoc.Save Call ActiveDocument.SaveAs(“C:ABC.DOC”
6、, wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,Tr ue) Set myRange = ActiveDocument.Content myRange.Font.Name = “Arial“ ActiveDocument.Close ActiveDocument.Undo(2)1111Dim wdApp As Word.ApplicationSet wdApp = New ApplicationIf (wdApp Is Nothing) Or Err.Number = 0 Then With wdApp.Visible = True .Ac
7、tivate .WindowState = wdWindowStateMaximize .Documents.Open (strDocFileName)Call .ActiveDocument.SaveAs(“C:ABC.TXT”, wdFormatEncodedText).ActiveDocument.Close .Quit (False)End With使用Word文档对象演示文档格式转换1212创建Excel对象 前期绑定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBookSet exApp = New Excel.App
8、lication 后期绑定 Dim exApp As Object Set exApp = CreateObject(“Excel.Application”)exApp.SheetsInNewWorkbook = 1 exApp.Workbooks.Add 1313Excel工作簿对象 属性 MyBook.ActiveSheet.Name = “年度计划工作表” MyBook.ActiveChart.BarShap = xlBox MyBook.KeepChangeHistory = True MyApp.Sheets.Item(1).Cell(1,1).Value = 121414Excel
9、工作簿对象 方法 MyBook.Activate MyBook.Close MyBook.Protect Password := “ASPS“ MyApp.SaveCopyAs(“C:A.XLS”)1515Excel工作表对象 属性 MySheet.Application.DisplayFullScreen = True MySheet.Cells(1,1).Locked = False MySheet.Columns(1).Font.Bold = True MySheet.Visible = False MySheet.PageSetup.LeftMargin = Application.I
10、nchesToPoints(0.5)1616Excel工作表对象 方法 MySheet.UsedRange.Columns(“A:C“).Calculate MySheet.CheckSpelling MySheet.Range(“A1:D10“).Delete Shift:=xlShiftToLeft MySheet.PrintPreview = True MySheet.Range(“A1:B3“).Select1717使用Excel工作表对象exlApp.SheetsInNewWorkbook = 1exlApp.DefaultFilePath = App.PathexlApp.Work
11、books.AddexlApp.Visible = TrueSet wsBook = .ActiveWorkbookSet wsSheet = .ActiveSheetwsBook.Application.DisplayAlerts = FalseCall wsBook.SaveAs(“C:ABCD.XLS“, , “ASD“)wsBook.Application.DisplayAlerts = TruewsBook.Author = .FullNamewsSheet.Cells.Font.Name = “System“wsSheet.Cells.Font.Size = 12wsSheet.N
12、ame = “随机数据检测检测”填充随机数的代码wsBook.Save exlApp.DisplayAlerts = TrueexlApp.Quit演示填充随机数到工作表1818宏和宏录制 为了自动执行某些任务而作为单个命令组合在一起的一 系列或一组命令； 宏病毒； 可以通过宏录制来转化操作为执行代码；演示宏录制、查看 1919自定义和宏命令按钮2020VBA程序设计 3 - 12121VBA程序设计 3 - 22222VBA程序设计 3 - 32323文档模板 2 - 1 文档的格式、内容和相关操作进行定制； 需要和Word中的宏结合起来使用； 可以检测文档、应用程序对象的事件，对文档编辑
13、、审核、安全等方面进行控制； 以.Dot的形式保存文档模板文件；2424文档模板 2 - 22525在文档模板中自定义工具栏按钮2626文档模板工程加密2727VBE对象事件 4 - 12828VBE对象事件 4 - 22929VBE对象事件 4 - 3类模块clsApplicationEvents代码Public WithEvents MyApp As ApplicationPrivate Sub MyApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)MyApp.ActiveDocument.Saved = Tr
14、ueMyApp.DisplayAlerts = wdAlertsNone End Sub3030VBE对象事件 4 - 4模块modMain中的代码Dim X As New clsApplicationEvents Sub Regester_Events()Set X.MyApp = Word.Application End Sub3131总结 2 - 1 Microsoft Office中的Word、Excel、PowerPoint、 Access等，都是ActiveX EXE组件，可以在Visual Basic应用程序中调用其组件接口，进行可编程方式 的访问和控制； Word和Excel提
15、供了一个层次式的对象结构提供外部 访问，在外部应用程序中，可以通过前期绑定或者 后期绑定的方式来访问其应用程序对象； 像使用其他ActiveX EXE组件对象一样，可以调用 Application、Document、WorkBook、WorkSheet对象 的属性、方法进行相关的操作； Word 宏是为了自动执行某些任务而作为一个命令组 合在一起的一系列或一组命令；3232总结 2 - 2 Visual Basic 编辑器通常称为 VBE，是一种可用于创 建、编辑和测试 Visual Basic for Applications 代码和 过程的环境，并且可以在Word中使用窗体、控件、 模块和类模块等多种编程对象； 通过文档模板，可以定制文档格式和操作，并且经 常和宏结合起来使用； 在VBE中，可以像VB IDE一样使用Document、 WorkBook、WorkSheet对象的事件，并且可以通过 WithEvents关键词，引用Application对象的事件。3333
