用Selenium 抓上市行情即時資料 ??? - Excel程式區

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-27

21^# 跳轉到 »

發表於 2022-10-25 19:15 | 顯示全部帖子

本帖最後由 t8899 於 2022-10-25 19:30 編輯

回復 t8899

這網站api好像有2種限制

1種是次數限制我用兩支股票手動複製網址大概連續秒查 ...
singo1232001 發表於 2022-10-25 17:47

我發現這網站並沒有5秒更新一次，多少秒不太確定，應該不會低於30秒，所以設10秒抓一次，啟動後抓第2次，儲存格的值是不會動的
如何得知?
我是用台積電測，因為這種熱門股每秒都在搓合成交(從證商app的個股走勢明細可看出)，看抓下來的v總量的值有沒有增加，就知道了
一次只能查166隻?這是quickfixer兄測的
還有詢問證交所 ===>盤中即時行情裡的成交價幾乎都是 "-"這個符號 ? 他的回答如下圖

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-27

22^#

發表於 2022-10-26 10:13 | 顯示全部帖子

回復 t8899

這網站api好像有2種限制

1種是次數限制我用兩支股票手動複製網址大概連續秒查 ...
singo1232001 發表於 2022-10-25 17:47

我又測了一下，網站5秒更一次沒問題 (用1隻測)
我測99隻測第二次就會出現錯誤 ?很明顯有限制查的數量

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-27

23^#

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

回復 t8899

這網站api好像有2種限制

1種是次數限制我用兩支股票手動複製網址大概連續秒查 ...
singo1232001 發表於 2022-10-25 17:47

這個網站限制太多，最主要成交價八成是空的，只能看5檔裡的第一個買賣2選一無法確定實際成交價，只好捨棄

https://tw.stock.yahoo.com/class ... =2&exchange=TAI
這看起來是一個table? 我用 FindElementByXPath 找不到它的路徑?

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-27

24^#

發表於 2022-10-28 21:02 | 顯示全部帖子

本帖最後由 t8899 於 2022-10-28 21:13 編輯

回復 t8899

用bytag 而且這網頁我之前玩過

另外就是上面提到的這網頁後面不會一次跑出來
只能用 ...
singo1232001 發表於 2022-10-28 18:32

Sub kimo()
Application.ScreenUpdating = False
Set DRIVER = CreateObject("Selenium.ChromeDriver")
DRIVER.AddArgument ("headless") '無頭視窗
DRIVER.Get "https://tw.stock.yahoo.com/class-quote?sectorId=2&exchange=TAI"
Set dd = DRIVER.FindElementByXPath("//*[@id=""main-1-ClassQuotesTable-Proxy""]/div/div[3]/div/div/div[2]")
Range("a:K").Clearcontents
Range("a1:k1") = Array("股票名稱", "代號", "股價", "漲跌", "漲跌幅(%)", "開盤", "昨收", "最高", "最低", "成交量(張)", "時間")
a = split(dd.Text, Chr(10))
b = UBound(a)
k = 11
s = 2
g = 1
For i = 0 To b
   If i = k Then
   k = k + 11
   s = s + 1
   g = 1
      End If
   Cells(s, g) = a(i)
g = g + 1
Next
End Sub
table 輸出較快?可惜它不是table
跌的下三角形沒抓到?如何直接改成"-"號輸出?

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-27

25^#

發表於 2023-10-12 06:08 | 顯示全部帖子

回復 52# singo1232001
path1 = "C:\Users\" & Environ$("username") & "\AppData\Local\SeleniumBasic\Chromedriver.exe"
1.我是裝在上面的資料夾?沒抓到?我就把"C:\Users\" & Environ$("username") & "直接換成實際的路徑才抓到 ?
2.下載有成功, 也有解壓縮，但zip檔沒刪除 ?