Question

从API获取结果并将其分类为不同的文件，问题是我从API返回了20列，我想要2个不同的表，每个表具有10个结果。

j = 3
For Each result In JSON.Item("results")

Cells(20, j) = result.Item("param_1")
Cells(21, j) = result.Item("param_2")
Cells(22, j) = result.Item("param_3")
Cells(23, j) = result.Item("param_4")
i = 0

For Each t In result.Item("param_5")
    If i > 0 Then
        Cells(24, j) = Cells(24, j) & ", " & t
    Else
        Cells(24, j) = t
        i = i + 1
    End If
Next
Cells(25, j) = result.Item("param_6")
Cells(26, j) = result.Item("param_7")
j = j + 1
Next

这对于每20列来说效果很好，问题是当我在第一部分的下面添加这部分代码时，显然它在第一张表中效果不佳，但是我在下一张表中只有一个条目。

If j >= 13 Then
j = 3

Cells(33, j) = result.Item("param_1")
Cells(34, j) = result.Item("param_2")
Cells(35, j) = result.Item("param_3")
Cells(36, j) = result.Item("param_4")
i = 0
For Each t In result.Item("param_5")
    If i > 0 Then
        Cells(37, j) = Cells(37, j) & ", " & t
    Else
        Cells(37, j) = t
        i = i + 1
    End If
Next
Cells(38, j) = result.Item("param_6")
Cells(39, j) = result.Item("param_7")

中断循环并将结果输入Excel VBA中的不同表中

0 个答案: