Макро/VBA для получения значений с сайта www.Eppraisal.com

Question

Мне нужно получить некоторые значения с сайта www.Eppraisa.com с помощью Excel Macro.

Но я не знаю, какая должна быть ценность PropID. Вот почему макрос работает для url1, но не для URL2, потому что я думаю, что URL2 имеет неправильный propID

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() дим XMLHttp как объект 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 

Может ли кто-нибудь помочь? Это было бы очень полезно для меня

Спасибо.

Answer 1

С Mozilla Firefox & Firebug вы можете определить запрос и ответ.

Нижеуказанный шаг применяется ко всем вашим поисковым запросам.

Скопируйте приведенный ниже URL в браузер Firefox.

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

Open Up FireBug и искать ниже запроса. Goto Net Tab> XHR, как показано ниже.

Разверните узел и вкладку Гото Params. Он показывает все входные параметры, которые необходимо выполнить с запросом GET.

.

Наконец, мы можем увидеть ответ от сервера на вкладке «Ответ».