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.