控制打开的浏览器实例

Question

Set Browser = New SHDocVw.InternetExplorer 

创建新的浏览器实例后，如何引用该实例而不是关闭并重新打开，如果我激活Excel窗口，那么我想激活回到浏览器，这是如何完成的？

我看着

AppActivate "Windows Internet Explorer" 

但是如果我有多个窗口打开，这不会工作的权利，我不认为

Answer 1

我想你的意思：

Option Explicit 
Public browser As SHDocVw.InternetExplorer 

Sub NavigateTo() 

    Set browser = New SHDocVw.InternetExplorer 

    browser.Visible = True 
    browser.Navigate "http://stackoverflow.com" 

End Sub 

在其他单词，在模块级声明浏览器变量，以便它仍然可用。

您还可以捕获一个实例，像这样：

Sub getIE() 
Dim sh As Object, oWin As Object, IE As Object 

    Set sh = CreateObject("Shell.Application") 

    For Each oWin In sh.Windows 
     If TypeName(oWin.Document) = "HTMLDocument" Then 
      Set IE = oWin 
      Exit For 
     End If 
    Next 

    Debug.Print IE.Document.url 
End Sub