====== 4.1 Osnove VBA ======

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

===== HTTP zahtjev =====

<code vb>
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
</code>

===== Primjer poziva =====

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

===== Parsiranje JSON-a =====

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

<code vb>
Dim data As Object
Set data = JsonConverter.ParseJson(json)
</code>