求助 vba解析json，难道最多能解析16个名值对？

Kaohsing

在抓取中国天气时，返回如下json数据var dataSK = {"nameen":"binzhou","cityname":"滨州","city":"101121101","temp":"16","tempf":"60","WD":"东南风","wde":"SE ","WS":"1级","wse":"<12km/h","SD":"42%","time":"13:50","weather":"晴","weathere":"Sunny","weathercode":"d00","qy":"1022","njd":"暂无实况","sd":"42%","rain":"0","rain24h":"0","aqi":"241","limitnumber":"","aqi_pm25":"196","date":"11月17日(星期四)"}
大约有23个名值对。
用如下代码处理
Sub test1()
        Dim objSC, objJS, strJOSN$
        Set objSC = CreateObject("MSScriptControl.ScriptControl")
        strJOSN = [B10].Text & ";"
        'strJOSN = Replace(strJOSN, """", "")
        Debug.Print strJOSN
        objSC.Language = "javascript"
        objSC.AddCode (strJOSN)
        Set objJS = objSC.CodeObject.dataSK        
       Stop
    End Sub


只能最多处理16个名值对，在下才学疏浅，是在搞不明白，再次求助。

Kaohsing

为什吗不能发截图？