当VBA保持更改为大写时，如何以小写形式访问JSON变量？

Question

如何访问从JSON解码的key变量？我在Excel VBA: Parsed JSON Object Loop中使用了这个例子。即使我将其更改为小写，VBA编辑器也会不断将大小写更改为大写。我还尝试对小写key进行评论并取消注释，但它仍会更改它。我并不认为这个案件很重要，但是它很抱怨，我不确定为什么，因为这个领域显然存在。

Answer 1

我必须在模块的顶部添加Private sc As ScriptControl，否则它将无效。即使函数中的Dim sc as ScriptControl也行不通。我还创建了一个Javascript get函数来检索值。

Private sc As ScriptControl
...
Function jsonDecode(jsonString As Variant)
    Set sc = New ScriptControl
    sc.Language = "JScript"
    sc.AddCode "Object.prototype.get=function( i ) { return this[i]; };"
    Set jsonDecode = sc.Eval("(" + jsonString + ")")
End Function

...

Set arr = jsonDecode(objHTTP.ResponseText)
Debug.Print arr.get("key")