html - 요소 이름 데이터 스크래핑을 추출하는 방법

노드를 분리 한 다음 getAttribute 함수를 사용해야합니다

node.getAttribute("data-promo-name")

html이 다르게 나타납니다.

한 줄을 사용한 예는

ie.document.querySelector(".ps-properties-property__units__prices.col-4.col-md-3").getAttribute("data-promo-name")

전체 코드 :

Option Explicit
Public Sub ElementName()
    Dim ie As New InternetExplorer, ws As Worksheet
    Dim element As IHTMLElement
    Set ws = ThisWorkbook.Worksheets("Unit Data")
    With ie
        .Visible = True
        .Navigate2 "https://www.publicstorage.com/self-storage-mi-ann-arbor/1760?sp=1760|1|Ann%20Arbor|42.28083|-83.74303|0|1|1"
        While .Busy Or .readyState < 4: DoEvents: Wend
        Dim listings As Object, listing As Object, headers(), results(), r As Long, c As Long, item As Object
        headers = Array("Width", "Length", "Hight/Space Type", "promo", "Reguler Price", "Online Price", "Listing Active", "features", "features1", "features2", "features3", "features4", "features5", "features6")
        Set listings = .document.getElementsByClassName("row ps-properties-property__units__row ")
        Dim html2 As HTMLDocument
        Set html2 = New HTMLDocument
        ReDim results(1 To listings.Length, 1 To UBound(headers) + 1)
        For Each listing In listings
            r = r + 1
            On Error Resume Next
            results(r, 1) = listing.getElementsByClassName("ps-properties-property__units__header")(0).innerText 'Size
            html2.body.innerHTML = listing.outerHTML
            results(r, 4) = html2.querySelector(".ps-properties-property__units__prices").getAttribute("data-promo-name")
            'results(r, 4) = listing.getElementsByClassName(Need a code here) 'Promo
            results(r, 5) = listing.getElementsByClassName("ps-properties-property__units__prices__old-price")(0).innerText 'Sizet 'Reguler Price
            results(r, 6) = listing.getElementsByClassName("ps-properties-property__units__prices__price")(0).innerText 'Online Price
            results(r, 7) = listing.getElementsByTagName("ps-properties-property__units__prices col-1 col-md-3")(0).innerText 'Listing Active
            results(r, 8) = listing.getElementsByClassName("ps-properties-property__units__feature")(0).innerText 'Features
            On Error GoTo 0
            html2.body.innerHTML = vbNullString
        Next
        ws.Cells(1, 1).Resize(1, UBound(headers) + 1) = headers
        ws.Cells(2, 1).Resize(UBound(results, 1), UBound(results, 2)) = results
        .Quit
    End With
End Sub

findElement(By.xpath("//div[@class='ps-properties-property__units__prices col-4 col-md-3']")).getAttribute("data-promo-name");