VBA错误重试逻辑偶发失效 字符串操作行未捕获报错

你触发偶发报错不跳转的问题，本质是踩了VBA错误处理两个极少被文档明确提及的规则坑：

• On Error GoTo 指令在错误处理上下文中默认失效。你把重试标签ASecondChance写在了On Error GoTo语句前面，第一次出错跳转到该标签后，VBA会判定当前正处于错误处理分支，在没有执行Resume语句正式退出错误上下文之前，后续新抛出的错误不会触发任何捕获跳转，直接弹出原生运行时错误提示。
• 字符串解析逻辑存在未处理的非法传参场景：当InStr函数找不到目标关键词时会返回0，你直接基于返回值做加减运算给Mid/Left传参，会出现参数为0、负数的情况——比如查找"Date"失败时InStr返回0，减3得到-3，Left接收到负数长度参数会直接抛出参数非法错误。如果这个错误刚好发生在上述错误上下文未重置的状态下，就会直接弹错，完全无视你写的重试逻辑。

第一，调整错误处理结构，用Resume语句完成错误上下文重置，不要直接用GoTo跳重试标签；第二，给所有字符串匹配逻辑加前置校验，从源头避免可预见的传参错误。
修正后的核心代码如下：

Sub Pull_Data_NetSuite()

Dim Ref As String
Dim Invoice As String
Dim Vendor As String
Dim Memo As String
Dim Amount As String
Dim RW As Integer
Dim Chance_Counter As Byte
Dim matchPos As Long

Chance_Counter = 0
On Error GoTo ErrorHandler

RetryEntry:
Err.Clear
Chance_Counter = Chance_Counter + 1

If Chance_Counter > 5 Then
    MsgBox "重试5次仍未获取有效数据，请检查剪贴板内容", vbOKOnly, "拉取失败"
    Exit Sub
End If

' 其他前置逻辑...

Ref = FnGetTextFromClipBoard

' 字符串解析段增加匹配结果校验
matchPos = InStr(1, Ref, "Reference No.", vbTextCompare)
If matchPos > 0 Then
    Invoice = Mid(Ref, matchPos + 14, 100)
    matchPos = InStr(1, Invoice, "Date", vbTextCompare)
    If matchPos > 2 Then Invoice = Left(Invoice, matchPos - 3)
End If

matchPos = InStr(1, Ref, "Vendor Bill", vbTextCompare)
If matchPos > 0 Then
    Vendor = Mid(Ref, matchPos + 12, 200)
    matchPos = InStr(1, Vendor, "Vendor ", vbTextCompare)
    If matchPos > 0 Then
        Vendor = Mid(Vendor, matchPos + 7, 50)
        matchPos = InStr(1, Vendor, "Amount", vbTextCompare)
        If matchPos > 2 Then Vendor = Left(Vendor, matchPos - 3)
    End If
End If

matchPos = InStr(1, Ref, "Memo ", vbTextCompare)
If matchPos > 0 Then
    Memo = Mid(Ref, matchPos + 5, 100)
    matchPos = InStr(1, Memo, "Subsidiary", vbTextCompare)
    If matchPos > 2 Then Memo = Left(Memo, matchPos - 3)
End If

matchPos = InStr(1, Ref, "Amount ", vbTextCompare)
If matchPos > 0 Then
    Amount = Mid(Ref, matchPos + 7, 100)
    matchPos = InStr(1, Amount, "Account", vbTextCompare)
    If matchPos > 2 Then Amount = Left(Amount, matchPos - 3)
End If

' 后续业务逻辑...

Exit Sub ' 正常执行完成直接退出，避免误入错误处理段

ErrorHandler:
' 必须用Resume跳转回重试入口，才能重置错误处理上下文
Resume RetryEntry

End Sub

• 错误重试标签不能放在On Error GoTo语句之前，否则第一次跳转后就会进入未重置的错误上下文，后续捕获全部失效。
• 错误处理分支中如果要重试业务逻辑，只能通过Resume跳转，Resume是VBA中唯一能重置错误状态、退出错误处理上下文的语句，直接用GoTo跳转不会重置状态。
• 涉及InStr返回值参与算术运算后作为字符串函数参数的场景，必须先校验返回值合法性，从源头减少不必要的错误触发，比完全依赖错误捕获重试稳定性高很多。

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