VBA retrieve object data

[mwl707]

I have an object (JS) i my VBA which is returned from using jsonParser function. The data returned is in the image below

My code includes the following to retrieve the registration and make etc.

assign parseToVb(Response, js, , ok), result
'Fill in Results
'Make
Cells(RR, "L").Value = js.make
'Model
Cells(RR, "M").Value = js.model
'Colour
Cells(RR, "N").Value = js.primaryColour

And this works as I would expect. But what I cant do is reciver the "expiryDate" that is within the motTests

I have tried

MOT = js.motTests.motTestNumber.completedDate etc
MOT = js.motTests.0.expiryDate
MOT =js.motTests[0].expiryDate

but this isnt returning anything. Ideally I want to access this data (expiryDate) without entering the test number as I wont always know it.

Any help or pointers would be much appreciated. Thanks in advance.

 

[bobsan42]

I don't know what object exactly is returned by parseToVb.
I am using possibly a different one:

' VBA-JSON v2.3.1
' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON
' JSON Converter for VBA
' Errors:  10001 - JSON parse error
' @class JsonConverter
' @author tim.hall.engr@gmail.com
' @license MIT (http://www.opensource.org/licenses/mit-license.php)
'' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
' Based originally on vba-json (with extensive changes)
' BSD license included below
' JSONLib, http://code.google.com/p/vba-json/
' Copyright (c) 2013, Ryo Yokoyama
' All rights reserved.
...

however, I would assume the output is similar (you can inspect/debug the object during runtime).
a node contains a collection (base 1), the collection contains a dictionary, so looking for a value would be something like this:

MOT =js.motTests(1)("expiryDate")

as for debugging and investigating during runtime:

stop the code at this line - use a breakpoint or type Stop just before it:

Cells(RR, "L").Value = js.make

then use the locals window and the immediate window to study the js object
assuming your object is what I would expect:

?typename(js.motTests)
'Collection
?js.motTests.count
?typename(js.motTests(1))
'Dictionary
?Join(js.motTests(1).keys,",")
'mottestNumber, .......
?Join( js.motTests(1).items,",")
'13166.....

 

[mwl707]

bobsan42, thanks for taking to time to reply. That worked. Thanks​