Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub ScrapeCarDataPt3()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ""
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Dim CarListings As IHTMLElementCollection
Dim CarListing As IHTMLElement
Dim ItemName As IHTMLElementCollection
Dim ItemDetails As IHTMLElementCollection
Dim ItemDetail As IHTMLElement
Set CarListings = IE.Document.body.getElementsByClassName("col-lg-3 col-md-4 col-sm-4 col-xs-6")
For Each CarListing In CarListings
Set ItemName = CarListing.getElementsByClassName("A-i")
Debug.Print ItemName(0).innerText
Set ItemDetails = CarListing.getElementsByTagName("dd")
For Each ItemDetail In ItemDetails
Debug.Print ItemDetail.innerText
Next ItemDetail
Next CarListing
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment