Databases
StackOverflow2013
Postsdbo
POExcel VBA: Parsed JSON Object Loop
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POExcel VBA: Parsed JSON Object Loop
    primarykey
    data
    text
    <p>Per example below...Looping through an object from a parsed JSON string returns an error "Object doesn't support this property or method". Could anyone advise how to make this work? Much appreciated (I spent 6 hours looking for an answer before asking here). </p> <p>Function to parse JSON string into object (this works OK).</p> <pre><code>Function jsonDecode(jsonString As Variant) Set sc = CreateObject("ScriptControl"): sc.Language = "JScript" Set jsonDecode = sc.Eval("(" + jsonString + ")") End Function </code></pre> <p>Looping through the parsed object returns error "Object doesn't support this property or method".</p> <pre><code>Sub TestJsonParsing() Dim arr As Object 'Parse the json array into here Dim jsonString As String 'This works fine jsonString = "{'key1':'value1','key2':'value2'}" Set arr = jsonDecode(jsonString) MsgBox arr.key1 'Works (as long as I know the key name) 'But this loop doesn't work - what am I doing wrong? For Each keyName In arr.keys 'Excel errors out here "Object doesn't support this property or method" MsgBox "keyName=" &amp; keyName MsgBox "keyValue=" &amp; arr(keyName) Next End Sub </code></pre> <p>PS. I looked into these libraries already:</p> <p>-<a href="http://code.google.com/p/vba-json/" rel="noreferrer">vba-json</a> Wasn't able to get the example working.<br> -<a href="http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html" rel="noreferrer">VBJSON</a> There's no vba script included (this might work but don't know how to load it into Excel and there is minimum documentation).</p> <p>Also, Is it possible to access Multidimensional parsed JSON arrays? Just getting a single-dimension array loop working would be great (sorry if asking too much). Thanks. </p> <hr> <p>Edit: Here are two working examples using the vba-json library. The question above is still a mystery though...</p> <pre><code>Sub TestJsonDecode() 'This works, uses vba-json library Dim lib As New JSONLib 'Instantiate JSON class object Dim jsonParsedObj As Object 'Not needed jsonString = "{'key1':'val1','key2':'val2'}" Set jsonParsedObj = lib.parse(CStr(jsonString)) For Each keyName In jsonParsedObj.keys MsgBox "Keyname=" &amp; keyName &amp; "//Value=" &amp; jsonParsedObj(keyName) Next Set jsonParsedObj = Nothing Set lib = Nothing End Sub Sub TestJsonEncode() 'This works, uses vba-json library Dim lib As New JSONLib 'Instantiate JSON class object Set arr = CreateObject("Scripting.Dictionary") arr("key1") = "val1" arr("key2") = "val2" MsgBox lib.toString(arr) End Sub </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USJoel Coehoorn
    1. USrr789
    plurals
    1. PL
      singulars
      1. LTLinked
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    3. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. USKevin Crumley
      1. VTFavorite
    1. COFyi: Got function code from here: http://tech.groups.yahoo.com/group/json/message/972 (don't have enough karma to put another link in the question).
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. USrr789
    2. COFyi: This Japanese user wrote a good piece on the issue: http://translate.google.com/translate?hl=en&sl=ja&tl=en&u=http://javascript.dohow.jp/advance/jsonvba.shtml
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. USrr789
    3. COYour first example doesn't work because "arr" is a native js object and it doesn't have "keys". Other libraries parse json directly to a dictionary (possibly with other nested dictionaries). That's why your second example works: you're iterating over the dictionary's keys.
      singulars
      1. POExcel VBA: Parsed JSON Object Loop
      1. USTim Williams
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload