上传图片的数据值

Question

在那个链接主页上有大量的类("df-table")第一类可以进入Excel表格，但第二类("df-table")，第三类("df-table")，等等。

各种网络资源都说可以通过使用n -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

Answer 1

初始误差(RTE32):

:nth-of-type()伪类选择器将在属性选择器之外关闭]即"[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上提供。因为我只能用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