VBA: Get value by Class name

[jamescooper]

Hello, trying to get the price from the website:

https://www.tesco.com/groceries/en-GB/products/303105747

So would return £3.00

Any ideas, this is my attempt?

Thanks in advance!

Sub WebData()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim source As Object


    With http
        .Open "GET", "https://www.tesco.com/groceries/en-GB/products/303105747", False
        .send
        html.body.innerHTML = .responseText
    End With
    For Each source In html.getElementsByClassName("data-auto")
        x = x + 1: Cells(x, 1) = source.getAttribute("value")


    Next source
End Sub

 

[jamescooper]

Any ideas please?

 

[jamescooper]

Any ideas thanks!

 

[Kyle123]

Like this:

    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim source As Object


    With http
        .Open "GET", "https://www.tesco.com/groceries/en-GB/products/303105747", False
        .send
        html.body.innerHTML = .responseText
    End With

    MsgBox html.querySelector(".price-details--wrapper .value").innerText

 

[jamescooper]

Thanks, can you let me know how I would put this into a cell?

 

[Kyle123]

SomeWorksheet.Range("A1").value2 = html.querySelector(".price-details--wrapper .value").innerText

 

[jamescooper]

That is great thanks and works.

I have 1 further question:

How would I loop through URLs, I am thinking

For x = LBound(urls) To UBound(urls)

Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(dogLinks), 17).Value2 = dogLinks
Next x
.Open "GET", url, False
.send
html.body.innerHTML = .responseText
End With

 

[jamescooper]

Any ideas here please on how to add the loop?