返回列表 上一主題 發帖

[發問] 請問如何將即時資訊完整抓下來(如圖5.3619)

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
316  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-12-6 10:01 | 只看該作者

[發問] 請問如何將即時資訊完整抓下來(如圖5.3619)

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

收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-12-6 17:19 | 只看該作者
回復 1# lcctno
怎麼抓到 5.36的?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
316  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
3#
發表於 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

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
316  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
4#
發表於 2016-12-6 18:56 | 只看該作者
本帖最後由 lcctno 於 2016-12-6 18:57 編輯

回復 2# stillfish00

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

附件
SPGCL2LP.zip (11.96 KB)

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題