parsejson - vba json parser example

Macro/VBA para recuperar valores de www.Eppraisal.com

Question

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.

Answer 1

Con Mozilla Firefox & Firebug puedes identificar la solicitud y la respuesta.

El siguiente paso se aplica a cualquier búsqueda que realice.

1 Copie la URL siguiente al navegador Firefox.

http://www.eppraisal.com/home-values/property/1122-e-loyola-dr-tempe-az-85282-42382460/

2 Abre FireBug y busca la siguiente solicitud. Goto Net Tab> XHR como en la imagen de abajo.

3 Expanda el nodo y vaya a la pestaña Parámetros. Muestra todos los parámetros de entrada que deben ir con la solicitud GET.

.

4 Finalmente podemos ver la respuesta del servidor en la pestaña Respuesta.