VBA中Variant何时持有双指针？求可复现的实现方案

一、Variant持有双指针的场景 #

Variant仅在存储特定复杂类型时会持有双指针，最典型的场景是：

• 当Variant的类型为VT_RECORD（对应数值&H2000，即8192）时，用于表示自定义用户定义类型（UDT）。此时Variant的内存中会存储两个指针：
  1. 指向IRecordInfo接口的指针：用于描述UDT的元数据（如类型结构、字段信息）；
  2. 指向UDT实际数据缓冲区的指针：存储自定义类型的具体内容。

在x64架构下，每个指针占8字节，加上前2字节的VARTYPE和6字节的保留位，整个Variant的大小为24字节，完全匹配你提到的内存布局特征。

二、VBA中复现的方法 #

方法1：直接赋值自定义类型到Variant #

这是最简便的实现方式，步骤如下：

1. 在VBA模块的模块级别定义包含非纯数值字段的自定义类型（如包含字符串、日期等，纯数值UDT可能不会触发VT_RECORD）；
2. 将该自定义类型的实例赋值给Variant变量，Variant会自动转为VT_RECORD类型，持有双指针。

示例代码：

' 模块级别定义自定义类型
Type EmployeeUDT
    EmpID As Long
    EmpName As String
    HireDate As Date
End Type

Sub TestVTRecordVariant()
    Dim emp As EmployeeUDT
    Dim varRecord As Variant
    
    ' 填充自定义类型数据
    emp.EmpID = 1001
    emp.EmpName = "John Doe"
    emp.HireDate = #2020/01/01#
    
    ' 将UDT赋值给Variant，自动转为VT_RECORD类型
    varRecord = emp
    
    ' 验证类型：VarType返回8192（即VT_RECORD）
    Debug.Print "Variant类型值：" & VarType(varRecord)
    Debug.Print "是否为VT_RECORD：" & (VarType(varRecord) = 8192)
End Sub

方法2：通过Win32 API手动构造VT_RECORD Variant #

如果需要底层控制，可以使用OLE自动化API手动创建VT_RECORD类型的Variant，核心逻辑是手动赋值双指针：

1. 使用RecordInfoFromTypeInfo获取自定义类型的IRecordInfo接口指针；
2. 初始化Variant并设置类型为VT_RECORD；
3. 将IRecordInfo指针和UDT数据缓冲区指针写入Variant的内存区域。

示例代码（需提前声明API）：

' 声明必要的API和类型
Private Type tagVARIANT
    vt As Integer
    wReserved1 As Integer
    wReserved2 As Integer
    wReserved3 As Integer
    data As Currency ' 占位用，实际为指针联合体
End Type

Private Declare PtrSafe Function VariantInit Lib "oleaut32.dll" (pvarg As tagVARIANT) As Long
Private Declare PtrSafe Function RecordInfoFromTypeInfo Lib "oleaut32.dll" (ByVal pTypeInfo As LongPtr, ByRef ppRecordInfo As LongPtr) As Long
Private Declare PtrSafe Function VariantClear Lib "oleaut32.dll" (pvarg As tagVARIANT) As Long
Private Declare PtrSafe Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

Sub ManualVTRecordVariant()
    Dim var As tagVARIANT
    Dim pRecordInfo As LongPtr
    Dim udtBuffer As EmployeeUDT
    Dim pUdtBuffer As LongPtr
    
    ' 初始化Variant
    VariantInit var
    
    ' 获取自定义类型的IRecordInfo指针（完整实现需通过TypeLib获取合法TypeInfo）
    RecordInfoFromTypeInfo 0, pRecordInfo
    
    ' 填充UDT数据
    udtBuffer.EmpID = 1002
    udtBuffer.EmpName = "Jane Smith"
    udtBuffer.HireDate = #2021/03/15#
    
    ' 获取UDT缓冲区指针
    pUdtBuffer = VarPtr(udtBuffer)
    
    ' 设置Variant类型为VT_RECORD
    var.vt = &H2000
    
    ' 写入双指针：IRecordInfo和数据缓冲区（x64架构适配）
    CopyMemory ByVal VarPtr(var.data) + 8, pRecordInfo, 8
    CopyMemory ByVal VarPtr(var.data) + 16, pUdtBuffer, 8
    
    ' 使用后清理Variant
    VariantClear var
End Sub

注：方法2需要熟悉VBA内存操作，且需适配x32/x64架构差异，测试优先选择方法1。

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