- 帖子
- 746
- 主題
- 243
- 精華
- 0
- 積分
- 1002
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-5-3
|
44#
發表於 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
跌的下三角形沒抓到?如何直接改成"-"號輸出? |
|
