VBA调用C DLL致Excel崩溃，疑context参数（unsigned char指针）适配异常

我帮你排查这个Excel崩溃的问题，核心原因确实出在context参数的类型不匹配上——你在VBA里把它声明成了ByVal String，但C函数里它是unsigned char*（UCHAR指针），这两种类型的内存布局和处理逻辑完全不同，直接传递会导致DLL错误访问内存，进而触发Excel崩溃。

下面分场景给你具体的解决方案：

1. 先确认C函数中context的用途 #

首先你得明确这个参数是输入（DLL读取你传入的数据）还是输出（DLL往这个缓冲区写入数据），这决定了VBA端的声明方式：

场景1：context是输入字符串（比如设备标识、配置信息） #

C里的unsigned char*如果用来接收ANSI字符串，VBA默认的String是Unicode编码的BSTR类型，直接传递会让DLL解析出乱码甚至访问非法内存。你需要：

• 在VBA声明里加上Ansi关键字，强制VBA把字符串转成ANSI字节数组传递；
• 如果C函数用的是__cdecl调用约定（C默认），还要加上Cdecl关键字（否则栈不平衡也会崩溃）。

修正后的VBA声明：

Public Declare Ansi Cdecl Function HR8_CONNECT Lib "D:\xxxxxx.dll" _
    (ByVal PortCom As Byte, _
     ByVal Mode As Byte, _
     ByVal Config As Byte, _
     ByVal Dbg As Byte, _
     ByVal context As String) As Byte

调用时如果你的VBA字符串是Unicode的，转成ANSI再传递：

Dim inputCtx As String
inputCtx = "your_connection_context"
Dim connectResult As Byte
' 转成ANSI字符串传递给DLL
connectResult = HR8_CONNECT(1, 0, 0, 0, StrConv(inputCtx, vbFromUnicode))

场景2：context是输出缓冲区（DLL返回连接状态/上下文数据） #

如果这个参数是DLL用来写入数据的缓冲区，VBA的String是不可变的托管类型，绝对不能用，必须用字节数组来分配可写的内存：

首先你要知道C函数要求的缓冲区大小（比如看文档或头文件，假设需要256字节），然后这样声明：

Public Declare Cdecl Function HR8_CONNECT Lib "D:\xxxxxx.dll" _
    (ByVal PortCom As Byte, _
     ByVal Mode As Byte, _
     ByVal Config As Byte, _
     ByVal Dbg As Byte, _
     ByRef context As Byte) As Byte

调用时提前分配缓冲区，传递数组首元素的地址：

' 分配256字节的缓冲区（索引0到255）
Dim outputCtx(255) As Byte
Dim connectResult As Byte
' 传递数组第一个元素的指针
connectResult = HR8_CONNECT(1, 0, 0, 0, outputCtx(0))

' 如果需要把缓冲区转成VBA字符串（假设是ANSI编码）
Dim ctxStr As String
ctxStr = StrConv(outputCtx, vbUnicode)
' 截断到第一个空字符（C字符串的结束标志）
ctxStr = Left(ctxStr, InStr(ctxStr, vbNullChar) - 1)

2. 关键注意点 #

• 调用约定必须匹配：如果C函数声明里是__stdcall（比如Windows API风格），VBA声明里不用加Cdecl；如果是__cdecl（C默认），必须加，否则栈会失衡，直接导致崩溃。
• 缓冲区大小要足够：如果是输出场景，一定要分配C函数要求的最小缓冲区，否则DLL写入数据时会越界，破坏Excel的内存空间。

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