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

Advanced VB Programming/Chapter 5/Slide # of 23 第六章 应用程序与Word和Excel的交互 回顾 编写ActiveX DLL服务组件； ActiveX DLL组件的调试； 兼容性设置和使用Implements实现接口； 组件的Instancing属性设置； 编写ActiveX EXE进程外组件； 使用事件实现回调和客户端异步； 前期绑定 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 Dim wdDoc As Object Set wdDoc = GetObject(C:\SPM-Sem1.doc) wdDoc.Application.Visible = True MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文— MyApp.ActiveDocument.FullName = MyApp.Path “\A.DOC” MyApp.WindowState = wdWindowStateMaximize 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 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 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) 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 前期绑定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBook Set exApp = New Excel.Application 后期绑定 Dim exApp As Object Set exApp = CreateObject(“Exc