求助：根据单元格内的名称查找工作簿并取值

songchen624

求助啊：请问下各位老师个问题，我想根据一个excel表中某个单元格中的姓名，查找相同文件夹下名称相同的文件，并取值。例如：汇总表中A1为张三，B1为李四，查找同一个文件夹下有 文件夹.rar (18.68 KB, 下载次数: 8)

2014-1-16 10:12 上传

点击文件名下载附件

名称为张三和李四的文件，并把张三文件中A1的值赋给汇总表中张三名称的后面，李四文件中的A1赋给李四名称的后面.

grf1973

1. Sub 汇总()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:b" & r)
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     Set ff = fso.getfolder(ThisWorkbook.Path)
   
6.     For Each f In ff.Files
   
7.         If InStr(f, "~$") = 0 And f <> ThisWorkbook.FullName Then
   
8.             xstr = Split(f.Name, ".")(0)
   
9.             Workbooks.Open f
   
10.             Set wb = ActiveWorkbook
    
11.             For i = 1 To UBound(arr)
    
12.                If arr(i, 1) = xstr Then arr(i, 2) = wb.Worksheets(1).[a1]: Exit For
    
13.             Next
    
14.             ActiveWorkbook.Close False
    
15.         End If
    
16.     Next
    
17.     Range("a1:b" & r) = arr
    
18. End Sub
    

复制代码

grf1973

请看附件。

songchen624

厉害厉害，运行成功了，好好研究研究，太感谢啦

songchen624

grf1973 发表于 2014-1-17 14:57
请看附件。

厉害厉害，运行成功了，好好研究研究，太感谢啦

兰若无界

学习了。刚好有需要用到