Excel VBA Do While循环内On Error GoTo错误捕获不生效如何解决

1. 错误处理的状态逻辑错误：你在循环内每轮执行结束都调用了On Error GoTo 0，会直接清空自定义错误处理规则；且VBA的错误处理触发一次后，如果没有用Err.Clear或者Resume重置错误状态，后续的错误处理会失效，直接弹出调试窗口。
2. CopyPicture方法的1004错误确实是Office的已知偶发问题，根源是剪贴板被系统占用、界面渲染队列未处理完成，和你的业务逻辑无关。

• 调整错误处理的位置，将On Error GoTo ErrHandler移到过程最开头，删除循环内的On Error GoTo 0语句，正常流程结束前加Exit Sub避免进入错误处理分支。
• 所有跨应用、剪贴板操作前后添加DoEvents，让系统处理完待执行的队列任务，比单纯硬等待更能降低偶发错误概率。
• 复制前显式指定Range所属工作表，避免隐式跨表引用导致的范围错误。

修改后的代码示例：

' 错误处理放在过程最开头，不要放在循环内
On Error GoTo ErrHandler
errOccurred = 0 ' 每次进入过程先重置错误计数

Do While blockStart.Row < endCell.Row
    ' 显式指定Range所属工作表，避免隐式跨表错误
    Set blockEnd = blockStart.End(xlDown).Offset(0, 2)
    Set CopyBlock = blockStart.Worksheet.Range(blockStart, blockEnd)

    bmHolder = bmHolder + 1 
    
    ' 复制前先清空剪贴板、处理待执行队列
    Application.CutCopyMode = False
    DoEvents
    
    CopyBlock.CopyPicture xlScreen, xlPicture
    DoEvents ' 复制后等待队列处理完成
    
    w.Bookmarks("Block" & CStr(bmHolder)).Select
    w.Selection.PasteSpecial Placement:=wdInLine ' 直接用文档对象的Selection更稳定
    DoEvents
    
    Set blockStart = blockEnd.Offset(2, -2)
Loop

' 正常流程结束直接退出，不要掉进错误处理代码
Exit Sub

ErrHandler:
Select Case Err.Number
    Case 4198, 1004 
        errOccurred = errOccurred + 1
        If errOccurred > 5 Then
            Stop ' 超过5次重试失败再中断调试
        End If
        ' 清空错误状态、剪贴板残留
        Err.Clear
        Application.CutCopyMode = False
        ' 先处理系统队列再等待
        DoEvents
        Application.Wait (Now + TimeValue("0:00:01"))
        ' 回到出错的行重新执行
        Resume
    Case Else
        ' 其他错误正常提示
        MsgBox "未知错误：" & Err.Description, vbCritical
        Stop
End Select

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