用VBA跟踪HTML元素类

Sub TrackHTMLElementClass()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim HTMLElement As Object
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Navigate "https://www.example.com"
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页的HTML文档对象
    Set HTMLDoc = IE.Document
    
    ' 根据元素的类名来获取HTML元素对象
    Set HTMLElement = HTMLDoc.getElementsByClassName("element-class")(0)
    
    ' 操作HTML元素对象，例如获取文本内容或设置属性值
    MsgBox HTMLElement.innerText
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象变量
    Set HTMLElement = Nothing
    Set HTMLDoc = Nothing
    Set IE = Nothing
End Sub