Максимальный размер коллекции

Вот мой код:

Sub isdofsodjisf48023jroi23f984444444jiodfiosj12348023jroi23f98() Dim colFiles As New Collection RecursiveDir colFiles, "C:\Documents and Settings\Alex Gordon\Desktop\testing\files\", "*.xls", True Dim vFile As Variant For Each vFile In colFiles Call writeincells(vFile) Next vFile End Sub Public Function RecursiveDir(colFiles As Collection, _ strFolder As String, _ strFileSpec As String, _ bIncludeSubfolders As Boolean) Dim strTemp As String Dim colFolders As New Collection Dim vFolderName As Variant 'Add files in strFolder matching strFileSpec to colFiles strFolder = TrailingSlash(strFolder) strTemp = Dir(strFolder & strFileSpec) Do While strTemp <> vbNullString colFiles.Add strFolder & strTemp strTemp = Dir Loop If bIncludeSubfolders Then 'Fill colFolders with list of subdirectories of strFolder strTemp = Dir(strFolder, vbDirectory) Do While strTemp <> vbNullString If (strTemp <> ".") And (strTemp <> "..") Then If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then colFolders.Add strTemp End If End If strTemp = Dir Loop 'Call RecursiveDir for each subfolder in colFolders For Each vFolderName In colFolders Call RecursiveDir(colFiles, strFolder & vFolderName, strFileSpec, True) Next vFolderName End If End Function Public Function TrailingSlash(strFolder As String) As String If Len(strFolder) > 0 Then If Right(strFolder, 1) = "\" Then TrailingSlash = strFolder Else TrailingSlash = strFolder & "\" End If End If End Function 

Я заполняю коллекцию со списком имен файлов в структуре каталогов.

У меня есть 2000 файлов, но коллекция возвращает 256. Кто-нибудь знает, есть ли максимальное число, которое не пройдет?

Если да, можете ли вы предложить лучший способ закодировать этот макрос, чтобы он захватывал все 2000 файлов?

Код работает нормально в Excel 2007. Возможно, происходит то, что вы пытаетесь смотреть коллекцию в режиме отладки. Отладчик показывает только первые 256 элементов.

Как насчет отключенного набора записей? Этот поток относится к VBScript, но он очень похож на VBA:

Как сортировать массивы с помощью vbscript?

Давайте будем гением компьютера.