![Office VBA开发经典:中级进阶卷](https://wfqqreader-1252317822.image.myqcloud.com/cover/711/26542711/b_26542711.jpg)
上QQ阅读APP看书,第一时间看更新
2.6 自动激活指定标题文字的窗口
WshShell对象下面的AppActivate函数可以激活屏幕上与Office、VBA不相关的窗口。其语法是:
AppActivate(App,Wait)
返回一个布尔值,找到窗口并激活,返回True,否则返回False。
参数App表示一个窗口的标题文字,是字符串。
参数Wait是一个布尔值,设置为True时,表示等待,也就是当激活完成后,才继续执行后面的代码。
假设桌面上启动了记事本,其窗口的标题文字为“无标题-记事本”,然后在工作表上插入一个图片或按钮,指定宏到ActivateNotepad。具体代码如下。
![](https://epubservercos.yuewen.com/F986E7/15056702504171006/epubprivate/OEBPS/Images/858.jpg?sign=1738869296-g9iHAquAS3PALyq3swGtW2uW0aFSJb4D-0-dcb8da33104ce857a2ce1baff5b10e5b)
当单击工作表上的按钮时,记事本窗口自动弹出到最前,取得焦点,并且在立即窗口打印出“激活成功”,如图2-45所示。
![](https://epubservercos.yuewen.com/F986E7/15056702504171006/epubprivate/OEBPS/Images/856.jpg?sign=1738869296-yjXGwOT3DcxEB2mrAFHLHuAdWdUTFh1J-0-067060c21aa339b3344ba4a538b67731)
图2-45 自动激活指定标题的窗口
注意 标题文字必须一字不差,如果记事本已经关闭,或者App参数中标题文字有误,都会导致AppActivate函数返回False。