Json 使用VBA将数组输出到excel

我正在尝试将来自JsonConverter的数组输出到excel，但出现错误1004：

Sub test()
    Dim parsed As Object
    Dim myArray As Variant
    Set parsed = JsonConverter.ParseJson("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")
    Set myArray = parsed("b")
    Set TxtRng = ThisWorkbook.Sheets("Project").Range("A44:D44")
    TxtRng.Value = Application.Transpose(myArray)
End Sub

错误位于

TxtRng.Value=Application.Transpose（myArray）

---

有人能帮忙解决这个问题吗？谢谢。

首先：您不应该假设它是众所周知的

JsonConverter

，因为它不是内置对象。我猜你在说什么

在您的示例中，

parsed

将返回一个

Dictionary

，

parsed（“b”）

将返回一个

集合
Application.Transpose
需要一个（二维）数组作为参数，但不能用于集合

解决这一问题的最简单方法可能是在集合上循环。或者使用类似的辅助函数首先创建一个中间数组