Option Explicit
Sub VBAWebscraping2()


    Dim IEObject As Object
    
    Set IEObject = New InternetExplorer
    
    IEObject.Visible = True
    
    IEObject.navigate url:="https://streeteasy.com/building/" & Cells(2, 4).Value
        
    Do While IEObject.Busy = True Or IEObject.readyState <> READYSTATE_COMPLETE
    
        Application.Wait Now + TimeValue("00:00:01")
        
    Loop
    
    Dim IEDocument As HTMLDocument
    Set IEDocument = IEObject.document
    
    'GRAB by classname'
    
    Dim IEElements As IHTMLElementCollection
    Dim IEElement As IHTMLElement
    
    Set IEElements = IEDocument.getElementsByClassName("details")
    
    For Each IEElement In IEElements
    If IEElement.innerText = "price" Then
        Debug.Print (IEElement.innerText)
    End If
    Exit For
    Next
    
    
        
    'Dim lastRow As Long
    'lastRow = Range("A" & Rows.count).End(xlUp).row
    
End Sub

它转到所需的位置，但当它试图提取价格时，它要么不在调试菜单中打印，要么抓取太多。试图找出一种更精确的方法来只抓住价格，很多教程都提到了ID标签，但在网站上并不多。

这就是我https：//streeteasy.com/building/the-cambridge-500-east-85-street-new_york/15l？card=1

IEDocument.querySelector(".price").innerText

IEDocument.querySelector(".first_detail_cell").innerText

IEDocument.querySelector("[class='detail_cell ']").innerText

IEDocument.querySelector("last_detail_cell").innerText