Нужно написать парсер на vba, который бы брал цены с таблицы сайта и записывал в ячейку Экселя.
Сайт:
Цены, которые необходимо взять с сайта находятся в столбце, отмеченном на картинке.
Код написал, работает, но не совсем как мне нужно. Проблема в том, что мне нужны цены только из одного столбца, данные из которого соответствуют классу "price". Но программа также берёт данные из классов "price old", "price total" и тд. (то есть из соседних столбцов). Подскажите, как обратиться конкретно к классу "price" и получить все данные со столбца и корректно обработать таблицу?
код:
Сайт:
Цены, которые необходимо взять с сайта находятся в столбце, отмеченном на картинке.
Код написал, работает, но не совсем как мне нужно. Проблема в том, что мне нужны цены только из одного столбца, данные из которого соответствуют классу "price". Но программа также берёт данные из классов "price old", "price total" и тд. (то есть из соседних столбцов). Подскажите, как обратиться конкретно к классу "price" и получить все данные со столбца и корректно обработать таблицу?
код:
| Код |
|---|
Sub Parser()
Dim XMLHTTP As Object
Dim URL$, Txt$, Price$
Dim html As New HTMLDocument
URL = "https://www.house-stroy.com/czenyi/#link"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", URL, False
XMLHTTP.send
html.body.innerHTML = XMLHTTP.responseText
Sheets(1).Cells(1, 1).Value = html.getElementsByClassName("price")(1).innerText
End Sub
|
Изменено: - 14.09.2022 14:28:57
