excel - 将集合集合转换为范围

Question

这是我的 Excel VBA 函数

Function make_range()
    Dim the_json As String
    the_json = "[[1,2,3][4,5,6]]"
    Set the_collection = JsonConverter.ParseJson(the_json)
    make_range = 'question: how to convert the collection to range?
End Function

该函数使用 JsonConverter.ParseJson 生成集合的集合
我的问题是:如何将其转换为 vba 范围？

Answer 1

您发布的 JSON 无效(两个内部数组之间缺少逗号)。您不能从头开始创建范围，只能引用工作表上的现有范围。
也许您希望您的函数返回一个二维数组？

Sub TestJsonToArray()
    Dim arr
    arr = JsonToArray("[[1,2,3],[4,5,6],[7,8,9]]")
    ActiveSheet.Range("B4").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub


Function JsonToArray(json As String)
    Dim col As Collection, arr, r As Long, c As Long, nc As Long
    Set col = JsonConverter.ParseJson(json)
    nc = col(1).Count 'assumes all inner collections are the same size...
    ReDim arr(1 To col.Count, 1 To nc)
    For r = 1 To col.Count
        For c = 1 To nc
            arr(r, c) = col(r)(c)
        Next c
    Next r
    JsonToArray = arr
End Function