VBA 获取网页信息 - 代码示例和教程

VBA 可以通过使用 Microsoft XML 解析器和 HTTP 请求来获取网页信息。以下是一些示例代码：

1. 使用 MSXML2.XMLHTTP 对象获取网页内容：

Sub GetWebPageContent()
    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim URL As String
    URL = 'https://www.example.com'
    
    XMLReq.Open "GET", URL, False
    XMLReq.send
    
    Debug.Print XMLReq.responseText
End Sub

2. 使用 MSXML2.XMLHTTP 对象获取网页标题：

Sub GetWebPageTitle()
    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim URL As String
    URL = 'https://www.example.com'
    
    XMLReq.Open "GET", URL, False
    XMLReq.send
    
    Dim HTMLDoc As New MSHTML.HTMLDocument
    HTMLDoc.body.innerHTML = XMLReq.responseText
    
    Debug.Print HTMLDoc.Title
End Sub

3. 使用 MSXML2.XMLHTTP 对象获取网页图片：

Sub GetWebPageImages()
    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim URL As String
    URL = 'https://www.example.com'
    
    XMLReq.Open "GET", URL, False
    XMLReq.send
    
    Dim HTMLDoc As New MSHTML.HTMLDocument
    HTMLDoc.body.innerHTML = XMLReq.responseText
    
    Dim Img As HTMLImgElement
    For Each Img In HTMLDoc.images
        Debug.Print Img.src
    Next Img
End Sub

请注意，上面的代码需要引用 Microsoft XML、Microsoft HTML Object Library 和 Microsoft Internet Controls。