请教各位大哥，以下代码如何达成，百思不得其解，谢谢各位

千思不得其解。
是这样吗？
从　D:\001　往下搜索子文件夹，孙文件夹，曾孙文件夹......。
如果找到名为 "DAK-0A0023" 的文件夹，就将其下的 xls 文件的
sheets("文字")抄入 C:\XL01.XLS 。
反问题来了：
会否有超过一个名为 "DAK-0A0023" 的文件夹？
如果找到这个文件夹，有没有指定其下那个 xls 文件？
如果找到，抄入C:\XL01.XLS 那个工作表？


初时本题目没说完整的地方很多，要答问题得先反问问题，我本想临阵退缩，无奈让你递著了，欲罢不能。
树状目录容易错漏， 程式采用递回函数，能历遍所有子文件夹。  
执行 sub main() ，不可以直接执行 Sub 子文件夹及文件()。  
执行 sub main() 前，确保 D:\001 以下文件全部关闭。
还是不太清楚问题，先写出这个，你用复制本试行看看，有问题再修改。
～～～～
Sub main()
子文件夹及文件 "D:\001", False
End Sub
Sub 子文件夹及文件(path As String, v As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
Dim verified As Boolean
verified = v
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If path Like "*\DAK-0A0023" Then
   verified = True
End If
If verified Then
   Set aFiles = FSO.GetFolder(path).Files
   For Each f In aFiles
       Set wb = Workbooks.Open(f)
       Sheets("文字").Copy Before:=ThisWorkbook.Sheets(1)
       wb.Close
   Next
End If
Set aFolders = FSO.GetFolder(path).SubFolders
For Each p In aFolders
    子文件夹及文件 p.path, verified
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
  


将 vba 抄入　C:\XL01.XLS 模块 (Module)　，
执行 sub main()

     With Application.FileSearch
         .NewSearch
         .LookIn = "D:\001"
         .SearchSubFolders = True
         .Filename = "*.xls"
         If .Execute() > 0 Then
             For i = 1 To .FoundFiles.Count
                 你想做的事
             Next i
         End If
end with

8楼vba有点累赘，小改如下：
Sub main()
子文件夹及文件 "D:\001"
End Sub
Sub 子文件夹及文件(path As String)
Application.ScreenUpdating = False
On Error Resume Next
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set aFiles = FSO.GetFolder(path).Files
For Each f In aFiles
   If f Like "*\DAK-0A0023\*.xls" Then
       Set wb = Workbooks.Open(f)
       Sheets("文字").Copy Before:=ThisWorkbook.Sheets(1)
       wb.Close
   End If
Next
Set aFolders = FSO.GetFolder(path).SubFolders
For Each p In aFolders
    子文件夹及文件 p.path
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
～～～
将 vba 抄入　C:\XL01.XLS 模块 (Module)　，
执行 sub main() ，不可以直接执行 Sub 子文件夹及文件()。
执行 sub main() 前，确保 D:\001 以下文件全部关闭。


DAK-0A0023为变量，你要说明从那里可取得这变量。
10楼程式也是可行的，你先完善你的题目说明，然后再请10老师给你完整程式。

哈哈，文件在你那边，我怎麼知道是何原因？
你的文件尾是 .xlsx 吗？
这样试试看
For Each F In aFiles
    MsgBox F '在这里加个显示看看
    If F Like "*\DAK-0A0023\*.xls" Then
        Set wb = Workbooks.Open(F)
        Sheets("文字").Copy Before:=ThisWorkbook.Sheets(1)
        wb.Close