[發問] 用Selenium 抓上市行情即時資料 ???

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

2^#

發表於 2022-10-20 07:10 | 顯示全部帖子

回復 joey0415

讚

分享一下檔案
singo1232001 發表於 2022-10-20 00:14

謝謝指導
這個厲害

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

3^#

發表於 2022-10-20 07:12 | 顯示全部帖子

回復 t8899

https://mis.twse.com.tw/stock/ap ... p?ex_ch=tse_1101.tw
https://mis.tw ...
joey0415 發表於 2022-10-19 20:15

謝謝指導
是否有每個欄位資料各代表著什麼??

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

4^#

發表於 2022-10-20 12:15 | 顯示全部帖子

本帖最後由 t8899 於 2022-10-20 12:25 編輯

回復 singo1232001

新增股票自適應
singo1232001 發表於 2022-10-20 10:40

我對照一下行情，成交價在af欄，有些是空的??
原本網址傳回的資料有誤??

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

5^#

發表於 2022-10-20 12:53 | 顯示全部帖子

本帖最後由 t8899 於 2022-10-20 12:57 編輯

回復 t8899

盤中有(31欄) 盤後有(36欄) 欄位數量不同盤後的還會多出5~6列

程序會自動 ...
singo1232001 發表於 2022-10-20 12:43

我的意思，是原本傳回的資料是空的, 或許來源就有問題?
原本我問的網址 https://mis.twse.com.tw/stock/gr ... p;bp=0&type=all
我進去看有的也是空的 , 出現這"-" 符號
因為現在是盤中，都有資料

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

6^#

發表於 2022-10-20 16:50 | 顯示全部帖子

回復 t8899

盤中有(31欄) 盤後有(36欄) 欄位數量不同盤後的還會多出5~6列

程序會自動 ...
singo1232001 發表於 2022-10-20 12:43

y 昨日收盤價
tv 單量
s 單量
b 買5檔價
g 買進5檔量
a 賣5檔價
f 賣出5檔量
v 總量
ot 時間
z 成交價
o 開盤
h 最高
L 最低
再請教我只要抓上面的欄位，程式碼要改那裡?

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

7^#

發表於 2022-10-20 19:09 | 顯示全部帖子

回復 t8899

因為資料是一次性全部出來
就算用程序篩選也不會快多少
建議直接把不要的欄位隱藏 ...
singo1232001 發表於 2022-10-20 17:01

好的，謝謝

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-8

8^#

發表於 2022-10-21 09:59 | 顯示全部帖子

回復 t8899

因為資料是一次性全部出來
就算用程序篩選也不會快多少
建議直接把不要的欄位隱藏 ...
singo1232001 發表於 2022-10-20 17:01

Sub stopTime() '關閉爬蟲
LTBL = False
Set 爬蟲.driver = Nothing
End Sub

請教停止抓取是否少了下面這行 ??
Application.OnTime lasttimevalue, "Tick.TimeTick", Schedule:=False