如何在vba中从站点中提取数据？

Sub ExtractDataFromWebsite()
    Dim url As String
    Dim xmlHttp As Object
    Dim htmlDoc As Object
    Dim table As Object
    Dim row As Object
    Dim cell As Object
    Dim i As Integer, j As Integer
    
    ' 设置要提取数据的网站URL
    url = "http://example.com"
    
    ' 创建XMLHTTP对象并发送请求
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    ' 创建HTML文档对象并加载响应内容
    Set htmlDoc = CreateObject("HTMLFile")
    htmlDoc.body.innerHTML = xmlHttp.responseText
    
    ' 根据网站的HTML结构，使用DOM方法提取数据
    ' 以下示例假设要提取的数据在一个表格中
    Set table = htmlDoc.getElementById("table_id")
    
    ' 遍历表格的行和列，并将数据输出到Excel单元格
    i = 1
    For Each row In table.Rows
        j = 1
        For Each cell In row.Cells
            Cells(i, j).Value = cell.innerText
            j = j + 1
        Next cell
        i = i + 1
    Next row
    
    ' 清理对象
    Set xmlHttp = Nothing
    Set htmlDoc = Nothing
End Sub