如何处理VBA中的DLL错误？

来自评论：

当然，如果我进行了错误的 API 调用，则必须让 Excel/我的代码知道它很糟糕

不一定。如果您要求 API 函数（例如）覆盖您为其提供指针的位置的内存，它会愉快地尝试这样做。然后可能会发生一些事情：RtlMoveMemory

• 如果内存不可写（例如代码），那么您将很幸运地获得访问冲突，这将在进程造成更多损害之前终止该过程。

• 如果内存是可写的，它将被覆盖并因此损坏，之后所有赌注都将关闭。

从您的评论：

我正在设计代码来附加用户提供的回调函数

另一种方法是使用客户端代码可以实现的方法设计接口。然后要求客户端传递实现该接口的类的实例。

如果您的客户端是 VBA，则定义接口的一种简单方法是使用一个或多个空方法创建公共 VBA 类模块。按照惯例，您应该使用（接口）前缀来命名此类 - 例如 .空方法（Subs 或 Functions）可以具有您想要的任何签名，但我会保持简单：IIMyCallback

例：

Class module name: IMyCallback

Option Explicit

Public Sub MyMethod()

End Sub

或者，如果客户端使用 VBA 以外的语言，则可以使用 IDL 定义接口，将其编译为类型库，并从 VBA 项目中引用类型库。我不会在这里进一步讨论这个问题，但如果你想跟进它，我会问另一个问题。

然后，您的客户端应该创建一个类（VBA类模块），该类以他们选择的任何方式实现此接口，例如通过创建一个类模块：ClientCallback

Class module name: ClientCallback

Option Explicit

Implements IMyCallback

Private Sub IMyCallback_MyMethod()
    ' Client adds his implementation here
End Sub

然后，你公开一个类型的参数，你的客户端可以传递他的类的实例。IMyCallback

您的方法：

Public Sub RegisterCallback(Callback as IMyCallback)
    ...
End Sub

客户端代码：

Dim objCallback as New ClientCallback
RegisterCallback Callback
…

然后，您可以实现自己的回调函数，该函数从 Timer 调用，并通过接口安全地调用客户端代码。

其中一些 Windows API 调用可能很危险。如果要将 Windows API 功能作为库功能提供，则最好不要让客户端面临此类危险。因此，最好实现自己的接口层。

下面是将 Windows 计时器 API 作为库功能提供的代码，该功能可以安全使用，因为它传递回调代码的字符串名称而不是指针。

这段代码首先发表在我的博客上。此外，在那篇博文中，如果您想要选项，我将讨论 Application.Run 的替代方案。

Option Explicit
Option Private Module

'* Brought to you by the Excel Development Platform blog
'* First published at https://exceldevelopmentplatform.blogspot.com/2019/05/vba-make-windows-timer-as-library.html

Private Declare Function ApiSetTimer Lib "user32.dll" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
                        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function ApiKillTimer Lib "user32.dll" Alias "KillTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Private mdicCallbacks As New Scripting.Dictionary

Private Sub SetTimer(ByVal sUserCallback As String, lMilliseconds As Long)
    Dim retval As Long  ' return value

    Dim lUniqueId As Long
    lUniqueId = mdicCallbacks.HashVal(sUserCallback) 'should be unique enough

    mdicCallbacks.Add lUniqueId, sUserCallback

    retval = ApiSetTimer(Application.hWnd, lUniqueId, lMilliseconds, AddressOf TimerProc)
End Sub

Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, _
        ByVal dwTime As Long)

    ApiKillTimer Application.hWnd, idEvent

    Dim sUserCallback As String
    sUserCallback = mdicCallbacks.Item(idEvent)
    mdicCallbacks.Remove idEvent


    Application.Run sUserCallback
End Sub

'****************************************************************************************************************************************
' User code below
'****************************************************************************************************************************************

Private Sub TestSetTimer()
    SetTimer "UserCallBack", 500
End Sub

Private Function UserCallBack()
    Debug.Print "hello from UserCallBack"
End Function