Метод селектора CSS:
Точный селектор CSS для элемента:
#infoBox > div.col-xs-12.thumbnail.thumbnail-more > div:nth-child(3) > h3
![CSS query](https://i.stack.imgur.com/mXqzx.png)
Что вы можете упроститьдо:
![CSS query 2](https://i.stack.imgur.com/4cM5U.png)
или даже
![CSS query 3](https://i.stack.imgur.com/DAEZQ.png)
Который у вас естьПолученный документ HTML может быть доступен с помощью любого из следующих селекторов:
.querySelector("#infoBox > div.col-xs-12.thumbnail.thumbnail-more > div:nth-child(3) > h3").InnerText
.querySelector("#infoBox *> div:nth-child(3) > h3").InnerText
.querySelector(".valueText").InnerText
Вот пример того, как вы могли бы извлечь текущую цену ($ 10), используя Internet Explorer и один из селекторов CSSпоказано выше:
Код:
Option Explicit
Public Sub GetInfo()
Dim IE As Object
Dim html As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "https://stashpedia.com/funko/pop-vinyl/thundercats/tygra-exclusive-573"
While .Busy Or .readyState < 4: DoEvents: Wend
Set html = .document
With html
Debug.Print .querySelector("#infoBox *> div:nth-child(3) > h3").innerText
End With
Stop
'Quit '<== Remember to quit application
End With
End Sub
Информация о селекторах CSS здесь .
Метод XPath:
Если вы хотите использовать XPath
, который не поддерживается описанным выше способом, вы можете использовать Selenium basic , и ваш сценарий может выглядеть следующим образом:
Option Explicit
Public Sub GetInfoSel()
Dim d As WebDriver
Set d = New ChromeDriver
Const URL = "https://stashpedia.com/funko/pop-vinyl/thundercats/tygra-exclusive-573"
With d
.Start "Chrome"
.Get URL
Debug.Print .FindElementByXPath("//*[@id=""infoBox""]/div[1]/div[3]/h3").Text
'Quit
End With
End Sub
Примечание: послескачав и установив, вам нужно перейти к инструментам> ссылки в VBE и добавить ссылку на библиотеку Selenium Type
![Selenium reference](https://i.stack.imgur.com/Mixbe.png)