如何将HTML源代码提取到excel VBA中

Sub ExtractHTMLSourceCode()
    Dim url As String
    Dim httpRequest As Object
    Dim htmlDoc As Object
    Dim htmlSourceCode As String
    Dim ws As Worksheet
    
    ' 设置要提取的网页URL
    url = "https://www.example.com"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    With httpRequest
        .Open "GET", url, False
        .send
    End With
    
    ' 获取响应的HTML源代码
    htmlSourceCode = httpRequest.responseText
    
    ' 创建HTML文档对象
    Set htmlDoc = CreateObject("htmlfile")
    
    ' 将HTML源代码加载到HTML文档对象中
    htmlDoc.body.innerHTML = htmlSourceCode
    
    ' 获取Excel工作表对象
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你要写入的工作表名称
    
    ' 将HTML源代码写入Excel工作表
    ws.Range("A1").Value = htmlDoc.body.innerHTML
    
    ' 清理对象
    Set httpRequest = Nothing
    Set htmlDoc = Nothing
    Set ws = Nothing
End Sub