Wysyłanie danych do API za pomocą XMLHTTP w VBA

Aby wysłać dane do API za pomocą obiektu XMLHTTP w VBA, musisz użyć metody Open z parametrem „POST” lub „PUT”, a następnie dodać dane do żądania HTTP.

Oto przykładowy kod VBA, który wysyła dane do API za pomocą metody „POST”:

				
					Sub SendDataToAPI()
    Dim xmlhttp As New MSXML2.XMLHTTP60
    Dim url As String
    Dim data As String
    
    ' ustaw adres URL API
    url = "https://api.example.com/data"
    
    ' ustaw dane, które mają zostać wysłane w żądaniu
    data = "name=John&age=30"
    
    ' wyślij żądanie HTTP z danymi
    xmlhttp.Open "POST", url, False
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.Send data
    
    ' odbierz odpowiedź API
    ' ...
End Sub

W powyższym kodzie, zmienna „data” zawiera dane, które mają zostać wysłane w żądaniu HTTP. Możesz dostosować ten ciąg znaków do wymagań API. Następnie, używając metody „setRequestHeader”, ustawiamy typ zawartości nagłówka HTTP na „application/x-www-form-urlencoded”, który jest standardowym typem dla żądań POST z danymi formularza. Warto zaznaczyć, że typ zawartości nagłówka HTTP może różnić się w zależności od API, więc upewnij się, że używasz odpowiedniego typu dla Twojego API.

W linii „xmlhttp.Send data” wysyłamy żądanie HTTP z danymi, które zostały wcześniej ustawione w zmiennej „data”. Możesz również dodać inne parametry do żądania, jeśli API wymaga ich.

Po wysłaniu żądania HTTP z danymi, API powinno zwrócić odpowiedź, która może być następnie przetworzona przez Twój kod VBA.

Kategorie