需要帮助跳过使用VBA的空json数组

Question

我正在循环访问不同的进程 ID 以访问 json 中的数据并将其复制到我的电子表格中。但是，某些进程 ID 不包含任何数据，每次我的代码到达这些空数组时，我都会收到错误。我已经尝试了if语句的不同变体来跳过这个，但仍然得到一个错误。空数组位于“expectRateSetList”

我尝试了不同的if语句来跳过这一步，但仍然得到一个错误。我已经尝试了“如果J为空，如果J什么都不是，如果J为空”等等，但我仍然不能让它工作。我也试过“出错时转到”，但这不起作用。

    `````````````
    For l = 2 To last_row(tb, 2)

    Set J = setJSON(url)
    Set J = CallByName(J, "expectedRateSetList", VbGet)  <---This is the array that is empty        
    If J Is Null Then GoTo next_log
    On Error GoTo next_log
    Set J = CallByName(J, "0", VbGet)   
    Set J = CallByName(J, "expectedRateList", VbGet)
    next_log:
    Next l

'json array looks like this:
{"processId":X,"expectedRateSetList":[],"warehouseId":"warehouseX"}

Answer 1

J绝对不是数组J是一个对象，很可能是Dictionary。您可以通过查询字典的＜code＞Count＜/code＞属性来检查字典是否包含任何项，这消除了对行标签和＜code＞GoTo＜/code＞跳转的需要，但代价是增加了嵌套（但无论如何，循环体可能应该重构为自己的过程）：

    If J.Count > 0 Then
        ' there are items
    End If
Next

请注意，＜code＞CallByName（J，“MemberName”，vbGet）＜/code＞可以被后期绑定的＜code＞J替换。MemberName＜/code＞调用-但再次假设解析不是手工制作的，并且您得到的是嵌套字典，那么将是＜code＞J（“MemberName”）＜/code>；您实际调用的属性是（默认）＜code＞Items＜/code＞属性：＜code＞J。项目（“MemberName”）是等效的。