传递自定义类引用至SetTimer回调时的异常疑难问题

我来帮你拆解这个问题——核心原因是你的自定义fakeDictionary类和内置Scripting.Dictionary的生命周期管理逻辑完全不同，导致编辑器停止时对象被提前销毁，而WinAPI定时器还持有无效指针，最终触发崩溃。

问题本质分析 #

• 内置Scripting.Dictionary是系统COM组件，由COM运行时负责生命周期管理。当你用mscorlib.AppDomain缓存它时，COM的引用计数机制能维持对象存活，哪怕VBA编辑器停止重置状态，也不会直接销毁这个COM对象。
• 你的fakeDictionary是VBA自定义类，它的生命周期由VBA运行时控制。当你停止编辑器时，VBA会自动触发所有未被强引用的类实例的Class_Terminate事件——哪怕你把实例存在AppDomain里，VBA运行时依然可能判定这个实例可以被销毁，因为AppDomain的缓存对VBA自定义类的引用强度不足以阻止销毁逻辑。

你遇到的错误码-2147418105对应RPC_E_SERVER_DIED，意思是回调试图访问的对象（fakeDictionary实例）已经不存在了，这自然会导致Excel崩溃。

修复方案 #

方案1：给自定义类添加强引用，阻止提前销毁 #

你需要让VBA运行时明确知道fakeDictionary实例还在被使用，不能随便销毁：

1. 在标准模块里声明一个全局变量作为强引用：

Global g_PersistentFakeDict As fakeDictionary

2. 修改GetPersistentDictionary函数，同时把实例赋值给全局变量：

Function GetPersistentDictionary() As fakeDictionary
    Dim appDomain As Object
    Set appDomain = GetObject("new:mscorlib.AppDomain")
    
    If appDomain.GetData("FakeDict") Is Nothing Then
        Set g_PersistentFakeDict = New fakeDictionary
        appDomain.SetData "FakeDict", g_PersistentFakeDict
    End If
    
    Set GetPersistentDictionary = appDomain.GetData("FakeDict")
End Function

这样VBA运行时会因为全局变量的强引用，不会在编辑器停止时触发fakeDictionary的Class_Terminate事件，对象就能保持有效直到你主动销毁它。

方案2：在类的销毁逻辑中主动停止定时器 #

如果必须保留Class_Terminate，可以在里面添加逻辑确保定时器不再触发回调：

1. 在fakeDictionary类里添加状态标志和销毁处理：

Private m_IsAlive As Boolean
Private m_TimerID As LongPtr

Private Sub Class_Initialize()
    m_IsAlive = True
End Sub

Private Sub Class_Terminate()
    m_IsAlive = False
    ' 销毁时主动停止关联的定时器
    If m_TimerID <> 0 Then
        KillTimer 0, m_TimerID
        m_TimerID = 0
    End If
End Sub

Public Property Get IsAlive() As Boolean
    IsAlive = m_IsAlive
End Property

Public Property Let TimerID(ByVal newID As LongPtr)
    m_TimerID = newID
End Property

2. 在回调里先检查对象有效性：

Sub timerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
    Dim dict As fakeDictionary
    Set dict = idEvent ' 转换指针为对象
    
    If dict.IsAlive Then
        ' 执行你的业务逻辑
        dict.Add "Key", Now()
    Else
        ' 对象已销毁，直接停止定时器
        KillTimer 0, idEvent
    End If
End Sub

方案3：放弃对象指针传参，改用ID映射（最稳妥） #

直接传递对象指针给WinAPI本身就有风险，更稳妥的方式是用全局字典映射定时器ID和对象：

1. 在标准模块里声明全局映射字典：

Global g_TimerObjectMap As New Scripting.Dictionary

2. 创建定时器时，用普通ID而非对象指针，同时存入映射：

Dim timerID As LongPtr
Dim myDict As fakeDictionary
Set myDict = New fakeDictionary

' 生成唯一定时器ID（用0让系统自动分配）
timerID = SetTimer(0, 0, 1000, AddressOf timerProc)
' 把ID和对象关联存入映射
g_TimerObjectMap.Add timerID, myDict

3. 回调里通过ID获取对象：

Sub timerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
    If g_TimerObjectMap.Exists(idEvent) Then
        Dim dict As fakeDictionary
        Set dict = g_TimerObjectMap(idEvent)
        ' 执行你的业务逻辑
    End If
End Sub

4. 停止定时器时记得清理映射：

KillTimer 0, timerID
g_TimerObjectMap.Remove timerID

关键注意事项 #

• VBA自定义类的生命周期完全由VBA运行时掌控，mscorlib.AppDomain的缓存只是额外存储，无法替代VBA自身的引用计数机制。
• 直接给WinAPI传递VBA对象指针是不安全的，因为WinAPI不会管理VBA对象的生命周期，一旦对象被销毁，指针就变成野指针，必然引发崩溃。

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