【分享成果，随喜正能量】在茶中平复自己，耳边的声音太吵，别管，大胆往前走。谁不是把自由卖了，换成了柴米油盐。人间非净土，各有各的苦。。

《VBA信息获取与处理》教程(10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册,二十个专题。今日分享内容是：VBA切换word和excel两个应用程序（1）

第二节 在word和excel两个应用程序间的激活操作

如我们的报告界面，当我们的界面继续往下进行，在第二个以及第三个按钮处我们要激活刚才打开的excel,这个按钮的代码该如何写呢？

1 用AppActivate语句

利用AppActivate语句激活EXCEL是非简单的，我们看下面的按钮代码：

Private Sub CommandButton2_Click()

Set ws = CreateObject("wscript.shell")

ws.AppActivate "001 工作表"

End Sub

代码的截图：

代码讲解：我们先看看AppActivate语句的语法：

语法：AppActivate title [, wait]

参数title；是必须的，这是应用程序的名称，正如它显示在应用程序窗口的标题栏那样，或者它也可以是Shell函数返回的任务ID号码。注意，参数title要跟每个正运行的应用程序的标题字符串进行对比，如果没有精确的匹配，那么任何标题字符串里前面的字符和参数title一致的应用程序就会被激活。（例如，你要激活Excel，那么title参数应该是“Microsoft Excel”，如果你写的是“Microsoft”，那么激活的就也可能是Word，PowerPoint……）。

第二个参数wait是可选的，它是个布尔值（True或False），明确VB什么时候激活应用程序。如果在这里是False的话，该应用程序就立即会被激活，甚至被调应用程序并没有焦点。如果在wait参数处放置True的话，那么被调的应用程序就会等到它有了焦点，然后才会激活该应用程序。

例如，要激活Word，你就得输入下列语句：AppActivate “Microsoft Word”注意，应用程序名称用双引号引用起来。

也可以使用Shell函数返回的数值作为语句AppActivate的参数，例如（仅适合于32位OFFICE系统）：

Sub mynz()

ReturnValue = Shell("C:\Microsoft Office\Office\Word.exe",1)

AppActivate ReturnValue

End sub

• 特别注意点，对于AppActivate的用法，我在修订代码的时候进行了完善，对于64位的OFFICE系统和32位的OFFICE系统,下面的代码：

Set ws = CreateObject("wscript.shell")

ws.AppActivate "001 工作表"

是都是可以利用的。

• 对于教程最初给出的代码：

Private Sub CommandButton2_Click()

AppActivate "Microsoft Excel"

End Sub

只适合于32位系统。大家要注意。

[待续]

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

【分享成果，随喜正能量】善良是仰不愧天、俯不怍地的坦坦荡荡，是不畏伤害、不求回报的慷慨无私。别太纠结值不值，别太计较得与失，别畏惧苦和难。在看不见的地方，定会有人祈愿你平安，祝福你喜乐。愿你雨天有伞、深夜有灯，一生温暖纯良，不舍爱与自由，与尘世的万千美好都能不期而遇。。