4.1 VBA Basics

Data access via VBA code (Excel, Access, Word).

HTTP Request

Function GetData(url As String) As String
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
 
    http.Open "GET", url, False
    http.send
 
    GetData = http.responseText
End Function

Example Call

Sub TestGateway()
    Dim json As String
    json = GetData("http://localhost:5000/api/v1/dsn/demo/tables")
    Debug.Print json
End Sub

Parse JSON

For JSON parsing recommended: VBA-JSON Library

Dim data As Object
Set data = JsonConverter.ParseJson(json)
Zuletzt geändert: on 2026/01/29 at 11:23 PM