Quick support - VBA chrome Web scrape by element ID

[VBANewbie123]

Hi, all.

I have some code to open a webpage and I need to extract the inner text (if that's the correct term) of an element.

I wish to use chrome, firefox or Edge

<Div id = "xxxx"

Once copied, i need to go to the excel cells(I,2).paste (or something similar)

Any help, please?

 

[Anthony47]

You need to install in your PC the “Selenium environment”, as described here: extract data from web to inside sheet without open website &refersh

When the environment is ready try using a macro like this one:

Sub myCaller()
Dim WPage As Object, myUrl As String
'
'Crea Driver:
'    Set WPage = CreateObject("Selenium.EdgeDriver")
    Set WPage = CreateObject("Selenium.CHRomedriver")
'
Sheets("mySheet").Select                '<<< The sheet for the result
myUrl = "https://www.your.site.html"    '<<< YOUR Url
'
WPage.Get myUrl
WPage.Wait 500
'The page is ready 
'Get the text:
Range("A2").Value = WPage.FindElementById("xxx").Text       'Your Id
'
'more instruction for more data to fetch
'
'Closing session:
WPage.Quit
Set WPage = Nothing
End Sub

This will get the element innertext into A2 of the active sheet

 

[pecsenye]

This code is very good and works but it only shows one data.

I use this code:
Range("A2").Value = WPage.FindElementByClass("xxx").Text

I can see all the data of this div in A2 cell. That's great, but what if I want more of the same div?

Webpage source code:
<div class="xxx">...</div>
<div class="xxx">...</div>
<div class="xxx">...</div>
<div class="xxx">...</div>
<div class="xxx">...</div>

if i use this code i can see the first xxx data in A2. It's OK, but I would like to see the second xxx in A3, the third xxx in A4...
How do I do this?

Thanks for helping!

 

[Anthony47]

@pecsenye: It would have been better if you had posted your question in a new thread
Anyway...
In this case you have to collect "the collection" not the single element; for example:

Dim AColl As Object, I As Long
'
Set AColl = wpage.FindElementsByClass("xxx")
For I = 1 To AColl.Count
    Cells(I + 1, "A").Value = AColl(I).Text
Next I

Try...

 

[pecsenye]

Thank you!

 

[Peter_SSs]

Continued: VBA chrome Web scrape by element Class
This thread closed.