VBA - 我有一个 JSON API，我从 for 循环中提取数据，

【问题标题】：VBA - I have an JSON API where i am pulling data from in a for loop,VBA - 我有一个 JSON API，我从 for 循环中提取数据，
【发布时间】：2022-06-13 23:45:25
【问题描述】：

假设我有 4 个数据值，但其中一个有时只存在，现在如果我想运行我的 for 循环，它会崩溃，因为路径不存在，但我希望它在插入的单元格中传递一个“”崩溃了，代码是这样的

myJSON.data[i].bank[0].money

Sub DATA()
    Set RDict = CreateObject("Scripting.Dictionary")
    Set dlist = CreateObject("Scripting.Dictionary")
    JSON_String = Form.fromURL("exampleurl")
    With CreateObject("htmlfile")
        With .parentWindow
            .execScript "var myJSON = " & JSON_String & ", csvstring = '';for (i = 0; i < myJSON.data.length; i++) {csvstring += myJSON.data[i].name + ',' + myJSON.data[i].bank[0].money + ',' + myJSON.data[i].location + ',' + myJSON.data[i].planneddate + ';';};"
            RData = Split(.csvstring, ";")
        End With
    End With
    For i = 0 To UBound(RData) - 1
        DaData = Split(RData(i), ",")
        If DaData(0) <> "null" Then RDict(DaData(0)) = DaData
    Next i
    Dim RSheet() As Variant
    If RDict.Count > 0 Then
        ReDim RSheet(2 To RDict.Count + 2, 1 To 7)
        i = 0
        For Each D In RDict
            datalist(RDict(Da)(2)) = True
            For j = 0 To 6
                RSheet(i + 2, j + 1) = RDict(Da)(j)
            Next j
            i = i + 1
        Next Da
        RSData.Cells(2, 1).Resize(i, 6) = RSheet
    End If

End Sub

【问题讨论】：

• 是这个问题吗？ If DaData(0) <> "null"

标签： json excel vba api for-loop