Excel VBA处理Jira JSON时触发Runtime error 424（对象必需）问题求助

嘿，我之前在VBA里处理Jira返回的JSON时，刚好遇到过一模一样的Runtime Error 424问题！咱们来一步步拆解原因，给出可行的修复方案：

核心问题分析 #

你遇到的错误大概率不是因为Issues(z)无效，而是链式访问JSON对象时的层级空值/缺失键问题：

• Jira的JSON中，未分配的问题可能根本没有assignee字段，或者该字段的值是JSON的null，而VBA解析后不会对应成VBA原生的Nothing——不同的JSON解析库（比如VBA-JSON、ScriptControl）会把JSON null转成Null、Empty或者自定义的JsonNull对象。
• 直接链式访问Issues(z)("fields")("assignee")时，只要其中某一层（比如fields本身意外为空，或者assignee字段不存在），就会触发“对象必需”错误。

修复方案&代码示例 #

我推荐你分步骤拆解层级访问，加上错误捕获和空值判断，这样能彻底避免这个问题：

Dim issueFields As Object
Dim assigneeObj As Object

For z = 1 To Issues.count
    ' 第一步：先获取fields对象，避免直接链式访问出错
    Set issueFields = Issues(z)("fields")
    
    ' 先确认fields对象有效
    If Not (issueFields Is Nothing) Then
        ' 用错误捕获处理assignee字段可能不存在的情况
        On Error Resume Next
        Set assigneeObj = issueFields("assignee")
        On Error GoTo 0
        
        ' 多维度判断assignee是否有效（适配不同解析库的空值情况）
        If Not (assigneeObj Is Nothing) And Not IsNull(assigneeObj) Then
            ' 这里替换成你实际要取的assignee字段，比如displayName
            devName = assigneeObj("displayName")
        Else
            ' 处理未分配的情况
            devName = "Unassigned"
        End If
    End If
Next z

额外优化建议（针对不同JSON解析库） #

如果你用的是VBA-JSON库（最常用的VBA JSON解析工具），还可以更精准地判断JSON空值：

' 替换之前的assignee判断逻辑
If Not TypeOf issueFields("assignee") Is JsonNull Then
    devName = issueFields("assignee")("displayName")
End If

关键注意点 #

• 永远不要直接链式访问多层JSON对象，每一层都单独取出并判断有效性
• 区分VBA原生的Nothing和JSON解析后的空值（Null/JsonNull）
• 用On Error Resume Next临时捕获字段缺失的错误，之后一定要用On Error GoTo 0恢复错误处理

内容的提问来源于stack exchange，提问作者AustinJim