- 帖子
- 354
- 主題
- 5
- 精華
- 0
- 積分
- 387
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-8-2
 
|
10#
發表於 2023-8-29 17:33
| 只看該作者
回復 9# Scott090
Sub test()
Set driver = CreateObject("selenium.chromedriver")
driver.get "https://finance.yahoo.com/quote/TSM/"
Do: Set ids = driver.findelementsbyId("quote-summary")
If ids.Count > 0 Then Exit Do
Loop
Do: Set tby = ids(1).findelementsbytag("tbody")
If tby.Count > 0 Then Exit Do
Loop
Debug.Print tby(1).Text
Set trs = tby(1).findelementsbytag("tr")
ReDim ar(1 To trs.Count, 1)
For i = 1 To trs.Count
Set tds = trs(i).findelementsbytag("td")
ar(i, 0) = tds(1).Text
ar(i, 1) = tds(2).Text
Next
Cells.ClearContents
Range("a1").Resize(UBound(ar), 2) = ar
End Sub |
|
