for Ids or Credit Cards), as they will be invalid above 15 digits.īy default, VBA-JSON will use String for numbers longer than 15 characters that contain only digits, use this option to use Double instead. This can lead to issues when BIGINT's are used (e.g. VBA-JSON includes a few options for customizing parsing/conversion if needed: json file Set JsonTS = FSO.OpenTextFile( 'example.json', ForReading) JsonText = JsonTS.ReadAll JsonTS.Close ' Parse json to Dictionary ' 'values' is parsed as Collection ' each item in 'values' is parsed as Dictionary Set Parsed = JsonConverter.ParseJson(JsonText) ' Prepare and write values to sheet Dim Values As Variant ReDim Values(Parsed( 'values' ).Count, 3 ) Dim Value As Dictionary Dim i As Long i = 0 For Each Value In Parsed( 'values' ) Values(i, 0 ) = Value( 'a' ) Values(i, 1 ) = Value( 'b' ) Values(i, 2 ) = Value( 'c' ) i = i + 1 Next Value Sheets( 'example' ).Range(Cells( 1, 1 ), Cells(Parsed( 'values' ).Count, 3 )) = Values Options
json file and load into sheet (Windows-only) ' (add reference to Microsoft Scripting Runtime) ' Dim FSO As New FileSystemObject Dim JsonTS As TextStream Dim JsonText As String Dim Parsed As Dictionary ' Read.
