在HTML文档中找到的Excel VBA抓取CSS元素

Sub GetCSSValue()
    Dim ie As Object
    Dim htmlDoc As Object
    Dim cssElement As Object
    Dim cssValue As String
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象属性
    With ie
        .Visible = False ' 设置为不可见
        .navigate "http://example.com" ' 替换为你要抓取的网页地址
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取HTML文档对象
        Set htmlDoc = .document
    End With
    
    ' 根据CSS选择器获取元素
    Set cssElement = htmlDoc.querySelector("CSS选择器") ' 替换为你要抓取的CSS选择器
    
    ' 获取CSS属性值
    cssValue = cssElement.Style.getPropertyValue("CSS属性") ' 替换为你要抓取的CSS属性
    
    ' 输出结果
    MsgBox cssValue
    
    ' 释放对象
    Set cssElement = Nothing
    Set htmlDoc = Nothing
    ie.Quit
    Set ie = Nothing
End Sub