Tut5-ScrapeCarDataPt3.xlsm

Sub ScrapeCarDataPt3()
    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
    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

    IE.Quit
End Sub