我目前正在努力編碼，需要專家的幫助。幫助。該鏈接主頁上有大量類（“df-table”）。通過各種嘗試和努力，第一類能夠輸入到excel表中，但是第二類（“df-table”），第三類（“df-table”）等卻很難弄清楚該怎么辦。我搜索了各種互聯網資源，他們說可以通過使用nth-of-type或使用xpath來解決，但錯誤不斷出現。
我想要的結果是上傳影像的資料值。
我不是編碼專家，所以如果您認為自己可能難以理解，我將不勝感激。
Public Sub Jaemu()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim d As WebDriver, ws As Worksheet, URL As String
Set d = New ChromeDriver
Set ws = ThisWorkbook.Worksheets("gemstone2")
Dim http As New WinHttpRequest
With d
'.AddArgument "--headless"
.Start "Chrome"
Dim html As HTMLDocument
Dim JsonObject As Object
Set html = New HTMLDocument
URL = "https://globalmonitor.einfomax.co.kr/infomax_ds.html#/USA/1/1"
.get URL, Raise:=False ' set raise to false to avoid a timeout error
d.FindElementByCss("[ng-click='openStockSearchPopup();']").Click
d.FindElementByCss("[ng-enter='searchStockSearchPopup(true);']").SendKeys "GOOGL"
d.FindElementByCss("[ng-click='searchStockSearchPopup(true);']").Click
d.FindElementByCss("[class='slick-cell l1 r1 text-center clickable']").Click
Cells(2, 1).Value = d.FindElementByCss("[class='df-table']").Text
Cells(3, 1).Value = d.FindElementByCss(".table-contents[ng-if='IS_RT_STATE_SUCCESS(requeststate.prospectData)'] > .df-table").Text
End With
End Sub
我想要這張照片中的這些資料。
原始操作錯誤：
問題編碼行是這樣的。運行時錯誤 32。
Cells(3, 1).Value = d.FindElementByCss("[class='df-table' class:nth-of-type(2)]").Text
編輯：遵循使用不同 CSS 選擇器的初始建議的新錯誤：
問題編碼行是這樣的。運行時錯誤 7。
Cells(3, 1).Value = d.FindElementByCss(".table-contents[ng-if='IS_RT_STATE_SUCCESS(requeststate.prospectData)'] > .df-table").Text
uj5u.com熱心網友回復：
初始錯誤 (RTE32)：
偽類選擇器將:nth-of-type()超出屬性選擇器關閉]ie "[class='df-table']:nth-of-type(2)"，但這不提供匹配。
您可以使用：
.table-contents[ng-if='IS_RT_STATE_SUCCESS(requeststate.prospectData)'] > .df-table
這將回傳一個匹配并且足夠具體，并且不依賴于長選擇器串列，因此它可能相當穩定。根據經驗。
如果您想:nth-of-type()使用它，您可以在父元素上使用它并進行第一次匹配，但是如果 html 更改，那么穩定性較差并且容易中斷：
.contents-area:nth-of-type(5) .df-table
后續錯誤（RTE7）：
該元素需要滾動到視圖中。
一種不理想的方法是（您的里程可能會有所不同）：
d.ExecuteScript "window.scrollTo(0, document.body.scrollHeight/3);"
Application.Wait Now TimeSerial(0, 0, 2)
Activesheet.Cells(1,3) = d.FindElementByCss(".table-contents[ng-if='IS_RT_STATE_SUCCESS(requeststate.prospectData)'] > .df-table").Text
內置函式和自定義 JS 有更好的方法，您可以從 GitHub 上作者的 examples.xlsm 中提取它們。因為我只能用 Python 進行測驗，所以這是一個有效的快速而骯臟的測驗。
您可以避免瀏覽器的開銷并使用 XHR 獲取 JSON 回應，然后使用 JSON 決議器，如下所示：
Option Explicit
Public Sub GetData()
Dim s As String
With CreateObject("MSXML2.XMLHTTP")
.Open "POST", "https://globalmonitor.einfomax.co.kr/facset/getKeyData", False
.SetRequestHeader "User-Agent", "Mozilla/5.0"
.SetRequestHeader "content-type", "application/json;charset=UTF-8"
.send "{""param"":""NAS:AAPL""}"
s = .responsetext
End With
Debug.Print s
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/460956.html