vba json解析

yimibaer

才疏学浅，研究了一天，总是借鉴论坛友人的代码学会用了。

Function 解析Json()
    天涯地址 = "http://www.tianya.cn/api/bbsuser?var=bbsUser&method=userinfo.ice.getUserTotalList&params.userId=134394007&_=1515394216830"
    Set winhttp = CreateObject("Microsoft.XMLHTTP")
    With winhttp
        .Open "GET", 天涯地址, False
        .send
        t1 = .responsetext
        sss = Split(Split(t1, """data"":")(1), ",""code""")(0)
    End With
    Set js = CreateObject("MSScriptControl.ScriptControl")
    js.Language = "JavaScript"
    js.ExecuteStatement "strJson=eval('(" & sss & ")')" & ";a=[];b=strJson.list;o=b[0];for(k in o){a.push(k)}"
    For i = 0 To js.eval("b.length") - 1
        For j = 0 To js.eval("a.length") - 1
            t = js.eval("a[" & j & "]")
            Debug.Print t
            Debug.Print js.eval("b[" & i & "]." & t)
        Next
    Next
End Function

硅谷少年

直接用powerquery更简单，不用写代码。

硅谷少年

powerquery解析上面的json。这种方式对简单的json可以，嵌套太多的有困难。