在指定文件夹的好多EXCEL里查找一串字符，最后显示所查找出来的表。

小马2012

各位老师：
       现在一个文件夹里有好多工作表，需要在这些EXCEL表中找出有“20124587111AA-4411“有这个字符的表。其中“20124587111AA-4411“这个占用了工作表的一个单元格。
      求求各位！急呀！

小马2012

各位老师：
       现在一个文件夹里有好多工作表，需要在这些EXCEL表中找出有“20124587111AA-4411“有这个字符的表。其中“20124587111AA-4411“这个占用了工作表的一个单元格。
     有VBA也解决也行！

     求求各位！先谢谢各位老师了！

李甲

思路：
遍历工作簿
打开
遍历工作表
USEDRANGE
FOR NEXT判断
完成

张三李四

李甲 发表于 2013-3-26 14:45
思路：
遍历工作簿
打开

二个遍历赞同，最后一个for 有点。。。。。。

小马2012

李甲 发表于 2013-3-26 14:45
思路：
遍历工作簿
打开

你好！我还看不懂，您能给我详细说一下吗？
这个遍历工作簿，我没听过？

鬼火6

点击开始---搜索---所有文件和文件夹---

小马2012

鬼火6 发表于 2013-3-26 15:10
点击开始---搜索---所有文件和文件夹---

你好，这个我试了，不行！找不出来

zhaogang1960

采用上面二位老师的思路，如果不合题意，请楼主上传附件说明：

1. 
   
2. Sub Macro1()
   
3.     Dim p$, f$, sh As Worksheet, c As Range, arr$(1 To 10000, 1 To 2), m&
   
4.     Application.ScreenUpdating = False
   
5.     p = ThisWorkbook.Path & ""
   
6.     f = Dir(p & "*.xls")
   
7.     Do While f <> ""
   
8.         If f <> ThisWorkbook.Name Then
   
9.             With GetObject(p & f)
   
10.                 For Each sh In .Sheets
    
11.                     Set c = sh.UsedRange.Find("20124587111AA-4411", , , 1)
    
12.                     If Not c Is Nothing Then
    
13.                         m = m + 1
    
14.                         arr(m, 1) = f
    
15.                         arr(m, 2) = sh.Name
    
16.                     End If
    
17.                 Next
    
18.                 .Close False
    
19.             End With
    
20.         End If
    
21.         f = Dir
    
22.     Loop
    
23.     Cells.ClearContents
    
24.     Application.ScreenUpdating = True
    
25.     If m > 0 Then
    
26.         [a1:b1] = Array("工作簿", "工作表")
    
27.         [a2].Resize(m, 2) = arr
    
28.     Else
    
29.         MsgBox "没有查到符合条件的工作表"
    
30.     End If
    
31. End Sub
    
32. 
    

复制代码

zyg365

zhaogang1960 发表于 2013-3-26 15:59
采用上面二位老师的思路，如果不合题意，请楼主上传附件说明：

修改一下：更详细，单元格地址——工作簿 工作表 单元格地址
Sub Macro1()
    Dim p$, f$, sh As Worksheet, c As Range, arr$(1 To 10000, 1 To 3), m&
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            With GetObject(p & f)
                For Each sh In .Sheets
                    Set c = sh.UsedRange.Find("zyg", , , 1)
                    If Not c Is Nothing Then
                        m = m + 1
                        arr(m, 1) = f
                        arr(m, 2) = sh.Name
                        arr(m, 3) = c.Address
                    End If
                Next
                .Close False
            End With
        End If
        f = Dir
    Loop
    Cells.ClearContents
    Application.ScreenUpdating = True
    If m > 0 Then
        [a1:c1] = Array("工作簿", "工作表", "单元格地址")
        [a2].Resize(m, 3) = arr
    Else
        MsgBox "没有查到符合条件的工作表"
    End If
End Sub

小马2012

首先谢谢各位，太厉害了，能做出来了！~
----------------------
另外，现在所有工作簿要放到同一个文件夹里才能找到，能不能在这个1级文件夹下查找本级或2级文件夹下、3级文件夹下、**，都能找到这个工作簿（也就是这个文件夹下有工作簿也有还有文件夹等，要从1级级文件夹下查所有）。且在显示成果的工作簿做个链接什么的，直接一点就打开这个工作
簿！~

----------------
还有，我发现现在统计出来的结果，在“工作簿”列把文件名和条数合到一起了，能不能把文件名和条数分开一下@


谢谢各位呢！？？？