型が一致しません（エラー13）

Question

取得種類の不一致（エラー13）マクロExcelでJSONパーサーを使用しながら、以下

はコードです：

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")

誰か助けてもらえますか？ ParseJsonの経験がなくても、

おかげ RJ

Answer 1

、これらのいずれかを試してみてください。

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を選択し、Enterキーを押して + F9をシフトし、あなたはitemでなければならないのかを見る。