標題: [發問] 請問如何將即時資訊完整抓下來(如圖5.3619) [打印本頁]

---

作者: lcctno    時間: 2016-12-6 10:01     標題: 請問如何將即時資訊完整抓下來(如圖5.3619)

請問如何將即時資訊完整抓下來(如圖5.3619) 但我只能抓到 5.36 謝謝您的幫助
資訊來源如下:
http://finance.yahoo.com/quote/%5ESPGCL2LP?ltr=1

[attach]26038[/attach]

---

作者: stillfish00    時間: 2016-12-6 17:19

回復 1# lcctno
怎麼抓到 5.36的?

---

作者: lcctno    時間: 2016-12-6 18:03

回復 2# stillfish00


    Sub SPGCL2LP()

    Sheets("SPGCL2LP").Select
    Dim E As Object, myItems As Object, myitem
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate "http://finance.yahoo.com/quote/%5ESPGCL2LP"
        
        Application.Wait Now + #12:00:03 AM#  

        .ExecWB 17, 2       '  Select All
        .ExecWB 12, 2       '  Copy selection

        With ActiveSheet
            .Cells.Clear
            .[A1].Select
            .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
        End With
        .Quit '關閉網頁
   
    End With
   
    [A52].Select
  
    End Sub

---

作者: lcctno    時間: 2016-12-6 18:56

本帖最後由 lcctno 於 2016-12-6 18:57 編輯

回復 2# stillfish00

我再補充說明 該網站瀏覽器初開啟時 只會顯示類似"5.36" 等個幾秒後就會顯示類似"5.3619"完整的數據 然後會自動更新數值

附件
[attach]26041[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)