(Excel) JSON AppendObjectCopy Example

Demonstrates the AppendObjectCopy function.

Note: This example requires Chilkat v9.5.0.82 or above.

Download Excel Class Modules Chilkat Excel Class Modules

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
Dim success As Boolean
success = json.Load("{ ""name"": ""John"", ""marbles"": 100 }")

Dim json2 As Chilkat.JsonObject
Set json2 = Chilkat.NewJsonObject
success = json2.Load("{""street"":""1200 Elm St."",""city"":""Springfield"",""zip"":60606}")

' Copy the contents of json2 to a new member object named "addr".
success = json.AppendObjectCopy("addr",json2)

Debug.Print json.Emit()
' Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}

' Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
' For example:
success = json.UpdateString("addr.street","1000 Oak St.")
Debug.Print json.Emit()
' Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606}}

Debug.Print json2.Emit()
' Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}