收藏最大尺寸

Question

這裏是我的代碼：

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個文件？

Answer 1

的代碼在Excel 2007工作OK也許正在發生的事情是，你嘗試觀看在調試模式下集合。調試器只顯示前256個項目。

Answer 2

如何連接記錄？這線程有關VBScript，但它是非常相似的VBA：

How do I sort arrays using vbscript?