如何编写适配32/64位Office的Win32 API VBA声明语句？

阿华AIGC实验室

2026-5-7

通用VBA声明Win32 API指南（32/64位Office兼容）

我帮你整理了一份通用的VBA声明Win32 API指南，完全适配32位和64位Office，能解决你提到的所有疑问：

一、核心适配原则：32/64位兼容基础

要写兼容的Declare语句，首先得搞懂VBA里几个关键类型的区别：

LongPtr：VBA的自适应类型，32位Office下等价于4字节的Long，64位下等价于8字节的LongLong。专门用来处理指针、句柄、内存地址这类在不同位数系统中长度变化的Win32类型。
Long：固定4字节，对应Win32中明确是32位的整数类型（比如DWORD、INT、UINT，哪怕在64位系统里这些类型依然是32位）。
LongLong：固定8字节，仅在64位Office中有效，对应Win32的INT64、UINT64这类明确64位的整数类型。

二、Win32 C数据类型到VBA的通用映射表

根据Win32类型的特性，对应到VBA的类型如下：

指针/地址类（用LongPtr）

PVOID、LPVOID、HANDLE、HWND、HMODULE、LPCSTR、LPWSTR（字符串指针需结合ByVal传递）

固定长度整数类

BYTE → Byte（1字节）
WORD → Integer（2字节）
DWORD、INT、UINT → Long（4字节）

64位整数类（仅64位Office，用LongLong）

SIZE_T、SSIZE_T、INT64、UINT64

字符串类

LPCSTR（ANSI字符串）→ ByVal String
LPWSTR（Unicode字符串）→ ByVal String（VBA默认使用Unicode，无需额外转换）

无类型指针/任意类型

VOID*、PVOID → 可用As Any或As LongPtr

三、`As Any`的用法与适用场景

你提到VBA支持As Any而VB.Net不支持，这里明确它的正确用法：

核心作用：允许传递任意类型的参数（值类型、指针、字符串等），不需要强制类型转换，相当于C语言中void*的动态适配。
适用场景：
1. 当Win32 API的参数是VOID*、PVOID、LPVOID这类无类型指针时，完全可以用As Any，比如CopyMemory的Destination和Source参数——它们需要接收任意内存地址的指针，不管指向什么类型。
2. 当API参数支持多种类型输入时（比如部分API既接受整数又接受字符串指针），As Any可以避免重复声明不同版本的API。
注意事项：
- As Any会关闭VBA的类型检查，所以必须确保传递的参数类型和API要求完全一致，否则会触发内存错误甚至崩溃。
- 传递值类型时，若需要传递指针，要配合VarPtr()获取变量的内存地址；传递字符串时，若API要求指针，直接用ByVal传递即可（VBA会自动转换为字符串指针）。

四、`CopyMemory`的正确兼容声明

针对你提到的CopyMemory参数疑问，先看MSDN的官方原型：

void CopyMemory( In PVOID Destination, In const VOID *Source, In SIZE_T Length );

其中SIZE_T是自适应类型：32位系统下是4字节无符号整数，64位下是8字节无符号整数。所以正确的兼容声明必须用LongPtr来映射SIZE_T，否则64位环境下传递超过4字节的长度会被截断，导致内存操作错误。

两种常用的兼容声明版本

版本1：用LongPtr明确传递指针（类型安全）

#If VBA7 Then
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByVal pDest As LongPtr, _
        ByVal pSrc As LongPtr, _
        ByVal ByteLen As LongPtr _
    )
#Else
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByVal pDest As Long, _
        ByVal pSrc As Long, _
        ByVal ByteLen As Long _
    )
#End If

使用时需要用VarPtr()获取变量地址，比如：CopyMemory VarPtr(destVar), VarPtr(srcVar), LenB(destVar)

版本2：用`As Any`简化调用（更灵活）

#If VBA7 Then
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        pDest As Any, _
        pSrc As Any, _
        ByVal ByteLen As LongPtr _
    )
#Else
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        pDest As Any, _
        pSrc As Any, _
        ByVal ByteLen As Long _
    )
#End If

使用时可以直接传递变量，VBA会自动处理指针：CopyMemory destVar, srcVar, LenB(destVar)

五、任意Win32 API的通用声明步骤

按照以下流程，你可以自己为任何Win32 API编写兼容的VBA声明：

获取官方原型：从MSDN或Windows SDK文档中找到API的C语言原型，重点确认返回值类型、每个参数的类型和传递方式（_In_/_Out_等）。
映射类型：根据前面的类型映射表，将C类型转换为对应的VBA类型，指针/地址类用LongPtr，固定长度整数用Long/Integer/Byte，64位整数用LongLong。
添加64位兼容标记：Office 2010及以上版本（VBA7）支持PtrSafe关键字，必须添加在Declare语句前，否则64位Office会报错。
条件编译（可选但推荐）：如果需要兼容Office 2007及更早版本，用#If VBA7 Then和#Else分别编写32位和64位版本的声明。
处理As Any：当API参数是VOID*或需要接受多种类型时，用As Any替代具体类型，但要注意参数传递的正确性。
测试验证：在32位和64位Office环境下分别测试，确保没有内存错误、参数截断或崩溃问题。