ein Variant/Objekt/JScriptTypeInfo Eigenschaft in VBA Zugriff

Question

I der folgende Code VBA-Code (für eine Excel-Modul)

Function getDesc(ByVal pCode As String) As String 
    Dim oRequest As Object 
    Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
    oRequest.Open "GET", "https://my.url.com/?filter=CODE=" & pCode, False 
    oRequest.SetRequestHeader "Accept", "application/json" 
    oRequest.Send "" 

    Set props = jsonDecode(oRequest.ResponseText) 

    getDesc = props.row_data 
End Function 

Function jsonDecode(jsonString As Variant) 
    Set sc = CreateObject("ScriptControl"): sc.Language = "JScript" 
    Set jsonDecode = sc.Eval("(" + jsonString + ")") 
End Function 

Die Ergebnisse wurden als props.row_data

gezeigt ist, kann ich Wie finde ich die Eigenschaft LONG_DESCRIPTION zu getDesc =?

Was ist die richtige Syntax, die ich brauche? Alternativ werde ich fast jede Lösung akzeptieren, die es mir ermöglicht, die Zeichenfolge LONG_DESCRIPTION zurückzugeben.

Answer 1

Versuchen Sie den folgenden Code. Importieren Sie das Modul JSON.bas in das VBA-Projekt für die JSON-Verarbeitung.

Option Explicit 

Function getDesc(ByVal pCode As String) As String 

    Dim oRequest As Object 
    Dim sJSONString As String 
    Dim vJSON As Variant 
    Dim sState As String 

    Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
    oRequest.Open "GET", "https://my.url.com/?filter=CODE=" & pCode, False 
    oRequest.SetRequestHeader "Accept", "application/json" 
    oRequest.Send 
    sJSONString = oRequest.ResponseText 
    JSON.Parse sJSONString, vJSON, sState 
    getDesc = vJSON("row_data")(0)("LONG_DESCRIPTION") 

End Function 

mit JSON-String Getestet {'row_data':[{'LONG_DESCRIPTION':'desc_string'}]}.