vba获取当前目录所有工作薄名称

awxgaige

在Excel中使用VBA，难免会遇到查找当前工作薄的当前文件夹下，有多少个EXCEL文件，即有多少个工作薄，以便通过循环，对每个工作薄进行批量操作。 通过VBA获取当前文件夹下的所有工作薄名称，可以通过如下两种代码。
一、获取当前目录所有工作薄名称
注意，此代码包含子级目录的搜索。代码如下：
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
.Execute
If .Execute() > 0 Then
m = .FoundFiles.Count '当前目录及子目录所有工作薄总数
'MsgBox m
For Each f In .FoundFiles '在所有的工作薄里做一个循环
MsgBox Dir(f) '列出每个工作薄的名称，只显示名称，如 dzwebs.xls ，无路径
Next
End If
End With
二、获取当前目录下不包含子目录的所有工作薄名称
注意，此代码不包含任何一个子级目录的搜索，仅搜索当前目录存在的所有工作薄名称。代码如下：
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ThisWorkbook.Path
.SearchSubFolders = false
.Execute
If .Execute() > 0 Then
m = .FoundFiles.Count '当前目录所有工作薄总数
'MsgBox m
For Each f In .FoundFiles '在所有的工作薄里做一个循环
MsgBox Dir(f) '列出每个工作薄的名称，只显示名称,如 dzwebs.xls ，无路径
Next
End If
End With
只要我们获取了所有工作薄的名称，加上ThisWorkbook.Path语句获取其路径，我们就可以得出Excel文件的完整路径，可在此基础之上，针对问题的需求，通过循环语句或配合其它语句，我们就可以实现批量的操作。

tiantq

您好请问
    With Application.FileSearch
      .NewSearch
      .LookIn = ReviewPath
      .SearchSubFolders = True
      .Filename = ReviewFileName
      .MatchTextExactly = True
      .FileType = msoFileTypeAllFiles
       If .Execute() > 0 Then
         FileCopy ReviewPath & ReviewFileName, UsingPath & NewUsingFileName
         Kill ReviewPath & ReviewFileName
       End If
   
    End With
要在2007上如何实现？