Goedendag,
Om de juiste gegevens te kunnen gebruiken, moet er af en toe data geconverteerd worden op een website.
Velden moeten worden ingevuld, om vervolgens op een knop te drukken, om de conversie te starten.
Het vullen van de velden is geen probleem, maar hoe druk je op de knop?
De VBA-code gebruikt:
Wie kan mij helpen, dit op te lossen?
Alvast bedankt.
Om de juiste gegevens te kunnen gebruiken, moet er af en toe data geconverteerd worden op een website.
Velden moeten worden ingevuld, om vervolgens op een knop te drukken, om de conversie te starten.
Het vullen van de velden is geen probleem, maar hoe druk je op de knop?
De VBA-code gebruikt:
code:
Het voorbeeld zou De Groote Markt in Groningen moeten geven, maar in de response zit niet het resultaat, welke nodig is.1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Dim httpObject As Object
Dim url As String
Dim jsonBody As String
Dim response As String
' 1. API Endpoint URL
url = "https://www.gps-coordinaten.nl/gps-coordinaten-converteren"
' 2. Data die je wilt verzenden (JSON)
jsonBody = "{""Breedtegraad"":53.219074,""Lengtegraad"":6.567514,""Verkrijg Adres"":""""}"
' 3. Maak het HTTP-object
Set httpObject = CreateObject("MSXML2.XMLHTTP")
' 4. POST Request opzetten
On Error Resume Next ' Foutafhandeling
httpObject.Open "POST", url, False
httpObject.setRequestHeader "Content-Type", "application/json"
' Eventueel authenticatie header toevoegen:
' httpObject.setRequestHeader "Authorization", "Bearer JOUW_TOKEN"
' 5. Verzend de data
httpObject.Send jsonBody
' 6. Antwoord verwerken
If Err.Number <> 0 Then
MsgBox "Fout: " & Err.Description
Else
response = httpObject.responseText
MsgBox "Server antwoordde: " & response
End If
' Object opruimen
Set httpObject = Nothing |
Wie kan mij helpen, dit op te lossen?
Alvast bedankt.
:strip_exif()/f/image/7Tc023FgfJwge1afhLllbbBB.png?f=user_large)