Any，其实不是一种类型

其实，Any不算是一种数据类型，它只是告诉编译器，不检查数据类型而已。被Any修饰的参数，无论传递什么类型过去，编译时都不会报错，实际上却很可能发生内存溢出错误。所以，有人觉得它危险。再有，被Any修饰的参数，不能与ByVal关键字合作，不能传值，而只能传址，所以有人觉得它高效。

笔者在《》详细地介绍了参数传递过程中，实参与形参的一些特点，未阅读过的读者，可关注阅读。因为编译器不检查数据类型，实参传递给形参时，形参因不知道要分配的内存大小，就无法分配内存。所以，只能传址进行引用，而不能传值。

Any类型，对于VB/VBA使用API而言，只要理解了上述关系，并准确使用，不仅可以提高性能，最核心的是可以极大提高API使用的灵活性。就像上图所示，不需要显式传递字符串指针给lstrlenA函数，仅需要按平常所理解的那样，将字符串变量丢给Any修饰的参数，就可以自动传递字符串指针过去。

不过，Any再好，那也只是Declare的配套，跟自己的函数沾不上边的。不过，还有Variant呀，Variant就是非Declare函数的Any。VB/VBA中的所有数据类型，都可以传递给Variant。

2、Variant传数组，Optional ByVal/ByRef，就不是个事儿

『一.2』中的问题，涉及到数组参数的传递。在VB/VBA中，传递数组变量时，只能ByRef方式，而且不能使用Optional关键字。这无疑对于重要的数组来讲，是不公平的（吐槽点）。其实改用Variant，用这个另类Any，一切就迎刃而解了。

而且，可以ByVal传值，不会影响传入的数组变量。为了形象地说明，笔者写了个Demo测试如下图所示：

看到没，ByVal传递数组哦

其中VarArrayInfo函数，提取Variant类型数组的数据地址。测试结果表明，数组变量可以ByVal方式传递参数，并不会影响传入的数组。更关键地是，数组可以作为可选参数进行传递了。

3、动态调用函数指针，Variant传参，参数类型和个数不再困扰

『一.3』中的问题，涉及到不定参数的传递问题。在VB/VBA中，可以使用ParamArray关键字修饰参数来实现这一目的。但是参数必须是Variant数组，且不能与Optional关键字组合。

或许有人说，既然Variant可以直接传递数组，还可以与Optional关键字组合，为何不直接使用Variant类型参数呢？这个，怎么说呢，只知其一不知其二啊。

ParamArray修饰的参数，本身可不传递参数啊，这不就是Optional关键字的意思了么。再者，它把数组展开，直接进行传递，多形象直观啊！尤其是，动态调用API，形式上与Declare方式也很像呀，容易理解和检查。

但是，无论是直接使用Variant传递参数数组，还是使用ParamArray关键字传递不定数参数，都必须对Variant有深入地理解。有需要进一步了解Variant机制的朋友，欢迎关注BtOfficer进行咨询哦。

如果读者朋友们觉得，Variant传递数组，也不过如此的话。那笔者再给出一个测试Demo，看看下图的测试结果：

Variant虽好，但是坑也挺多的

Variant的确可以传递数组，那当然可以像数组那样来使用数组了，比如上图中的v(0)，表示数组中的第一个元素。在VB/VBA中，可以使用VarPtr函数获取非数组变量地址。a(0)，不仅表示a数组中首元素地址，更代表首元素变量。所以，VarPtr(a(0))可以获取函数首元素地址。但是，传递给Variant的v(0)，却不行了呢？

经验丰富的人员，一看VarPtr(v(0))的返回值，就知道这是栈地址。动态数组数据，都是分配在堆上的。这里面，是有猫腻滴。

其实，这就是Variant另一个让人惊喜的地方，它可以表现得像函数一样。v(0)中，v便是函数名，（0）便是函数列表，返回的元素值，便是函数返回值。还记得笔者以前提过，函数名就是一个临时变量么？如果读者朋友们理解这一点，就很容易理解上面的结果。

怎么样？Variant让你惊喜了吗？Variant传递数组时，可以像数组变量那样获取元素，但却不可以像数组变量那样获取元素地址。

欢迎关注BtOfficer呀（收藏、点赞、关注 转发），更多精彩仍在继续哦（专栏文章更系统，更精彩，但需要支持哦），有严肃的技术，也有轻松的唠嗑，期待你的加入！