Tut5-ScrapeCarDataPt2.xlsm

Sub ScrapeCarDataPt2()
    Dim IE As InternetExplorer
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.Navigate "https://carousell.com/categories/cars-32/cars-for-sale-1173/"
    
    Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
    
    Dim CarListings As IHTMLElementCollection
    Dim CarListing As IHTMLElement
    Dim ItemName As IHTMLElementCollection
    
    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
    Next CarListing

    IE.Quit
End Sub