@פשוט-אבל-תותח בבקשה:
תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך.
תוסיף הפנייה לספרייה "Microsoft Scripting Runtime".
הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן:
Public Function HttpGet(url As String) As String
Dim httpRequest As Object
Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim res As String
httpRequest.Open "GET", url, False
httpRequest.Send
HttpGet = httpRequest.responseText
End Function
את התגובה אתה צריך לפרסר עם הספריה VBA-JSON.
הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה:
Dim res As String
Dim json As Object
res = HttpGet("https://jsonplaceholder.typicode.com/users/1")
Set json = ParseJson(res)
MsgBox json("username")
התוצאה:
8199d788-ad65-44eb-b7e7-41d6fbdf870b-תמונה.png