vba代码如何切换到指定浏览器

志65

要求：

当我已经打开了谷歌浏览器了，点击宏按钮，就直接切换到谷歌浏览器就可以了。若是没有打开谷歌浏览器，就自动打开谷歌浏览器。

我查看别人得代码，如下：

Sub 激活与打开()
    Dim sh As Object
    Dim lq As Object, x$, y$, z As Object
    Set sh = CreateObject("shell.application")
    x = "chrome.exe"
    For Each z In sh.Windows
        If LCase(Right(z.FullName, 10)) = x Then Set lq = z: Exit For
    Next
    If lq Is Nothing Then
        y = "www.baidu.com"
        sh.Shellexecute x, y '打开
    Else
        AppActivate lq.LocationName + " - " + lq.Name '激活
    End If
End Sub


可我运用这代码，发现每次都会自动另外打开谷歌浏览器，我明明都已经打开了谷歌浏览器，只需要切换到我的浏览器页面就可以了。这里的代码要如何修改?多谢

志65

我查看了一下，看到一个这样的语句
AppActivate title[,wait]
其中  标题参数是必须的(应用程序的名称或者他也可以是Shell函数返回的任务ID号码)

 标题参数一定要对应一致，否则会模糊查找 比如你要激活Excel,那么title参数应该是”Microsoft Excel“,如果你写的是”Microsoft”，那么激活的可能是Word。。。。。



所以我测试了这句代码：AppActivate "Google Chrome"
发现可以切换到谷歌浏览器了