VBA 读取EXCEL 2

在网上找到了一段历遍文件夹的VBA代码，试验了一下。可以执行。和之前我做的写入部分连接起来就可以达到我之前所说的目的了。
（一点点小补充，感觉好像效率没有直接写数组的方法快，直接运行历遍代码读取网络服务器上的文件夹，大概需要一秒多的时间可以显示出来这个文件夹内一共的.xls数，时间大多在网络通信上。但是和写入部分连接整合之后，用数组5分钟之内能搞定的事情，这个好像需要更长的时间，所以依然在使用着老方法）

VB code

    
    

     
     
     
     

     
     Sub
     
      test()

     
     Dim
     
      sFolder 
     
     As
     
      
     
     String
     
     

     
     Dim
     
      wb 
     
     As
     
      Workbook

     
     Dim
     
      i 
     
     As
     
      
     
     Long
     
     
   
     
     With
     
      Application.FileSearch
        .NewSearch
        .LookIn 
     
     =
     
      
     
     "
     
     folderpath
     
     "
     
       
     
     '

     
             .SearchSubFolders 
     
     =
     
      
     
     True
     
     
        .filename 
     
     =
     
      
     
     "
     
     *.xls
     
     "
     
     
        .FileType 
     
     =
     
      msoFileTypeExcelWorkbooks
        
     
     If
     
      .Execute() 
     
     >
     
      
     
     0
     
      
     
     Then
     
     
            
     
     '

     
             
     
     Else
     
     
            
     
     '
     
     Error Message
     
     

     
             
     
     End
     
      
     
     If
     
     
    
     
     End
     
      
     
     With
     
     

     
     End Sub