Como extrair dados de um site para o Excel?

Question

Por exemplo,

Se eu quisesse que o preço mais barato deste item fosse exibido na célula A2 da minha planilha Excel, existe algum código que eu possa escrever para fazer isso? Isso não é uma coleta contínua de dados. Talvez encontrar o preço uma vez por dia/semana.

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

Answer 1

Aqui está um exemplo básico para você começar. Ele mostra como exibir um site apenas como código HTML. A partir daí você terá que determinar como ler o que está na página que você converteu em texto, mas pelo menos é um começo:

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 será a variável que contém o seu site. Usei o Google como exemplo.