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

控制一个打开的浏览器实例

1 个答案: