VBA_CSS定位元素

Sub Css定位()
  
    Const url As String = "https://www.taifex.com.tw/cht/3/futDailyMarketReport" '期货每日交易行情查询
    Dim WinHttp As Object
    Dim Dom As New MSHTML.HTMLDocument 'Css只支持前期绑定
    
    Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    'Set Dom = CreateObject("htmlfile")
    
    With WinHttp
        .Open "GET", url, False
        .Option(4) = 13056 'WinHttpRequestOption_SslErrorIgnoreFlags = 4 忽略证书失效错误
        .send
    
        If .Status = 200 Then
            Dom.body.innerHTML = .responsetext
        End If
    End With
    '.>>>class #>>>id  chrome》console $()查询
    Debug.Print Dom.querySelector("div").className 'copy js ==>document.querySelector("#btnTop") 第一个div
    Debug.Print Dom.querySelector("div.title").innerText '标签div ,class = tile
    Debug.Print Dom.querySelector("td > h3[align='left']").innerText
    Debug.Print Dom.querySelectorAll("table.table_f tr th").Item(0).innerText
    Debug.Print Dom.querySelectorAll("table tr th[colspan='11']").Item(0).innerText
    Debug.Print Dom.querySelectorAll("select#commodity_idt > option").Item(1).innerText
    Set WinHttp = Nothing
    Set Dom = Nothing

End Su