☰

Как перенести данные с веб-сайта в Excel?

tag-icon • tag-icon microsoft-excel
Как перенести данные с веб-сайта в Excel?

Например,

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

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

решение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 для своего примера.

Связанный контент