¿Cómo extraer datos de un sitio web a Excel?

Question

Por ejemplo,

Si quisiera que el precio más barato de este artículo se muestre en la celda A2 de mi hoja de cálculo de Excel, ¿hay algún código que pueda escribir para hacerlo? No se trata de extraer datos continuamente. Quizás encontrar el precio una vez al día/semana.

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

Answer 1

A continuación se muestra un ejemplo básico para que pueda empezar. Muestra cómo mostrar un sitio web solo como código HTML. A partir de ahí tendrás que determinar cómo leer lo que hay en la página que has convertido a texto, pero al menos es un comienzo:

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á la variable que contiene su sitio web. Usé Google para mi ejemplo.