[已解决]子文件夹中多工作簿查找

briancai20

在附件文件夹中的子文夹里的所有工作簿中查找77274并返回路径或是地址。

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-30 20:16

………………

跳转到最佳答案楼层

briancai20

数据见附档。谢谢！

dsmch

1. Dim s, n
   
2. Sub Macro1()
   
3. s = 77274: n = 0
   
4. [a:a] = ""
   
5. aa ThisWorkbook.Path & ""
   
6. End Sub
   
7. Sub aa(p)
   
8. Set fs = CreateObject("scripting.FileSystemObject")
   
9. Set sht = ThisWorkbook.Sheets(1)
   
10. Application.ScreenUpdating = False
    
11. For Each f In fs.GetFolder(p).Files
    
12.     If f <> ThisWorkbook.FullName Then
    
13.         With Workbooks.Open(f)
    
14.             Set rng = .Sheets(1).UsedRange.Find(s, lookat:=xlWhole)
    
15.             If Not rng Is Nothing Then n = n + 1: sht.Cells(n, 1) = f & "" & rng.Address(0, 0)
    
16.             .Close 0
    
17.         End With
    
18.     End If
    
19. Next
    
20. For Each m In fs.GetFolder(p).SubFolders
    
21.     aa m
    
22. Next
    
23. Application.ScreenUpdating = True
    
24. End Sub

复制代码

dsmch

………………

briancai20

太感谢了，太有用了

乐乐2006201506

最佳答案是哪个，请标注！