Sub bluejson() 'ok
Dim aa
Set x = CreateObject("ScriptControl"): x.Language = "JScript"
aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"
Set y = x.eval("eval(" & aa & ")")
MsgBox y.myname
MsgBox y.myaddress
MsgBox y.myaddress.city
MsgBox y.myaddress.postcode
'Stop
End Sub
转载于:https://www.cnblogs.com/luoye00/p/10643336.html
