如何通过vba将网页中的信息(图表、表格等)正确复制粘贴到excel中

Sub CopyTableFromWebsite()
    Dim URL As String
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim Table As Object
    Dim i As Integer
    
    ' 定义网页的URL
    URL = "http://example.com"
    
    ' 创建 Internet Explorer 对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With IE
        .Visible = False  ' 设置为 True 可以看到 IE 操作过程
        .Navigate URL    ' 打开指定的网页
        ' 等待网页加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
    End With
    
    ' 获取网页的 HTML 文档
    Set HTMLDoc = IE.document
    
    ' 在 HTML 文档中找到第一个表格
    Set Table = HTMLDoc.getElementsByTagName("table")(0)
    
    ' 将表格中的数据复制粘贴到 Excel 中
    For i = 0 To Table.Rows.Length - 1
        For j = 0 To Table.Rows(i).Cells.Length - 1
            ' 将表格数据复制到 Excel 单元格中
            Cells(i + 1, j + 1).Value = Table.Rows(i).Cells(j).innerText
        Next j
    Next i
    
    ' 关闭 Internet Explorer
    IE.Quit
    
    ' 释放对象引用
    Set Table = Nothing
    Set HTMLDoc = Nothing
    Set IE = Nothing
    
    MsgBox "表格已成功复制到 Excel 中。"
End Sub