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