Sie befinden sich hier: start » hr » Interna dokumentacija » WvdS Data-Gateway » 3. Korisnici » 4. VBA » 4.1 Osnove VBA

Inhaltsverzeichnis

4.1 Osnove VBA

Pristup podacima putem VBA koda (Excel, Access, Word).

HTTP zahtjev

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

Primjer poziva

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

Parsiranje JSON-a

Za parsiranje JSON-a preporučuje se: VBA-JSON Library 

Dim data As Object
Set data = JsonConverter.ParseJson(json)
Zuletzt geändert: 29.01.2026. u 23:27

Seiten-Werkzeuge