本文共 726 字，大约阅读时间需要 2 分钟。
在VBA中，直接获取数组维数的功能并不提供，这使得捕获运行时错误成为获取数组维数的常用方法。以下是基于此原理的代码解析和实现方法。
代码逻辑详解
数组声明
代码中使用Dim a(4, 4, 4, 4, 4)声明了一个五维数组。这种声明方式在VBA中是常见的，适用于多维数组的创建。错误捕获机制
代码启用了On Error Resume Next，这意味着在运行时发生错误时，会跳过错误处理并继续执行后续代码。Err.Clear用于清除错误对象，确保后续错误捕捉准确无误。数组维数获取
使用UBound(a, i)尝试获取数组的第i维的上界。由于VBA中没有直接获取数组维数的方法，调用UBound函数时会触发运行时错误（错误号为9）。这种方法巧妙地利用了VBA的错误处理机制来获取数组的维数信息。错误捕捉与处理
通过If Err.Number = 9判断是否发生了UBound函数的错误。错误号为9表示参数超出范围，这正是我们所期望的数组维数超出情况。维数输出与程序结束
当发现数组的某一维数超出最大维数时，Debug.Print输出当前维数，并使用Exit Sub终止程序。这种设计确保了在发现高维数组时程序能够及时退出，避免不必要的循环执行。代码运行结果
当运行上述代码时，会输出以下结果：
Array dimension is 5
这表明在测试过程中，数组的实际维数为5，超过了VBA的默认最多维数限制（最大维数为60）。
总结
通过以上方法，开发者可以有效地获取VBA中二维或多维数组的维数信息。这种基于错误捕获的方法虽然看起来有些绕弯子，但在缺乏直接获取数组维数的方法的情况下，仍然是较为实用的解决方案。
转载地址：http://dbjl.baihongyu.com/