excel-vba json to - Macro / VBA para recuperar valores de www.Eppraisal.com




0 Answers

parsejson http request

Necesito recuperar algunos valores de www.Eppraisa.com usando Excel Macro.

Pero no sé cuál debería ser el valor de PropID. Es por eso que la macro funciona para URL1 pero no para URL2 porque creo que URL2 tiene un ID de propiedad incorrecto

Const URL1 As String = " http://www.eppraisal.com/home-values/property_lookup_eppraisal?a=1122%20E%20Loyola%20Dr&z=85282&propid=42382460 "

Const URL2 As String = " http://www.eppraisal.com/home-values/property_lookup_eppraisal?a=19732%20E%20Reins%20Rd&z=85142&propid=31402642 "

Sub xmlHttp () Dim xmlHttp As Object Set xmlHttp = CreateObject ("MSXML2.XMLHTTP")

' This works
xmlHttp.Open "GET", URL1, False

' But doesn't work for below url :(
'xmlHttp.Open "GET", URL2, False

xmlHttp.setRequestHeader "Content-Type", "text/xml"


xmlHttp.send

Dim ieDom As New HTMLDocument
Dim html As Object
Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHttp.responseText
Debug.Print html.body.innerHTML
ieDom.body.innerHTML = xmlHttp.responseText

For Each ieInp In ieDom.getElementsByTagName("p")
    If ieInp.className = "ColorAccent6 FontBold FontSizeM Margin0 Padding0" Then
        strEppraisalValue = ieInp.innerText
    ElseIf ieInp.className = "FontSizeA Margin0 DisplayNone HighLow" Then
        strEppraisalHighLow = ieInp.innerText
    End If
Next End Sub

¿Alguien puede ayudarme? Sería una gran ayuda para mí

Gracias.




Related