Option Explicit

Частный ScriptEngine Как ScriptControl

Public Sub InitScriptEngine ()
    Установить ScriptEngine = Новый ScriptControl
    ScriptEngine.Language = "JScript"
    ScriptEngine.AddCode "функционировать GetProperty (jsonObj, PropertyName) {вернуть jsonObj [PropertyName]; } "
    ScriptEngine.AddCode "Функция getKeys (jsonObj) {VAR ключи = новый Array (); для (вар я в jsonObj) {keys.push (I); } Возвращает ключи; } "
End Sub

Public Function DecodeJsonString (ByVal JsonString As String)
    Набор DecodeJsonString = ScriptEngine.Eval ("(" + JsonString + ")")
End Function

Public Function GetProperty (ByVal JSONObject As Object, ByVal ИмениСвойства As String) As Variant
    GetProperty = ScriptEngine.Run ("GetProperty", JSONObject, PropertyName)
End Function

Public Function GetObjectProperty (ByVal JSONObject As Object, ByVal ИмениСвойства As String) As Object
    Набор GetObjectProperty = ScriptEngine.Run ("GetProperty", JSONObject, PropertyName)
End Function

Public Function GetKeys (ByVal JSONObject As Object) As String ()
    Дим Длина As Integer
    Dim KeysArray () As String
    Тусклое KeysObject As Object
    Dim Index As Integer
    Dim Key As Variant

    Набор KeysObject = ScriptEngine.Run ("getKeys", JSONObject)
    Длина = GetProperty (KeysObject, "длина")
    ReDim KeysArray (длина - 1)
    Index = 0
    Для каждого ключа в KeysObject
        KeysArray (Index) = Key
        Индекс = Индекс + 1
    следующий
    GetKeys = KeysArray
End Function

    JsonString = "{""key1"": ""знач1"", ""key2"": { ""ключ3"": ""val3"" }}"
    Установите JSONObject = DecodeJsonString (CSTR (JsonString))
    Ключи = GetKeys (JSONObject)