Access/VBA Library

JSONParser

Class to parse a JSON string to a VBA data structure. A JSON object is converted to a Dictionary and an array to a Collection .

Class: JSONParser

Remarks

  • Numeric values are converted to Double datatype.
  • Dates are treated as a String by default unless the property ConvertToDate is set to True .
Example
  Dim JP As New JSONParser
  Dim varData As Variant

  With JP
  ' Content of file:
  ' {
  ' "name" : "Jeff Morrisson",
  ' "salary" : 28334.33,
  ' "dateofbirth" : "1988-11-24",
  ' "male" : true,
  ' "children" : [ "Anna", "Kim", "Alex" ]
  ' }
      .Filename = "C:\test.json"
      .DebugResult = True
      Set varData = .Parse

      If varData Is Nothing Then
          MsgBox "JSON Parse failed : " & .LastError
      Else
          MsgBox varData("name") 'Jeff Morrisson
      End If
  End With
  'Setting the DebugResult property to True will produce:
  '
  'JSON Parser
  '===========
  'JSON : {"name" : "Jeff Morrisson","salary" : 28334.33, "dateofbirth" : "1988-11-24","male" : true,"children" : [ "Anna", "Kim", "Alex" ]}
  'Result_______: Success!
  'Return type__: Dictionary
  'Content:
  '
  'Name__________Type__________Value
  'name__________String________Jeff Morrisson
  'salary________Double________ 28334,33
  'dateofbirth___String________1988-11-24
  'male__________Boolean_______True
  'children______Collection____...
  '

Topics