Excel VBA 编程基础 -- 对象(十)

Debug.Print Environ("SystemDrive")   ' C:Debug.Print Environ(7)   ' ComSpec=C:\Windows\system32\cmd.exe

Dim taskID As DoubletaskID = Shell("C:\Windows\Notepad.exe", vbNormalNoFocus)

The task ID returned by the Shell function can be used in place of title to activate an application.（Shell 函数返回的任务 ID 也可以用作为 title 参数来激活应用程序。）

经过多次测试，这段话是错的：AppActivate 不接受 Shell 的返回值作为 title 参数，报告 5 号错误：无效的过程调用或参数。见下图示例。

例1. AppActivate 不接受 Shell 返回值作为参数

图5 AppActivate 不接受 Shell 返回值为参数

经过多次测试，AppActivate 可接受的 title 参数为：

• 窗口标题：字符串形式的窗口标题，全标题或开头的可区别字符串

• 进程 ID：Shell 所启动的外部命令的进程ID

例2. AppActivate 接受窗口标题作为参数

图6 AppActivate 接受窗口表体作为参数

注意：空白 Notepad 的窗口标题具体取决于 Windows 当前的语言设置。对于英文 Windwos，窗口标题是 Untitled - Notepad。对于中文 Windows，窗口标题是 无标题 - 记事本。

例3. AppActivate 接受进程ID 作为参数

图7 AppActivate 接受进程ID 作为参数

由此例可以看出，获取一个应用的进程ID 比较麻烦，所以，使用 AppActivate 时，还是以窗口标题作为参数比较方便。

AppActivate 还有一个可选参数 wait，这是一个 Boolean 类型的参数，用来指示 AppActivate，在激活其他应用之前，当前的调用者是否需要获得焦点：

• False（默认）：立即激活由 title 参数指定的应用，无论当前调用者是否具有焦点。

• True：等待当前调用者获得焦点，然后再激活指定的应用。