如何通过VBA从网站的dd标签中获取数据

Sub GetDataFromWebsite()
    Dim url As String
    Dim html As Object
    Dim ddTags As Object
    Dim ddTag As Object
    Dim i As Integer
    
    ' 设置需要抓取数据的网页地址
    url = "https://www.example.com"
    
    ' 创建XMLHTTP对象并发送GET请求获取页面内容
    Set html = CreateObject("MSXML2.XMLHTTP")
    html.Open "GET", url, False
    html.send
    
    ' 创建HTMLDocument对象并将获取到的内容解析为HTML格式
    Set html = CreateObject("HTMLFile")
    html.body.innerHTML = html.responseText
    
    ' 查找所有的dd标签
    Set ddTags = html.getElementsByTagName("dd")
    
    ' 遍历dd标签，并将数据输出到Excel的第一列
    i = 1
    For Each ddTag In ddTags
        Cells(i, 1).Value = ddTag.innerText
        i = i + 1
    Next ddTag
End Sub