有没有办法使用vba在网页上下载一行表格或整个表格本身？

Sub DownloadTable()
    Dim URL As String
    Dim HTMLDoc As Object
    Dim Table As Object
    Dim Row As Object
    Dim Column As Object
    Dim i As Integer, j As Integer
    
    ' 设置要下载的网页URL
    URL = "https://example.com/table.html"
    
    ' 创建HTML对象并加载网页
    Set HTMLDoc = CreateObject("HTMLFile")
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .send
        HTMLDoc.body.innerHTML = .responseText
    End With
    
    ' 定位表格
    Set Table = HTMLDoc.getElementById("table_id")
    
    ' 遍历表格行和列
    For Each Row In Table.Rows
        For Each Column In Row.Cells
            ' 在这里处理每个单元格的数据
            ' 例如，将数据写入Excel工作表
            Cells(i, j).Value = Column.innerText
            j = j + 1
        Next Column
        i = i + 1
        j = 1
    Next Row
End Sub