import JSON from API

Public Sub exceljson()
Dim http As Object, JSON As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "YOUR_API_HERE", False
http.send
Set JSON = ParseJson(http.responseText)
i = 2
For Each Item In JSON("data")
Sheets(1).Cells(i, 1).Value = Item("id")
Sheets(1).Cells(i, 2).Value = Item("name")
Sheets(1).Cells(i, 3).Value = Item("active")
i = i + 1
Next
MsgBox ("complete")
End Sub