从大型数组创建的 Excel 验证列表

Question

目标 我必须为用户创建一个下拉列表以滚动并选择一个项目。这些项目是公司的合同，存储在我们的目录中。有成千上万。

尝试 我的第一次尝试是使用一个子目录，它遍历我们的目录并将每个合约文件夹的名称写入column L on sheet f_param。然后我使用以下代码创建验证列表：

With f_param.Range("cell_titreprojet").Validation
    .delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Paramètres!$L$3:$l$1406"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

效果很好，但我觉得将名称存储在array 中，然后直接使用array 的values 填充列表会更好。

我用这篇文章作为参考：Excel Validation Drop Down list using VBA

我成功地使用以下代码从包含 10 个项目的目录创建了验证列表：

Sub Example2()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer
Dim liste() As String


'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("O:")
i = 0
'loops through each file in the directory and stores their path
For Each objSubFolder In objFolder.subfolders
    If IsNumeric(Left(objSubFolder.Name, 1)) Then
        'print folder path
        ReDim Preserve liste(i)
        i = i + 1
    End If
Next objSubFolder


With Feuil2.Range("A1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(liste, ",")
End With
End Sub

问题

当我从目录 O:（测试过的 10 个文件夹）更改为 H:（这是我想要的那个）时，array 被正确填充（我在column 中打印了 1403 个文件夹名称到检查），但我在创建列表期间收到了error（使用之前发布的相同代码，该代码适用于较小的数组）。有谁知道为什么？

编辑：错误是 1004（大致翻译自法语）：由应用程序或对象定义的错误。

Answer 1

This page 表示根据列表的构建方式有不同的限制。

数据验证下拉列表中显示的项目数量存在限制：该列表最多可显示工作表上列表中的 32,767 个项目。如果您在数据验证对话框（分隔列表）中键入项目，则限制为 256 个字符，包括分隔符。 如果您需要更多的项目，您可以创建一个相关的下拉列表，按类别细分。