no3-taco

ª±ª±¬Ý¡A²¤Æ¹Lªº»¼°jª©

1. Sub ³o¸Ì°õ¦æ()
   
2. Dim rw As Long, ilevel As Long: rw = 1: ilevel = 0
   
3. GetSubs "C:\Users\Administrator\Desktop" & "\", rw, ilevel '©I¥s°Æµ{¦¡"#­×§ï¸ô®|#
   
4. End Sub
   
5. Sub GetSubs(sPath As String, rw As Long, ilevel As Long)
   
6. Dim ary1() As String: ReDim ary1(0): Dim sName
   
7. sName = Dir(sPath, vbDirectory)
   
8. Do While sName <> ""
   
9.     On Error Resume Next  '¦³¿ù»~¸õ¹L
   
10.     If sName <> "." And sName <> ".." And (GetAttr(sPath & sName) And vbDirectory) = vbDirectory Then
    
11.     'If Err = 0 Then  '¨S¦³¿ù»~®É
    
12.         ReDim Preserve ary1(UBound(ary1) + 1)
    
13.         ary1(UBound(ary1)) = sName
    
14.     End If ': End If
    
15.     sName = Dir
    
16. Loop
    
17. For i = 1 To UBound(ary1)
    
18.     rw = rw + 1
    
19.     GetSubs sPath & ary1(i) & "\", rw, ilevel + 1    '»¼°j©I¥s
    
20. Next i
    
21. sName = Dir(sPath)
    
22. If Dir(sPath & [A1]) = [A1] Then
    
23.    Workbooks.Open sPath & [A1]    '¶}±ÒÀÉ®×
    
24. End
    
25. End If
    
26. End Sub

½Æ»s¥N½X

no3-taco

°Ñ¦Ò¬Ý¬Ý!²³æªºFSO·j´M

1. Sub ©I¥s³B() '©I¥s³B
   
2. Dim FirstPath: FirstPath = "C:\Users\Administrator\Desktop\" '¸ô®|....¦Û¦æ­×§ï
   
3.     SearchFile FirstPath
   
4. End Sub
   
5. 
   
6. Sub SearchFile(ByVal xPath As String)
   
7. Dim objPath As Object, xFile As Object, xFolder As Object
   
8. Set objPath = CreateObject("Scripting.FileSystemObject").getfolder(xPath)
   
9. For Each xFile In objPath.Files         '¸Ó¼hÀɮצWºÙ¶°¦X
   
10.     If xFile.Name = [a1] Then           '¶}±ÒªºÀɮצWºÙ....¦Û¦æ­×§ï
    
11.         Workbooks.Open xFile.Path       '¶}±ÒÀÉ®×
    
12.         End
    
13.     End If
    
14. Next
    
15. For Each xFolder In objPath.SubFolders '¬Y¼h¤l¸ê®Æ§¨¶°¦X
    
16.     SearchFile xFolder.Path
    
17. Next
    
18. End Sub

½Æ»s¥N½X