VBA代码断点调试正常 直接运行报Object Required运行时错误

直接运行触发Object Required错误、断点调试/报错后点继续又能正常运行，属于典型的时序问题：
代码调用的htmlfileCOM对象解析HTML内容是异步执行的，在.Write result、.Close执行完立刻调用getElementsByName取元素时，DOM树还没完成渲染，返回的元素集合长度为0，此时访问token(0)会因为取到空值触发对象缺失错误。
逐语句断点调试时，单步操作的间隔给了DOM足够的解析时间；报错后点击调试再继续的停顿，也刚好让DOM完成加载，所以后续执行能正常拿到值。

优先选择加就绪状态等待的方式，改动最小，不需要调整原有解析逻辑：

• 写完HTML内容后增加循环等待逻辑，直到DOM加载完成、目标元素能正常取到再执行后续逻辑，避免空集合访问
• 增加必要的空值判断，避免极端网络/页面结构变化导致的无捕获报错

修正后的参考代码：

Function AuthToken()
    Dim XMLHTTP As Object
    Dim result As String
    Dim token As Object
    Dim objHTML As Object
    Dim waitTimeout As Single

    Set objHTML = CreateObject("htmlfile")
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")

    With XMLHTTP
        .Open "GET", "some website", False
        .setRequestHeader "Cookie", cf
        .SEND
        result = .responseText
    End With

    With objHTML
        .Open
        .Write result
        .Close
        ' 增加DOM加载等待，最长等待2秒避免卡死
        waitTimeout = Timer + 2
        Do
            Set token = .getElementsByName("csrf-token")
            If Timer > waitTimeout Then Exit Do
            DoEvents ' 让出执行权给DOM解析进程
        Loop While token Is Nothing Or token.Length = 0
    End With

    ' 空值兜底
    If token Is Nothing Or token.Length = 0 Then
        AuthToken = ""
        GoTo Cleanup
    End If

    AuthToken = token(0).Content
    AuthToken = Replace(Replace(Replace(AuthToken, "+", "%2B"), "/", "%2F"), "=", "%3D")

Cleanup:
    Set XMLHTTP = Nothing
    Set objHTML = Nothing
    Set token = Nothing
End Function

如果加等待后还是偶发问题，可以直接用正则匹配csrf-token对应的content值，完全绕开htmlfile的DOM解析时序问题，稳定性更高。

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