VBA_DOM定位元素

'本例为前期绑定熟悉方法属性   引用这2个项目'Microsoft Internet Controls','Microsoft HTML Object Library'
'getElementsByClassName 后期绑定不支持
 
Sub DOM_定位()
    Const url As String = "https://www.taifex.com.tw/cht/3/futDailyMarketReport" '期貨每日交易行情查詢
    Dim IE As New InternetExplorer
    Dim Dom As New MSHTML.HTMLDocument
    'Set IE = CreateObject("internetexplorer. application")
    'Set Dom = CreateObject("htmlfile")
    With IE
        .Visible = True
        .Navigate url
        
        Do While .Busy Or .readyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        
        Do While .document.readyState <> "complete"
            DoEvents
        Loop
        
        Dom.body.innerHTML = .document.body.innerHTML
        
        Debug.Print "IE前期绑定："
        Debug.Print .document.getElementById("myMarketCode").innerText
        Debug.Print .document.getElementsByName("queryDate")(0).outerHTML
        Debug.Print .document.getElementsByTagName("h2")(0).innerText
        Debug.Print .document.getElementsByClassName("title")(0).innerText
        
        Debug.Print vbLf
        
        Debug.Print "DOM前期绑定："
        Debug.Print Dom.getElementById("myMarketCode").innerText
        Debug.Print Dom.getElementsByName("queryDate")(0).outerHTML
        Debug.Print Dom.getElementsByTagName("h2")(0).innerText
        Debug.Print Dom.getElementsByClassName("title")(0).innerText
        
        .Quit
    End With
End Sub