如果要在一个 Microsoft Office 应用程序中运行使用另一个应用程序中对象的代码,请遵循下列步骤
在“引用”对话框(“工具”菜单)中,设置对其他应用程序的类型库的引用。设置引用后,对象、属性和方法将显示在对象浏览器中并且将在编译时检查语法。此外,您还可以获得有关它们的快捷帮助。
将对象变量声明为特定类型,该对象变量将引用其他应用程序中的对象。请确保在声明变量时一定要使用提供对象的应用程序的名称。例如,下面的语句声明一个指向 Microsoft Word 文档的变量和一个指向Microsoft Excel 应用程序的变量。
Dim appWD As Word.Application, wbXL As Excel.Application
注意 如果希望代码及早绑定,必须执行上述步骤。
将 New 关键字和要使用的其他应用程序中对象的 OLE 程序标识符 联合使用,如以下示例所示。如果要显示其他应用程序的会话过程,请将 Visible 属性设为 True。
Dim appWD As Word.Application
Set appWD = New Word.Application
appWd.Visible = True
将属性和方法应用于包含在变量中的对象。例如,下面的指令将新建一个 Word 文档。
Dim appWD As Word.Application
Set appWD = New Word.Application
appWD.Documents.Add
结束对这个应用程序的操作后,请使用 Quit 方法将其关闭,如以下示例所示。
appWd.Quit