G E T O B J E C T 函 数

激活 OLE 自动化对象 并创建此对象的引用

语 法

GETOBJECT ( FileName [, ClassNam e])

返 值 类 型

Object

参 数 描 述

FileName

指 明 所 要 激 活 文 件 的 完 整 路 径 与 文 件 名 并 不 需 要 指 定 应 用 程 序 因 为 OLE

动 态 链 接 库 将 根 据 提 供 的 文 件 名 确 定 要 启 动 的 应 用 程 序

例如 下面的代码将启动 M icrosoft Excel 打开名为 BUDGET.XLS 的文件 并通过名为 MBUDVAR 的对象变量创建引用

MBUDVAR = GETOBJECT('C:\EXCEL\WORK\BUDGET.XLS')

C lassName

指 定 所 要 检 索 对 象 的 类 名 有 的 应 用 程 序 可 以 在 同 一 文 件 中 存 储 一 个 以 上 的对 象 类 型 并 允 许 使 用 类 名 指 定 要 激 活 的 对 象 例 如 如 果 某 个 文 字 处 理 应用 程 序 在 同 一 文 件 中 存 储 了 文 档 宏 定 义 与 工 具 栏 对 象 则 可 用 下 列 命 令 创

建 对 文 档 文 件 的 引 用

MDOCFILE = GETOBJECT('C:\WRDPROC\MYDOC.DOC','WrdProc.Document')

'WrdProc.Document')

对于某些服务程序 每次调用 GETOBJECT 函数 都将启动该应用程序的一个额外实例 并占用额外内存 如果该应用程序已经运行 可以仿照下面的示例 忽略FileName 而包含 ClassName 从而避免启动该应用程序的额外实例

oleApp = GETOBJECT(, "Excel.Application")

说 明

用 GETOBJECT 函数从文件中激活某个 OLE 自动化对象 并通过变量或数组元素指定对该对象的引用

如果指定了一个无效的文件或类名称 会显示 OLE 错误 并且 GETOBJECT 函数返回一个空字符串

请 参 阅

COMCLASSINFO , CREATEOBJECT , DEFINE CLASS , SET OLEOBJECT