vba - 控制打开的浏览器实例

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