Excel 365 VBA错误源定位与速度优化兼容问题咨询

问题1：自动填充错误的Source参数（模块、过程名、行号） #

VBA没有直接获取当前行号的内置函数，但可以结合Erl函数和行号标记实现自动追踪，再配合代码模块信息生成完整的Source内容：

• 先在VBA编辑器开启行号显示：点击「工具→选项→编辑器」，勾选「行号」，然后给需要追踪的关键代码行添加数字行号（无需全加，仅错误可能发生的行即可）
• 编写辅助函数自动生成Source：

Function GetErrorSource() As String
    Dim currentLine As Long
    Dim currentProc As String
    Dim targetModule As CodeModule
    
    Set targetModule = Application.VBE.ActiveCodePane.CodeModule
    currentLine = Application.VBE.ActiveCodePane.TopLine
    currentProc = targetModule.ProcOfLine(currentLine, vbext_pk_Proc)
    
    GetErrorSource = "模块：" & targetModule.Name & " | 过程：" & currentProc & " | 行号：" & Erl
End Function

• 抛出错误时调用该函数：

Err.Raise 10, GetErrorSource(), "My error message"

注意：如果代码在后台运行（无交互窗口），Application.VBE可能不可用，此时可以手动传递过程名，结合Erl依然能减少硬编码量。

问题2：保留调用栈同时确保优化关闭 #

核心是不在外层foo中吞掉错误，而是用错误跳转逻辑先恢复优化设置，再重新抛出原始错误，完整保留调用栈和本地变量：
修改foo的错误处理逻辑：

Sub foo()
    ' 保存用户原始设置，避免覆盖自定义配置
    Dim originalScreenUpdating As Boolean
    Dim originalCalculation As XlCalculation
    Dim originalEnableEvents As Boolean
    
    originalScreenUpdating = Application.ScreenUpdating
    originalCalculation = Application.Calculation
    originalEnableEvents = Application.EnableEvents
    
    ' 启用速度优化
    SetSpeedOptimizations True
    
    On Error GoTo Cleanup ' 仅用于触发清理逻辑，不处理错误
    
    ' 执行耗时操作
    bar()
    
Cleanup:
    ' 恢复所有原始设置
    SetSpeedOptimizations False
    Application.ScreenUpdating = originalScreenUpdating
    Application.Calculation = originalCalculation
    Application.EnableEvents = originalEnableEvents
    
    ' 重新抛出原始错误，保留完整错误信息
    If Err.Number <> 0 Then
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Sub

这样操作的效果：

• 无论bar()或其调用链中哪里出错，都会先执行Cleanup块恢复优化设置
• 恢复完成后重新抛出原始错误，此时在VBA编辑器的「调用堆栈」「本地窗口」中可以查看完整调用链和变量信息
• 无需给bar()调用树的每个过程都加错误处理，仅在最外层的foo中统一处理即可

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