VBA解析Json(转) 

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

　　

posted @ 2019-04-02 16:18  tec2019  阅读(1248)  评论(0)  编辑  收藏  举报