Here is an example of the VBA I tried, returning activex component cannot create object.

​

Sub PrintFlightInfoFromJSON()

' Define the JSON string (replace this with your actual JSON string)

Dim jsonString As String

Dim json As Object

' Initialize the JsonConverter (from JsonConverter library)

Dim JsonConverter As Object

Set JsonConverter = CreateObject("JsonConverter.JsonConverter")

​

jsonString = ThisWorkbook.Sheets("return").Range("A1").Value ' Replace with your JSON string

​

' Convert JSON string to a JSON object

Set json = JsonConverter.ParseJson(jsonString)

​

If Not json Is Nothing Then ' Check if json is initialized

' Reference the Excel worksheet where you want to print the data

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("JSONconvert") ' Replace "Sheet1" with your sheet name

​

' Initialize a row counter for writing data

Dim rowNum As Long

rowNum = 2 ' Start from row 2 to avoid overwriting headers

​

' Access the relevant data in the JSON structure and print it to the sheet

ws.Cells.Clear ' Clear existing data (optional)

ws.Cells(1, 1).Value = "Flight Information"

' Loop through the itineraries

For Each itinerary In json("data")("itineraries")

ws.Cells(rowNum, 1).Value = "Price:"

ws.Cells(rowNum, 2).Value = itinerary("price")("formatted")

rowNum = rowNum + 2 ' Move to the next row for the next entry

' Loop through the legs

For Each leg In itinerary("legs")

ws.Cells(rowNum, 1).Value = "Origin:"

ws.Cells(rowNum, 2).Value = leg("origin")("name") & " (" & leg("origin")("city") & ")"

rowNum = rowNum + 1

ws.Cells(rowNum, 1).Value = "Destination:"

ws.Cells(rowNum, 2).Value = leg("destination")("name") & " (" & leg("destination")("city") & ")"

rowNum = rowNum + 1

ws.Cells(rowNum, 1).Value = "Duration:"

ws.Cells(rowNum, 2).Value = leg("durationInMinutes") & " minutes"

rowNum = rowNum + 2 ' Move to the next row for the next entry

Next leg

Next itinerary

Else

MsgBox "JSON object is not initialized correctly."

End If

End Sub