Wie ziehe ich Daten von einer Website in Excel?

Question

Zum Beispiel,

Wenn ich den günstigsten Preis für diesen Artikel in Zelle A2 meiner Excel-Tabelle anzeigen lassen möchte, gibt es dafür einen Code, den ich schreiben könnte? Dabei handelt es sich nicht um kontinuierliches Scraping von Daten. Vielleicht kann man den Preis einmal pro Tag/Woche ermitteln.

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

Answer 1

Hier ist ein einfaches Beispiel, um Ihnen den Einstieg zu erleichtern. Es zeigt, wie Sie eine Website nur als HTML-Code anzeigen. Anschließend müssen Sie bestimmen, wie der Inhalt der Seite, die Sie in Text umgewandelt haben, gelesen werden soll, aber es ist immerhin ein Anfang:

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 ist die Variable, die Ihre Website enthält. Für mein Beispiel habe ich Google verwendet.