如何在不使用ErrHandler的情况下让VBA识别当前过程名称？

• 核心思路：利用VBA调试器的调用栈（Call Stack）动态获取当前被调用的过程名，无需手动传参。

实现步骤 #

1. 开启VBA项目信任访问：
   打开Excel后，依次点击「文件」>「选项」>「信任中心」>「信任中心设置」>「宏设置」，勾选「信任对VBA项目对象模型的访问」，确定后重启Excel生效。

2. 编写获取过程名的通用函数：

   Function GetCurrentProcName() As String
       Dim callStack As VBIDE.CallStack
       Set callStack = Application.VBE.Debugger.CallStack
       
       ' 调用栈里，Item(1)是日志函数本身，Item(2)才是调用它的目标过程
       If callStack.Count >= 2 Then
           GetCurrentProcName = callStack.Item(2).ProcName
       Else
           GetCurrentProcName = "未知过程"
       End If
   End Function
   

   注意：需要先引用「Microsoft Visual Basic for Applications Extensibility 5.3」库（VBE编辑器中点击「工具」>「引用」，找到该库并勾选）。

3. 改造日志程序：
   把原来需要手动传入ProcName参数的地方，直接调用GetCurrentProcName()即可，示例：

   Sub LogExecution()
       Dim currentProc As String
       currentProc = GetCurrentProcName()
       ' 这里写你的日志逻辑，比如写入单元格或文本文件
       Debug.Print "执行过程：" & currentProc & "，时间：" & Now()
   End Sub
   

   之后在任意业务过程里调用LogExecution，就能自动记录该过程的名称。

关于你之前的枚举模块程序的说明 #

那个程序是静态遍历所有模块代码行收集过程名，属于静态分析，只能获取已存在的过程列表，无法感知当前正在运行的过程，和你现在的需求不匹配，无需基于它修改。

备选方案（无需VBA项目访问） #

如果不想开启VBA项目信任访问，可以给每个过程开头加行号，用Erl函数获取行号后，维护一个行号-过程名的映射表，但这种方法需要手动维护映射，效率较低，不如调用栈方案实用。

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