如何在VBA中访问HTML集合内的元素？

Sub AccessHTMLElements()
    Dim ie As InternetExplorer
    Dim htmlDoc As HTMLDocument
    Dim htmlColl As IHTMLElementCollection
    Dim htmlElement As IHTMLElement
    
    ' 创建Internet Explorer对象
    Set ie = New InternetExplorer
    
    ' 打开网页
    ie.Visible = False ' 可以设置为True以显示IE窗口
    ie.navigate "http://example.com" ' 替换为目标网页的URL
    
    ' 等待网页加载完成
    Do While ie.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' 获取网页的HTML文档对象
    Set htmlDoc = ie.document
    
    ' 根据标签名获取HTML元素集合
    Set htmlColl = htmlDoc.getElementsByTagName("tagname") ' 替换为目标元素的标签名
    
    ' 遍历HTML元素集合
    For Each htmlElement In htmlColl
        ' 对元素进行操作
        ' 例如，获取元素的属性值
        Debug.Print htmlElement.getAttribute("attributeName") ' 替换为目标属性的名称
    Next htmlElement
    
    ' 关闭Internet Explorer对象
    ie.Quit
    Set ie = Nothing
End Sub