用Excel VBA从基于java的网页上的同一表类中提取特定数据

Sub ExtractDataFromWebPage()
    Dim URL As String
    Dim HTMLDoc As Object
    Dim Table As Object
    Dim Row As Object
    Dim Col As Object
    Dim Data As String
    Dim i As Integer, j As Integer
    
    ' 设置目标网页的URL
    URL = "http://example.com/table.html"
    
    ' 创建XMLHTTP对象，发送HTTP请求，获取网页内容
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", URL, False
    XMLHTTP.send
    
    ' 创建HTML文档对象，解析HTML源代码
    Set HTMLDoc = CreateObject("HTMLfile")
    HTMLDoc.body.innerHTML = XMLHTTP.responseText
    
    ' 定位到目标表格
    Set Table = HTMLDoc.getElementById("table_id")
    
    ' 逐行遍历表格数据
    For Each Row In Table.Rows
        i = i + 1
        j = 1
        
        ' 逐列遍历当前行的数据
        For Each Col In Row.Cells
            ' 获取单元格数据
            Data = Col.innerText
            
            ' 将数据写入到Excel的单元格中
            ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = Data
            
            j = j + 1
        Next Col
    Next Row
End Sub