同一文件夹下的许多工作簿，如何在不一一打开的前提下查找某个数据在某个工作簿？

garblin

收藏一下，谢谢分享！{:soso__3951476534595763788_1:}

CYJLLH

ado

ADO     无法运行？要求调试。

zhaogang1960

CYJLLH 发表于 2015-12-11 19:50
ADO     无法运行？要求调试。

是否安装了简化版Office？如果是请重新安装完全版本Office

bajifeng

楼主，后台打开可以接受吗？ 不显示出来，速度也很快的。

bajifeng

tank_wangze 发表于 2014-6-2 20:56
里面有七个村的工作簿，然后我想找一个人名，比如吴里俊(现实情况其实更多的是查找身份证，因为身份证号 ...

帮你做一个搜索的模板，你每次放到文件夹下直接搜索就行。

bajifeng

1. Sub 搜索()  'by: bajifeng
   
2. Dim brr()
   
3. pn = [b3].Value
   
4. [c3:e10] = ""
   
5. fn = GetFilesList(ThisWorkbook.Path)    'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
   
6. Application.ScreenUpdating = False  
   
7. For l = 0 To UBound(fn)
   
8.     Workbooks.Open fn(l)
   
9.     For Each Sht In Worksheets
   
10.         m = m + 1
    
11.         n = n + 1
    
12.         Sheets(n).Activate
    
13.         lr = [a65536].End(3).Row
    
14.         arr = Range("a3:a" & lr).Value
    
15.         ReDim Preserve brr(1 To 3, 1 To n)
    
16.         For i = 1 To UBound(arr)
    
17.             If arr(i, 1) = pn Then
    
18.                 brr(1, n) = Replace(Split(fn(l), "")(UBound(Split(fn(l), ""))), ".xls", "")
    
19.                 brr(2, n) = Sht.Name
    
20.                 brr(3, n) = CStr(i + 2)
    
21.                 brr(3, n) = "A" & brr(3, n)
    
22.                 ActiveWorkbook.Close
    
23.                 GoTo 100
    
24.             End If
    
25.         Next
    
26.     Next
    
27.     ActiveWorkbook.Close
    
28.     n = 0
    
29. Next
    
30. 100:
    
31. [c3].Resize(1, 3) = Application.Transpose(brr)
    
32. Application.ScreenUpdating = True
    
33. MsgBox "处理完毕！"
    
34. End Sub
    
35. Function GetFilesList(sPath$) As Variant    'bajifeng
    
36. Dim arr()
    
37. Set fso = CreateObject("scripting.filesystemobject")
    
38. Set ff = fso.getfolder(sPath)
    
39. For Each f In ff.Files
    
40.     If Not InStr(f.Name, ThisWorkbook.Name) > 0 Then
    
41.         ReDim Preserve arr(n)
    
42.         arr(n) = f   
    
43.         n = n + 1
    
44.     End If
    
45. Next
    
46. GetFilesList = arr
    
47. End Function

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>>>>>

bajifeng

楼主，给你传个使用的示意动画吧，方便你操作。

bajifeng

只要把27楼的文件，放在你要查询的文件夹下，
先在B3输入需要搜索的名字，然后点击搜索按钮
即能出啊先你要的文件名、工作表名的信息，把名字所在的单元格也帮你一起弄了了。

此模板具备通用性。

CYJLLH

zhaogang1960 发表于 2015-12-11 20:16
是否安装了简化版Office？如果是请重新安装完全版本Office

我安装了完整版office2007但是还是不行，能否随便发一个关于

ado

Set cnn = CreateObject("adodb.connection")语句，能完美运行的简单例子文件。我看看我这里能否运行。