将网页中的表格数据复制到Excel的VBA代码

Sub CopyTableDataFromWeb()
    Dim IE As Object
    Dim html As Object
    Dim table As Object
    Dim i As Integer, j As Integer
    Dim row As Object, cell As Object
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With IE
        .Visible = False ' 设置为不可见，可以加快运行速度
        .navigate "https://www.example.com" ' 替换为目标网页的URL
        ' 等待IE加载完毕
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取网页的HTML内容
        Set html = .document
    End With
    
    ' 根据表格的标签名称或其他属性定位表格
    Set table = html.getElementById("table_id") ' 替换为目标表格的ID
    
    ' 遍历表格的行和列，并将数据复制到Excel中
    i = 1
    For Each row In table.Rows
        j = 1
        For Each cell In row.Cells
            ' 将单元格的值复制到Excel中的对应位置
            Cells(i, j).Value = cell.innerText
            j = j + 1
        Next cell
        i = i + 1
    Next row
    
    ' 清理对象
    Set IE = Nothing
    Set html = Nothing
    Set table = Nothing
End Sub