在网上找到了一段历遍文件夹的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
