iInfo 資訊交流: Excel VBA 抓元大網頁EFT的表格

最新消息

[公告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進行網址改版,若有參考部落格與期交所相關文章,請各位讀者自行修改。

2016年3月16日 星期三

Excel VBA 抓元大網頁EFT的表格

好久沒寫關於用Excel VBA抓網頁資料,剛好群裡有朋友問到 元大ETF網頁的內容要如何抓取,小試了一下順道做紀錄。
這個網頁有一個特色就是它會在網頁按下同意按鈕後,在瀏覽器寫進一個cookie,如果沒有注意到,這樣一個特性,真的很不好抓出表格,大家可以多練習,參考以下原始碼。
Sub 抓元大ETF網頁()

    Dim IE As Object, doc As Object, element As Object
    
    Const url As String = "http://www.yuantaetfs.com/#/RtNav/Index"
    
    With CreateObject("internetexplorer.application")
        .Visible = False
        .Navigate url
        
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        Do
            DoEvents
        Loop Until .Document.ReadyState = "complete"

        '.Document.cookie = "IsAgreeRtNav=TRUE"
        
        Set doc = .Document
        Set element = doc.getElementsByTagName("table")(22)
        With ActiveSheet
            For i = 0 To element.Rows.Length - 1
                For j = 0 To element.Rows(i).Cells.Length - 1
                    .Cells(i + 1, j + 1) = element.Rows(i).Cells(j).innerText
                Next
            Next
        End With
        .Quit
    End With
    
    Set doc = Nothing
    Set element = Nothing
    Set IE = Nothing
End Sub