Wie gehen wir mit restful APIs von Excel-Makros (vba)?

Können Sie die MSXML Bibliothek in VBA. Dann erstellen Sie ein XMlHTTP-request-und eine GET-oder POST-etc. Hier ein code-Beispiel unten. Es nutzt späten Bindung, D. H. keine erfordern einen Verweis auf die Bibliothek zuerst:

Option Explicit

Sub Test_LateBinding()

    Dim objRequest As Object
    Dim strUrl As String
    Dim blnAsync As Boolean
    Dim strResponse As String

    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    strUrl = "https://jsonplaceholder.typicode.com/posts/1"
    blnAsync = True

    With objRequest
        .Open "GET", strUrl, blnAsync
        .SetRequestHeader "Content-Type", "application/json"
        .Send
        'spin wheels whilst waiting for response
        While objRequest.readyState <> 4
            DoEvents
        Wend
        strResponse = .ResponseText
    End With

    Debug.Print strResponse

End Sub

Ich bin mit diesem Test website - JSONPlaceholder - zum Aufruf eines Rest-basierten API. Dies ist die Antwort:

Beachten Sie, dass ich festgestellt, dass Anrufe auf diese website mit dieser Methode scheitern, wenn Sie a) eine synchrone Anfrage, oder b) http nicht https.