如果你想深入的了解VBA内部数据类型的内存布局，就必然需要知道变量所在的内存地址，VBA有3个取变量地址函数：

1、VarPtr

定义1个变量，函数返回这个变量的地址。

这个变量可以是任何类型（不能是数组）。

2、StrPtr

定义1个String类型

• 初始化前，函数返回0，这个时候还没有字符的内存地址，所以是0

• 初始化后，函数返回字符所在的内存地址（假设是ps）

与VarPtr得到的变量地址（假设是pv）关系是，pv这个地址保存的4个字节（32位电脑）的值就是ps。

Sub TestString()    Dim str As String    Dim lVarPtr As Long            str = "a"    CopyMemory VarPtr(lVarPtr), VarPtr(str), 4    printf "VarPtr(str) = 0x%x, StrPtr(str) = 0x%x, lVarPtr = 0x%x", VarPtr(str), StrPtr(str), lVarPtrEnd Sub输出：VarPtr(str) = 0x1ef030, StrPtr(str) = 0x17a455ec, lVarPtr = 0x17a455ec说明：API CopyMemory 声明Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)printf 是自己封装的1个函数，代码没有列出

所以从上面可以看出，StrPtr就是把VarPtr得到的pv这个指针保存的内存数据读取出来。

也就是对String类型来说，其实有VarPtr就能够间接获取Str的字符所在地址，于是就想到尝试用StrPtr对数据类型的变量使用是不是也是一样的效果？

Sub TestStrPtr()    Dim l As Long        printf "VarPtr(l) = 0x%x, StrPtr(l) = 0x%x", VarPtr(l), StrPtr(l)End Sub输出：VarPtr(l) = 0x1ef030, StrPtr(l) = 0x17a455ec

本以为在变量l未初始化也就是0的时候，StrPtr(l)应该返回0才对，为什么返回了一个值？这个如果也是个内存地址的话，里面又保存了什么？

Sub TestStrPtr()    Dim l As Long        printf "VarPtr(l) = 0x%x, StrPtr(l) = 0x%x", VarPtr(l), StrPtr(l)          Dim b(3) As Byte    CopyMemory VarPtr(b(0)), ByVal StrPtr(l), 4    printf "b = 0x% x", bEnd Sub输出：VarPtr(l) = 0x1ef030, StrPtr(l) = 0x118c6a5cb = 0x30 00 00 00

输出的这个值还挺特殊！变量l赋值的话输出也会变化，不懂为什么！待研究……3、ObjPtr

这个和StrPtr好像差不多，VarPtr(obj)得到的地址po，po内存保存的数据等于ObjPtr(obj)

Sub TestObjPtr()    Dim Rng As Range    Dim lVarPtr As Long        Set Rng = Range("A1")    CopyMemory VarPtr(lVarPtr), VarPtr(Rng), 4    printf "VarPtr(Rng) = 0x%x, ObjPtr(Rng) = 0x%x, lVarPtr = 0x%x", VarPtr(Rng), ObjPtr(Rng), lVarPtrEnd Sub输出：VarPtr(Rng) = 0x1ef030, ObjPtr(Rng) = 0x8189280, lVarPtr = 0x8189280

本文使用 文章同步助手 同步