Office VBA开发经典:中级进阶卷
上QQ阅读APP看书,第一时间看更新

2.6 自动激活指定标题文字的窗口

WshShell对象下面的AppActivate函数可以激活屏幕上与Office、VBA不相关的窗口。其语法是:

    AppActivate(App,Wait)

返回一个布尔值,找到窗口并激活,返回True,否则返回False。

参数App表示一个窗口的标题文字,是字符串。

参数Wait是一个布尔值,设置为True时,表示等待,也就是当激活完成后,才继续执行后面的代码。

假设桌面上启动了记事本,其窗口的标题文字为“无标题-记事本”,然后在工作表上插入一个图片或按钮,指定宏到ActivateNotepad。具体代码如下。

当单击工作表上的按钮时,记事本窗口自动弹出到最前,取得焦点,并且在立即窗口打印出“激活成功”,如图2-45所示。

图2-45 自动激活指定标题的窗口

注意 标题文字必须一字不差,如果记事本已经关闭,或者App参数中标题文字有误,都会导致AppActivate函数返回False。