时间戳

首页 > 解决方案 > “Excel VBA 运行时错误'13'：类型不匹配”使用 JsonConverter

json - “Excel VBA 运行时错误'13'：类型不匹配”使用 JsonConverter

问题描述

使用 JsonConverter 在“Excel VBA 运行时错误'13'：类型不匹配”上出现错误

Private Sub CommandButton1_Click()
Dim products As Object
Dim strPath As String
Dim data As String

strPath = "{'id':'p01','name':'Name1','Price':5.00}"
           
Set products = JsonConverter.ParseJson(strPath)

    i = 1

For Each Product In products
    'Cells(i, 1) = Product("id")
    Sheet1.Cells(i, 1) = Product("id")
    
    i = i + 1
   
Next
End Sub

标签： jsonvba

解决方案

products是一个脚本字典，所以你会在它的键上循环：

Dim products As Object, k
Dim strPath As String
Dim data As String

strPath = "{'id':'p01','name':'Name1','Price':5.00}"
           
Set products = JsonConverter.ParseJson(strPath) '<< a Dictionary object

For Each k In products
    Debug.Print k, products(k)
Next

推荐阅读