VBA_DOM定位元素 

 1 '本例为前期绑定熟悉方法属性   引用这2个项目'Microsoft Internet Controls','Microsoft HTML Object Library'
 2 'getElementsByClassName 后期绑定不支持
 3  
 4 Sub DOM_定位()
 5     Const url As String = "https://www.taifex.com.tw/cht/3/futDailyMarketReport" '期貨每日交易行情查詢
 6     Dim IE As New InternetExplorer
 7     Dim Dom As New MSHTML.HTMLDocument
 8     'Set IE = CreateObject("internetexplorer. application")
 9     'Set Dom = CreateObject("htmlfile")
10     With IE
11         .Visible = True
12         .Navigate url
13         
14         Do While .Busy Or .readyState <> READYSTATE_COMPLETE
15             DoEvents
16         Loop
17         
18         Do While .document.readyState <> "complete"
19             DoEvents
20         Loop
21         
22         Dom.body.innerHTML = .document.body.innerHTML
23         
24         Debug.Print "IE前期绑定："
25         Debug.Print .document.getElementById("myMarketCode").innerText
26         Debug.Print .document.getElementsByName("queryDate")(0).outerHTML
27         Debug.Print .document.getElementsByTagName("h2")(0).innerText
28         Debug.Print .document.getElementsByClassName("title")(0).innerText
29         
30         Debug.Print vbLf
31         
32         Debug.Print "DOM前期绑定："
33         Debug.Print Dom.getElementById("myMarketCode").innerText
34         Debug.Print Dom.getElementsByName("queryDate")(0).outerHTML
35         Debug.Print Dom.getElementsByTagName("h2")(0).innerText
36         Debug.Print Dom.getElementsByClassName("title")(0).innerText
37         
38         .Quit
39     End With
40 End Sub

 

posted @ 2020-05-09 21:21  易塞尔工作室  阅读(777)  评论(0)    收藏  举报