Grabbing Website data using HTML with VBA Macro

[kodydale]

Hello,

I am trying to create a macro (first one), where I can hit a button and it automatically grabs a piece of data from a site for me.

Here is the site: Browse Inventory | Ryder Used Truck Sales

The piece of data I am trying to grab is the results number after the filter at the mid top left. Eventually, I would add the website filters to get the numbers for each specialized category. Thank you for your help in advance.

Thanks

 

[kodydale]

This is how I would want it to be set up

 

[kodydale]

Sub ScrapeWebData()
Dim HTTPreq As New MSXML2.XMLHTTP60
Dim html As HTMLDocument, url As String, response As String

url = "Browse Inventory | Ryder Used Truck Sales"

'send http request to url
With HTTPreq
.Open "GET", url, False
.send
End With

response = HTTPreq.responseText

Debug.Print response

'Read response html document
sethtml = CreateObject("htmlfile")
html.body.innerHTML = response
r = 1
For Each divElement In html.getElementById("totalrescount")
r = r + 1
Set divCollection = divElement.all
For Each element In divCollection
Next element
Next divElement

End Sub


This is my code so far