-2

Например,

Если бы я хотел, чтобы самая низкая цена этого элемента отображалась в ячейке A2 моей электронной таблицы Excel, могу ли я написать какой-нибудь код для этого? Это не постоянная очистка данных. Может быть, найти цену один раз в день / неделю.

http://steamcommunity.com/market/listings/440/Strange%20Hillbilly%20Speed-Bump

1 ответ1

-1

Вот основной пример, чтобы вы начали. Он показывает, как отобразить веб-сайт в виде HTML-кода. Оттуда вам нужно будет определить, как читать то, что находится на странице, которую вы преобразовали в текст, но, по крайней мере, это начало:

Private Sub GetWebsiteHtml_Click()

Dim x As Long, y As Long
Dim htmlText As Object

Set htmlText = CreateObject("htmlFile")

With CreateObject("msxml2.xmlhttp")
    .Open "GET", "http://google.com", False
    .send
    htmlText.body.innerHTML = .responsetext
End With

End Sub

htmlText будет переменной, содержащей ваш сайт. Я использовал Google для моего примера.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .