iInfo 資訊交流: Excel VBA querySelectorAll 用法

最新消息

[公告2014/05/30] 如有需要將部落格中,任何一篇文章的程式碼使用在商業用途,請與我聯繫。

[公告2015/04/26] Line版的 iInfo程式與投資應用 群組已上線想加入的朋友們,請先查看 "入群須知" 再與我聯繫 Line : aminwhite5168,加入請告知身分與回答 "入群須知" 的問題。

[公告2017/02/20] 近來有網友詢問 MultiCharts 與 Excel 畫冰火能量圖 (8)MultiCharts 與Excel 畫冰火能量圖(11) --- 更名「台股儀表板」 文章中教學檔案取得方式,有興趣的朋友可透過 Line了解詳情 (請勿以為是免費分享),Line : aminwhite5168。

[公告2018/04/22] 台北 Python + Excel VBA 金融資訊爬蟲課程,課程如網頁內容 金融資訊爬蟲班:台北班 Python 金融資訊爬蟲、EXCEL VBA 金融資訊爬蟲,請盡快把握機會,歡迎券商、大專院校邀約講座。

[公告2018/06/01] 台指能量儀表板教學課程,課程如網頁內容 台北班:台指能量儀表板

[公告2018/10/02] 期交所於2018/10/03進行網址改版,若有參考部落格與期交所相關文章,請各位讀者自行修改。

2018年2月7日 星期三

Excel VBA querySelectorAll 用法

querySelectorAll 是 DOM 中,用來實作 CSS Selector 的方法,這方法也能在 VBA 中完成,對於選取資料很有幫助,筆者一直都在使用,近期整理一下內容。
以證交所為例,選取網頁中 class = "wp" 的數量。

方法1:
Sub 證交所取wp()
    Const url As String = "http://www.tse.com.tw/zh/"
    Dim IE As Object
    
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = False
        .navigate url

        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        
        Do
            DoEvents
        Loop Until .document.readyState = "complete"
        
        Debug.Print .document.querySelectorAll(".wp").Length
        
        .Quit
    End With
   
    Set IE = Nothing
End Sub

方法2:
Sub 證交所取wp1()
    Const url As String = "http://www.tse.com.tw/zh/"
    Dim IE As Object
    Dim doc As HTMLDocument

    Set doc = New HTMLDocument
    Set IE = CreateObject("internetexplorer.application")
    
    With IE
        .Visible = False
        .navigate url

        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        
        Do
            DoEvents
        Loop Until .document.readyState = "complete"
        
        doc.body.innerHTML = .document.body.innerHTML

        .Quit
    End With

    Debug.Print doc.querySelectorAll(".wp").Length

    Set doc = Nothing
    Set IE = Nothing
End Sub
方法2要在設定引用中添加HTML的項目。

程式執行結果:

取內容。
Sub 證交所取wp()
    Const url As String = "http://www.tse.com.tw/zh/"
    Dim IE As Object
    Dim wp As Object
    
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = False
        .navigate url

        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        
        Do
            DoEvents
        Loop Until .document.readyState = "complete"
        
        Set wp = .document.querySelectorAll(".wp")
        For i = 0 To wp.Length - 1
            Debug.Print wp.Item(i).innerhtml
        Next
        
        .Quit
    End With

    Set wp = Nothing
    Set IE = Nothing
End Sub

相關內容: