VBA中如何更优定义用于文件过滤器的字面量二维字符串数组？

你遇到的「Subscript out of range」错误，核心原因是：Array(Array(...), Array(...)) 创建的不是二维字符串数组，而是一个一维Variant数组，每个元素又是独立的一维Variant数组。你的函数里用 UBound(arrFlt, 1) 尝试获取二维数组的第二维边界，但这个嵌套结构本质是一维数组，所以触发了越界错误。

下面给你两种优化方案，既能保留函数的核心逻辑，又能实现更简洁的数组定义：

方案一：修改函数兼容嵌套数组（推荐） #

修改GetFile函数的过滤器处理逻辑，让它同时支持传统二维数组和嵌套的一维数组。这样你就可以用最简洁的Array嵌套写法调用：

'' GetFile - Lee Mac ''
'' Prompts the user to select a file using a standard Windows file dialog ''
'' msg - [str] Dialog title ''
'' ini - [str] Initial filename/filepath ''
'' flt - [arr] Array of filetype filters ''
Function GetFile(Optional strMsg As String = "Select File", Optional strIni As String = vbNullString, Optional arrFlt) As String
    Dim dia As FileDialog
    Set dia = Application.FileDialog(msoFileDialogFilePicker)
    With dia
        .InitialFileName = strIni
        .AllowMultiSelect = False
        .Title = strMsg
        .Filters.Clear
        If IsMissing(arrFlt) Then
            .Filters.Add "All Files", "*.*"
        Else
            Dim i As Integer, subArr As Variant
            ' 判断输入是嵌套一维数组还是传统二维数组
            If IsArray(arrFlt(0)) Then
                ' 处理嵌套数组：遍历每个子数组
                For Each subArr In arrFlt
                    .Filters.Add subArr(0), subArr(1)
                Next subArr
            Else
                ' 兼容原有的二维数组逻辑
                For i = 0 To UBound(arrFlt, 1)
                    .Filters.Add arrFlt(i, 0), arrFlt(i, 1)
                Next i
            End If
        End If
        If .Show Then
            GetFile = .SelectedItems.Item(1)
        End If
    End With
End Function

修改后，调用时就可以用你想要的简洁写法了：

Function test()
    Dim arr As Variant
    arr = Array(Array("Excel Files", "*.xls;*.xlsx"), Array("Text Files", "*.txt"))
    GetFile , , arr
End Function

方案二：不修改函数，用二维数组字面量定义 #

如果你不想改动现有函数，可以用Excel VBA特有的方括号数组字面量直接定义二维数组，比逐个赋值简洁很多：

Function test()
    Dim arr As Variant
    ' 分号分隔行，逗号分隔列，直接生成二维数组
    arr = [{"Excel Files","*.xls;*.xlsx";"Text Files","*.txt"}]
    GetFile , , arr
End Function

⚠️ 注意：这种写法依赖Excel的Evaluate方法（方括号等价于Application.Evaluate），仅适用于Excel VBA；如果是Word、PowerPoint等其他Office应用，这个方法不生效。

如果需要跨Office应用兼容，也可以用Split配合字符串快速生成二维数组：

Function test()
    Dim arr As Variant, filterStr As String
    filterStr = "Excel Files|*.xls;*.xlsx||Text Files|*.txt"
    ' 先按||拆分每个过滤器项，再按|拆分描述和规则
    arr = Split(filterStr, "||")
    Dim i As Integer
    ReDim Preserve arr(UBound(arr), 1)
    For i = LBound(arr) To UBound(arr)
        arr(i, 0) = Split(arr(i), "|")(0)
        arr(i, 1) = Split(arr(i), "|")(1)
    Next i
    GetFile , , arr
End Function

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