JsonConverter Excel多重结果

Question

一个小问题:我使用的是来自Github的JsonConverter。(https://github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas)

代码正在处理大多数"GET“请求。只有当相同的“列”在“ResponseText”中多次重复时，它才不是。(如示例中的"imei“)

因此，我需要一种方法来处理一个长的“Responsetext”来填充一个访问数据库中的多个行。

Dim Json As Object
Set Json = JsonConverter.ParseJson(xmlhttp.ResponseText)
MsgBox (Json("imei")) 'temp

错误5:无效的过程或调用参数。

有什么想法吗？

非常感谢，

Answer 1

像这样解决：

使用：https://github.com/VBA-tools/VBA-JSON并将模块命名为“mdl_JsonConverter”

 Set Json = mdl_JsonConverter.ParseJson(xmlhttp.ResponseText)

         For Each item In Json
             input_1 = item("input_1")
             input_2 = item("input_2")
             'THEN DO SOMETHING WITH VALUES F.E. ADDING THEM IN A TABLE
         Next

Answer 2

如果没有完整的JSON响应文本，我只能提供答案的一部分，因为我无法重新创建它：

JSON中具有多个值的响应返回一个类型为集合的对象。因此，您必须使用一个循环来迭代所有响应。如下所示：

Dim Json As Object
Set Json = JsonConverter.ParseJson(xmlhttp.ResponseText)
For Each singleJsonItem In Json 
             'What object type is singleJsonItem? To find out, maybe use:
             'MsgBox singleJsonItem("imei")
Next singleJsonItem 

您必须找到集合条目的对象类型，才能提取JSON条目。

Answer 3

如果您的responseText包含一个searchRecords列表，那么之前通过searchRecords为每个

Set Json = JsonConverter.ParseJson(strResponse)
    
    For Each singleJsonItem In Json("searchRecords")
             'What object type is singleJsonItem? To find out, maybe use:
             Msgbox singleJsonItem("Name")
    Next singleJsonItem