Question

早安全，

我使用VBA-JSON Parser中的高级示例将JSON文件加载到excel中。它工作正常，但我想改变一些代码来迭代字符串数组，而不是拼写每个项目。

以下是我想要改变的部分：

Dim Value As Dictionary
Dim i As Long

i = 0
For Each Value In Parsed("values")
  Values(i, 0) = Value("a")
  Values(i, 1) = Value("b")
  Values(i, 2) = Value("c")
  i = i + 1
Next Value

Sheets("example").Range(Cells(1, 1), Cells(Parsed("values").Count, 3)) = Values

不是拼写出每个值（＆＃34; a＆＃34;，＆＃34; b＆＃34;，＆＃34; c＆＃34;），我希望只是通过每个值我在我的字符串数组中的项目，它迭代解析列表中的每个值。

这是我拥有的字符串数组：

Dim ParentArray As Variant

ParentArray = Array("a", "b", "c", "d", "e")

我想它是这样的，但我不确定如何让它发挥作用......

i = 0
For Each Value In Parsed(parent)
    n = 1
        For Each ArrItem In ParentArray
            ArrItem = (ParentArray(1, n))
            Values(i, n - 1) = Value(ArrItem)
            n = n + 1
        Next ArrItem
    i = i + 1
Next Value

Sheets(parent).Range(Cells(2, 1), Cells(Parsed(parent).Count, ColCount)) = Values

非常感谢任何帮助。

谢谢，

菲利普

Answer 1

我认为你说得对，它只是语法问题：

For Each Value In Parsed(parent)
    n = 1
        For j = LBound(ParentArray) to UBound(ParentArray)
            Values(i, n - 1) = Value(ParentArray(j))
            n = n + 1
        Next j
    i = i + 1
Next Value

为每个声明嵌套

1 个答案: