仅使用Access VBA能否创建常量二维数组？

首先明确说：Access VBA不支持直接创建常量二维数组，你尝试的两种写法失败都是因为不符合Access VBA的语法规则，咱们来拆解下原因，再给你几个可行的替代方案：

为什么你的尝试都失败了？ #

1. 第一种写法：Const s1 As String = [{"a","b","c";"1","2","3"}]
   • 这个方括号的数组字面量是Excel VBA专属的语法，Access VBA根本不支持；而且你把它声明为String类型也不对，二维数组是复合类型，不能用String来存储。
2. 第二种写法：Const s2 as variant = array(array("a","b","c"),array("1","2","3"))
   • VBA里的Array()是运行时函数，而常量声明要求必须是编译阶段就能确定的固定值，不能调用运行时函数来初始化，所以肯定会报错。
3. 常规Dim声明的问题
   • Dim s1 As String = [{"a","b","c";"1","2","3"}]：同样是Access不支持Excel的数组语法，加上类型不匹配；
   • Dim s2 as variant = array(array(...))：VBA里声明变量时不能直接用=赋值，正确写法是分开写：Dim s2 As Variant: s2 = Array(Array("a","b","c"), Array("1","2","3"))，但这只是运行时的变量数组，不是常量。

可行的替代方案 #

既然没法直接声明常量二维数组，我们可以用以下方式模拟“只读固定二维数组”的效果：

1. 模块级变量+初始化过程 #

在标准模块里声明一个私有/公共变量，然后在程序启动时（比如窗体加载、AutoExec宏）初始化它，之后就当作常量使用：

Private myFixed2DArray As Variant

' 初始化函数，确保在使用数组前调用
Sub InitializeFixedArrays()
    myFixed2DArray = Array( _
        Array("a", "b", "c"), _
        Array("1", "2", "3") _
    )
End Sub

比如在主窗体的Form_Load事件里调用InitializeFixedArrays，后续代码里直接用myFixed2DArray就可以了，只要不主动修改它，就和常量一样。

2. 自定义函数返回固定数组 #

写一个无参数函数，每次调用都返回同一个二维数组，相当于只读的常量数据源：

Function GetFixed2DArray() As Variant
    GetFixed2DArray = Array( _
        Array("a", "b", "c"), _
        Array("1", "2", "3") _
    )
End Function

使用的时候直接调用这个函数，比如：

Dim myArray As Variant
myArray = GetFixed2DArray()
' 读取myArray(0)(1)就是"b"

3. 小范围场景：单独声明常量（适合元素少的情况） #

如果数组规模很小，可以直接给每个元素单独声明常量：

Const Col1Row1 = "a", Col2Row1 = "b", Col3Row1 = "c"
Const Col1Row2 = "1", Col2Row2 = "2", Col3Row2 = "3"

这种方式虽然繁琐，但对于简单场景足够用。

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