用于在div中检索href的vba

Sub RetrieveHrefInDiv()
    Dim htmlDoc As Object
    Dim divElements As Object
    Dim divElement As Object
    Dim href As String
    
    ' 创建HTML文档对象
    Set htmlDoc = CreateObject("htmlfile")
    
    ' 加载HTML代码或URL
    htmlDoc.Open
    htmlDoc.Write "<div><a href='https://www.example.com'>Example</a></div>"
    htmlDoc.Close
    
    ' 获取所有div元素
    Set divElements = htmlDoc.getElementsByTagName("div")
    
    ' 遍历div元素
    For Each divElement In divElements
        ' 检查div元素中的子元素是否为链接（a标签）
        If divElement.getElementsByTagName("a").Length > 0 Then
            ' 获取链接的href属性值
            href = divElement.getElementsByTagName("a")(0).href
            ' 输出href属性值
            Debug.Print href
        End If
    Next divElement
End Sub