Hi guys,

thanks for the tremendous help of Kyle123, here on this forum, I'm able to pull JSON data and parse it onto a sheet.
The snippet of code I use for this is as follows:

headers = Split(ScriptEngine.Run("getKeys", Row), ",")
For Each TableRow In RowKeys
Set Row = CallByName(Rows, TableRow, VbGet)
For x = LBound(headers) To UBound(headers)
If TableRow = 0 Then Sheet1.Cells(1, 3 + x) = headers(x)
Sheet1.Cells(2 + TableRow, 3 + x) = CallByName(Row, headers(x), VbGet)
Next x
Next TableRow
This works fine, but loops through 60 'header elements' per row.
I'm pulling 100 rows of data now, so that's 100 x 60 loops. And it's slow.
However, I aim to pull 1000s of rows of data, which will take forever.
Is there any way that I can put all elements in a json row immediately into an excel row? Without having to loop 60 times through it?

Would speed up the code tremendously, so all help is very much appreciated!

Thanks,

Jasper