zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    Java实现 LeetCode 649 Dota2 参议院(暴力大法)
    Java实现 LeetCode 648 单词替换(字典树)
    Java实现 LeetCode 648 单词替换(字典树)
    php getimagesize 函数
    PHP gd_info
    PHP 5 时区
    PHP zip_read() 函数
    PHP zip_open() 函数
    滚动界限终点 | scroll-snap-destination (Scroll Snap)
    滚动界限种类 | scroll-snap-type (Scroll Snap)
  • 原文地址:https://www.cnblogs.com/Ionefox/p/12860168.html
Copyright © 2011-2022 走看看