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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2023-6-1 17:14 | 只看該作者

[發問] Selenium

請教我要抓圖中的綠色部份(含倒三角形),怎麼抓(語法)?
https://tw.stock.yahoo.com/quote/2330
從網頁得知FindElementByXPath
//*[@id="qsp-overview-realtime-info"]/div[2]/div[2]/div/ul/li[8]/span[2]
這是倒三角形含數字
//*[@id="qsp-overview-realtime-info"]/div[2]/div[2]/div/ul/li[8]/span[2]/span
這只有倒三角形

樓主熱帖

Scott090

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 85
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

13^#

發表於 2023-8-30 14:53 | 只看該作者

回復 12# singo1232001

謝謝指導，我試試看能找出甚麼。

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-4-27

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2023-8-30 08:59 | 只看該作者

本帖最後由 singo1232001 於 2023-8-30 09:09 編輯

回復 11# Scott090

把找元素想像成,跟檔案總管找資料夾一樣
常用的有父子關係兄弟關係或者ID唯一性
而父元素有的用ID 有的用tag 有的是順位有的用副加屬性attribute
這4種方式可以協助你找到需要的父元素或子元素
當下看看那些方式適合使用
通常用於網頁有異步的情況才會需要順著關係或逆著關係找
若網頁沒異步就不用關係找直接用byXpath完整路徑找到就可以
就如同直接複製資料夾路徑那樣就能前往資料夾位置
通常能解決80~90%尋找問題

補充:
還可能遇到ifram有框架網站
還可能遇到需要用execute注入css 解決剩下10~20%其他有對元素動手腳,網站性特殊保護的問題

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 85
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

11^#

發表於 2023-8-30 06:45 | 只看該作者

回復 10# singo1232001

   感恩詳解。

請指導一下在瀏覽器用"開發者工具"  :
   在這個例子中為什麼知道要找
   Id("quote-summary")
   tag("tbody")
   tag("tr")
   tag("td")
?

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-4-27

論壇榮譽勳章論壇贊助勳章

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

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 85
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

9^#

發表於 2023-8-29 15:42 | 只看該作者

回復 8# t8899

請問如何在此網頁 "https://finance.yahoo.com/quote/TSM/"
取得下列這一些資料 ?
謝謝

Previous Close 549.00
Open 551.00
Bid 552.00 x 0
Ask 553.00 x 0
Day's Range 546.00 - 553.00
52 Week Range 370.00 - 594.00
Volume 10,650,708
Avg. Volume 22,277,577

TOP

t8899

大學生 Rank: 4

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

8^#

發表於 2023-8-24 19:22 | 只看該作者

回復 7# singo1232001

謝謝指導

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-4-27

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2023-8-24 18:00 | 只看該作者

本帖最後由 singo1232001 於 2023-8-24 18:13 編輯

回復 6# t8899

Sub 時間內沒加載完就算失敗()
t = Timer '測試用可刪
Set driver = CreateObject("selenium.chromedriver")
driver.Timeouts.pageload = 10000 '要是秒數過低沒加載完就會強制關閉可以試著測試3秒以下
On Error Resume Next
driver.get "https://finance.yahoo.com/quote/TSM/"
If Err.Number <> 0 Then
Err.Clear
driver.Quit
End If
On Error GoTo 0
Debug.Print Timer - t '測試用可刪
End Sub

因為不曉得你的需求
所以我順便把重連三次的寫法也給你

Sub 重連三次每次等三秒_第四次就失敗()
Set driver = CreateObject("selenium.chromedriver")
On Error Resume Next
Do
driver.Get "https://finance.yahoo.com111111111/quote/TSM/"
If Err.Number <> 0 Then
Err.Clear
Application.Wait Now + TimeValue("00:00:03")
rT = rT + 1
If rT = 3 Then driver.Quit: Exit Do
Else
Exit Do
End If
Loop
On Error GoTo 0
End Sub

TOP

t8899