Excel-Daten mit dem Internet verbinden: Webscraping mit VBA

Preise, Wechselkurse, Produktlisten – vieles lässt sich aus dem Web automatisiert nach Excel holen. Dieser Artikel zeigt seriöse Scraping-Muster, HTML-Parsing und Sicherheitsaspekte – mit einem konkreten Praxisfall.

---

1) Recht & Respekt

• Robots.txt und Nutzungsbedingungen beachten.
• Last gering halten, sinnvolle Pausen.
• Wo möglich offizielle APIs nutzen (stabiler, rechtssicher).

---

2) HTTP-Anfragen senden (XMLHTTP)

Function HttpGet(ByVal url As String) As String
    Dim x As Object: Set x = CreateObject("MSXML2.XMLHTTP")
    x.Open "GET", url, False
    x.setRequestHeader "User-Agent", "Excel-VBA"
    x.send
    If x.Status = 200 Then HttpGet = x.responseText Else HttpGet = ""
End Function

---

3) HTML parsen (HTMLDocument)

Function HtmlText(ByVal html As String, ByVal css As String) As String
    Dim doc As Object: Set doc = CreateObject("HTMLFILE")
    doc.Write html
    Dim el As Object: Set el = doc.querySelector(css)
    If Not el Is Nothing Then HtmlText = el.innerText
End Function

---

4) Praxisfall – Preis von Produktseite holen

Sub PreisAbrufen()
    Dim html As String, preis As String
    html = HttpGet("https://example.com/produkt123")
    preis = HtmlText(html, ".price")
    If Len(preis) = 0 Then
        MsgBox "Preis nicht gefunden."
    Else
        Range("B2").Value = preis
    End If
End Sub

---

5) CSV/JSON-APIs bevorzugen

Function HttpGetJson(ByVal url As String) As String
    Dim x As Object: Set x = CreateObject("MSXML2.XMLHTTP")
    x.Open "GET", url, False
    x.setRequestHeader "Accept", "application/json"
    x.send
    If x.Status = 200 Then HttpGetJson = x.responseText
End Function

---

6) Sicherheit

• Keine sensiblen Daten im Klartext übertragen.
• Fehlerbehandlung + Timeouts.
• Caching nutzen, um Anfragen zu reduzieren.

---

Fazit

Webscraping ist machbar – doch APIs sind vorzuziehen. Mit schlanken HTTP-Hilfsfunktionen und Parsern automatisieren Sie Datenimporte sauber und nachhaltig.