Я пытаюсь извлечь различные элементы из разных веб-сайтов, используя собственные макросы VBA. Я использую XMLHTTP.
Однако я не могу заставить его работать. Я посмотрел на коды, как показано ниже, и все они выглядят настолько по-разному, что я не знаю, что применить, чтобы извлечь то, что я хочу, основываясь на том, что я исследовал до сих пор.
Сайт # 1, использующий "Просмотр источника страницы"
Экстракт 5,061
<p class="card-text">
<div class="row">
<div class="col-md-1"></div>
<div class="col-md-3 px-1">
<p class="text-center mt-4 py-0 my-0"><a class="text-white" href="https://www.bestplaces.net/people/city/tennessee/dunlap"><u>Population</u></a></p>
<p class="text-center py-0 my-0" style="font-size:30px;">5,061</p>
Сайт № 2 из XML-файла сайта
Экстракт 102196
<response>
<results>
<result>
<zpid>154607080</zpid>
<links>
<homedetails>
https://www.zillow.com/homedetails/2912-W-1st-St-APT-1-Jacksonville-FL-32254/154607080_zpid/
</homedetails>
<graphsanddata>
http://www.zillow.com/homedetails/2912-W-1st-St-APT-1-Jacksonville-FL-32254/154607080_zpid/#charts-and-data
</graphsanddata>
<mapthishome>http://www.zillow.com/homes/154607080_zpid/</mapthishome>
<comparables>http://www.zillow.com/homes/comps/154607080_zpid/</comparables>
</links>
<address>
<street>2912 W 1st St APT 1</street>
<zipcode>32254</zipcode>
<city>Jacksonville</city>
<state>FL</state>
<latitude>30.339737</latitude>
<longitude>-81.716677</longitude>
</address>
<zestimate>
<amount currency="USD">102196</amount>
Сайт № 3, использующий «Просмотр источника страницы»
Извлечь $ 76 869
<div class="Text__TextBase-sc-1cait9d-0-div Text__TextContainerBase-sc-1cait9d-1 hlvKRM">$76,869</div>
Вот так выглядит часть моих кодов
With Http
.Open "GET", URL, False
.send
Html.body.innerHTML = .responseText
End With
On Error Resume Next
add = Html.querySelector("zestimate").getAttribute("amount")
Я искренне благодарен всем, кто показывает мне правильный способ извлечения этой информации.