SetValue sproži jeUnsupportedValue

SetValue, Add, Insert ali Value = … sproži jeUnsupportedValue (vbObjectError + 520), kadar podate Scripting.Dictionary, Collection, nabor zapisov (recordset) ali drug objekt.

Vse različice WKL Office JSON.

Sprejete so samo vrednosti, ki imajo obliko JSON: String, številski tipi, Boolean, Date, Null, Empty in Nothing (zapisani kot null), enodimenzionalna polja teh vrednosti ter vozlišča JSON ali JDoc (Value = … vozlišča z vrednostjo ne sprejme polj in vozlišč s podrejenimi vozlišči; ta tam sprožijo jeInvalidOperation, glejte Vrednosti in omejitve). Tuji objekti, med njimi tudi Scripting.Dictionary in Collection, ter polja z več kot eno dimenzijo nimajo določene oblike JSON.

1. Strukturo zgradite z lastnimi metodami knjižnice: AddElement za objekt, AddArray za polje, SetValue za vsakega člana.

2. Slovar pretvorite v zanki:

   Dim target As JElement, key As Variant
   If doc.Root Is Nothing Then Set doc.Root = doc.CreateElement   ' a new JDoc is empty
   Set target = doc.Root
   For Each key In dict.Keys
       target.SetValue CStr(key), dict(key)
   Next

3. Dvodimenzionalno polje (na primer iz GetRows) pretvorite vrstico za vrstico v objekte znotraj polja.