Question

我想使用Excel VBA阅读网页。我该如何执行这项任务？它甚至可能吗？

Answer 1

来自Excel 2003，是的，这是可能的 - 您可以使用SHDocVw.InternetExplorer和MSHTML.HTMLDocument对象来调用网页，获得对DOM对象的控制权并与之交互。创建对Microsoft HTML对象库（... \ system32 \ MSHTML.TLB）和Microsoft Internet Control（... \ system32 \ ieframe.dll）的引用后，您可以使用以下示例：

Sub Test()
Dim Browser As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument

    Set Browser = New SHDocVw.InternetExplorer                     ' create a browser
    Browser.Visible = True                                         ' make it visible
    Application.StatusBar = ".... opening page"
    Browser.navigate "http://www.google.com"                       ' navigate to page
    WaitForBrowser Browser, 10                                     ' wait for completion or timeout

    Application.StatusBar = "gaining control over DOM object"
    Set HTMLDoc = Browser.document                                 ' load the DOM object
    WaitForBrowser Browser, 10

    ' at this point you can start working with the DOM object. Usefull functions are
    ' With HTMLDoc
    '     .getElementByID(string)
    '     .getElementsByTagName(string)
    '     .getElementsByName(string)
    '     .getAttribute(string)
    '     .setAttribute string, string     .... to change field values, click a button etc.
    ' End With

    Application.StatusBar = ""                                      ' time to clean up
    Browser.Quit
    Set HTMLDoc = Nothing
    Set Browser = Nothing
End Sub

Sub WaitForBrowser(Browser As SHDocVw.InternetExplorer, Optional TimeOut As Single = 10)
Dim MyTime As Single

    MyTime = Timer
    Do While Browser.Busy Or (Timer <= MyTime + TimeOut)
        DoEvents
    Loop

    ' if browser still busy after timeout, give up
    If Browser.Busy Then
        MsgBox "I waited for " & Timer - MyTime & " seconds, but browser still busy" & vbCrLf & _
               "I give up now!"
        End
    End If
End Sub

Answer 2

您可以使用VBA自动化IE（通过Google提供大量示例），或者您可以使用MSHTTP实例直接获取页面（在网络上有大量示例）。哪种方式最适合您的需求取决于您想要做什么。没有更详细的要求，很难说更多。

使用Excel VBA阅读网页

2 个答案: