API-Calls mit VBA: So greifen Sie auf externe Datenquellen zu

Statt HTML zu parsen, liefern viele Dienste JSON-APIs – stabiler, schneller, rechtssicher. Dieser Leitfaden zeigt, wie Sie HTTP-Requests senden, JSON parsen und die Daten sauber in Excel schreiben. Inklusive Praxisfall.

---

1) HTTP-GET/POST – generische Helfer

Function Http(ByVal method As String, ByVal url As String, Optional ByVal body As String = "", Optional ByVal contentType As String = "application/json") As String
    Dim x As Object: Set x = CreateObject("MSXML2.XMLHTTP")
    x.Open UCase$(method), url, False
    x.setRequestHeader "Content-Type", contentType
    x.setRequestHeader "User-Agent", "Excel-VBA"
    x.send body
    If x.Status >= 200 And x.Status < 300 Then Http = x.responseText
End Function

---

2) JSON parsen

• Entweder VBA-JSON-Bibliothek verwenden (z. B. JsonConverter.bas) oder eigenes, einfaches Parsen für bekannte Strukturen.
• Beispiel mit VBA-JSON (Pseudo):

' Dim json As Object: Set json = JsonConverter.ParseJson(Http("GET", url))

---

3) Praxisfall – Wechselkurse abrufen

Sub LadeWechselkurse()
    Dim url As String: url = "https://api.example.com/rates?base=EUR"
    Dim txt As String: txt = Http("GET", url)
    ' JSON parsen ...
    ' Werte in Range schreiben
End Sub

---

4) Sicherheit & Fehlerbehandlung

• API Keys nicht im Klartext committen (Konfigurationsblatt, Umgebungsvariablen).
• Timeouts/Retry implementieren.
• Rate Limits respektieren; Caching.

---

Fazit

APIs sind die saubere Alternative zum Scraping. Mit kleinen HTTP-Helfern und JSON-Parsing binden Sie externe Datenquellen professionell an.