控制打開的瀏覽器實例

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