VBA: веб-анализ и отображение результатов в электронной таблице Excel

Question

У меня есть код VBA, который успешно выполняет поиск дома в Zillow, однако я пытаюсь извлечь часть веб-сайта, которая показывает статус (class = "status"), и отобразить результаты в электронной таблице Excel.

Sub getHTMLdocument()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
Dim stat As MSHTML.IHTMLElement

IE.Visible = True
IE.navigate "zillow.com/homes"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.Document
Set HTMLInput = HTMLDoc.getElementById("citystatezip")
HTMLInput.Value = "21371 Estepa Circle Huntington Beach"

Set HTMLButtons = HTMLDoc.getElementsByTagName("button")
HTMLButtons(0).Click

Set stat = HTMLDoc.getElementById("yui_3_18_1_1_1548832597156_4287")
    Debug.Print stat.getAttribute("href")

End Sub

В конце концов я также хочу, чтобы VBA извлекал данные из электронной таблицы и автоматически загружал каждое из них нажатием кнопки.

Пример:

111 Main st [Кнопка, котораязагружает Zillow для 111]

211 Main st [Кнопка, которая загружает Zillow для 211]

311 Main st [Кнопка, которая загружает Zillow для 311] ...

Однако,Я был бы очень признателен, если бы смог хотя бы заставить его отображать часть class = "status" в excel

Answer 1

Вы можете использовать селектор класса css

HTMDoc.querySelector(".status").innerText

См. здесь для примера зацикливания URL.