使用Excel Json Parser VBA在Excel中键入不匹配（错误13）

Question

在Excel MAcro中使用Json PArser时出现类型不匹配（错误13）

以下是代码：

Sub getJsonValue()
    Dim FSO As New FileSystemObject
    Dim JsonTS As TextStream
    Set JsonTS = FSO.OpenTextFile("C:\Users\Card_Link.json", ForReading)
    JsonText = JsonTS.ReadAll
    JsonTS.Close
    Set Json = ParseJson(JsonText)
    Set JsonRows = Json("rows")
    i = 2
    For Each Item In Json
         Sheet5.Cells(i, 1).Value = Item("name")
        'Sheet5.Cells(i, 2).Value = Item("results")("name")
        'Sheet5.Cells(i, 3).Value = Item("results")("responsecode")
        i = i + 1
    Next
    MsgBox ("complete")
End Sub

在此声明中获取错误 Sheet5.Cells(i, 1).Value = Item("name")

有人可以帮我解决这个问题。

由于 RJ

Answer 1

没有ParseJson的任何经验，请尝试以下方法之一：

Sheet5.Cells(i, 1).value = item

Sheet5.Cells(i, 1).value = item(0)

Sheet5.Cells(i, 1).value = item.Name

如果仍然没有这些可行，请尝试这样：

For Each item In Json
    Stop
     Sheet5.Cells(i, 1).value = item("name")
    'Sheet5.Cells(i, 2).Value = Item("results")("name")
    'Sheet5.Cells(i, 3).Value = Item("results")("responsecode")
    i = i + 1
Next

在停靠点上，选择item，按 Shift + F9 ，看看您在item中有什么。