PDA

View Full Version : problem getting internet values



Galactico
04-18-2018, 05:05 PM
hello, I have this macros to get values from the website, but i can't get the values, in this case, i want to get the price (and the states if is posible), thats is "NM-M$0.49", " PLD-SP$0.25", i wish to get the complete table or just the first price.


I would greatly appreciate anyone who can give me a hand



Sub test1()
Dim htmlDeRespuesta As Object
Dim o As Object
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "Get", "https://www.abugames.com/magic-the-gathering/singles/product-detail/Cho%252DManno,-Revolutionary-%252D-FOIL/Mercadian-Masques/English/", False
.send
htmlDeRespuesta.body.innerhtml = .responsetext
End With
For Each o In htmlDeRespuesta.all
If LCase(o.classname) = "row not-first" Then
Range("c4").Value = o.innertext
Exit For
End If
Next
End Sub



thanks!