Access VBA：出错时退出多步宏但继续调用它的循环代码

这个问题我之前处理Access宏循环的时候也踩过类似的坑，Exit Function和End确实都达不到需求，给你分享两个可行的解决办法：

方案一：给宏添加错误处理逻辑 #

Access宏本身支持错误跳转和终止操作，你可以直接在doMacro里配置错误处理，让第一个函数出错时直接终止当前宏实例：

1. 打开你的doMacro宏，在第一个函数调用步骤的后面，添加一个On Error操作：
   • 操作参数选择「GoTo」，然后指定一个自定义标签（比如ErrorHandler）
2. 在宏的末尾，添加SetLabel操作，把标签名称设为ErrorHandler
3. 在ErrorHandler标签后面，添加StopMacro操作

这样当第一个函数执行出错时，宏会自动跳转到ErrorHandler标签执行StopMacro，直接终止当前宏的运行，然后外层的For Each循环会继续处理下一个APP元素。

方案二：将宏逻辑迁移到VBA子过程（更灵活） #

如果后续需要更复杂的错误处理，建议把宏里的函数调用逻辑改成VBA子过程，这样错误控制会更精准：

首先创建一个替代宏的VBA子过程：

Sub DoMacroLogic()
    On Error GoTo ErrorExitPoint
    
    ' 依次调用你的四个函数
    Call YourFirstFunctionName()
    Call YourSecondFunctionName()
    Call YourThirdFunctionName()
    Call YourFourthFunctionName()
    
    ' 正常执行完成后退出子过程
    Exit Sub

ErrorExitPoint:
    ' 可选：在这里添加错误日志记录（比如写入表或文件）
    ' Debug.Print "错误信息：" & Err.Description & "，错误代码：" & Err.Number
    
    ' 出错时直接退出子过程，回到外层循环
    Exit Sub
End Sub

然后修改你的循环代码，直接调用这个子过程：

For Each APP In sArr
    Call DoMacroLogic()
Next

当第一个函数出错时，会触发错误捕获跳转到ErrorExitPoint，直接退出子过程，外层循环不受影响，继续处理下一个APP。

为什么之前的方法不行？ #

• Exit Function只能退出当前执行的函数，但宏的执行流程还会继续往下走剩余的步骤，不符合你要终止宏的需求
• End语句会直接终止整个VBA运行环境，所有代码（包括外层循环）都会停止，显然也不是你想要的

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