Excel vba使用现有的开放网站，而不是打开新的浏览器来访问网站，

Question

  

可能重复：
  Using an IE browser with Visual Basic

我有一个每日更新的网站。我需要每天从这个网站上检索信息。而不是每天打开一个新的浏览器，例如新的Internet Explorer，是否可以使用已经打开的Internet Explorer来检索信息。

Answer 1

我没有安装IE，所以我不能保证这会起作用，但请试一试。请注意，您需要设置对Microsoft Internet Controls和Microsoft HTML Object Library的引用。

Function GetOpenIE() As SHDocVw.InternetExplorer

    Dim ie As SHDocVw.InternetExplorer
    Dim sw As SHDocVw.shellWindows

    Set sw = New SHDocVw.shellWindows

    For Each ie In sw
        If TypeOf ie.Document Is HTMLDocument Then
            Set GetOpenIE = ie
            Exit Function
        End If
    Next ie

End Function