如何用VBA获取不同Excel文件中同一位置的值并汇总?

reallulo

各位大侠好!

假设我有10个Excel文件, 每个Excel文件的只有一个Sheet. 且每个文件中Sheet的基本格式是一致的, 比如B5单元格是我想要汇总的值.
我希望了解如何在Summary表中列出10个Excel中的10个值?

如果需要举一反三, 单元格变成了F76呢?

求助文件请见附件. Sample.zip (65.54 KB, 下载次数: 13)

2014-10-10 15:58 上传

点击文件名下载附件
Sample

Kind Regards,
Donnel

a68508122

test01.rar (70.4 KB, 下载次数: 29)

2014-10-10 16:42 上传

点击文件名下载附件

请笑纳

临时户口

1. Sub demo()
   
2.     Dim d      As New Dictionary
   
3.     Dim arr(1 To 10)
   
4.     Dim m      As Long
   
5.     Dim str    As String
   
6.     Dim st     As String
   
7.     Application.DisplayAlerts = False
   
8.     Application.ScreenUpdating = False
   
9.     str = ThisWorkbook.Path
   
10.     st = Dir(str & "\*.xlsx")
    
11.     Do While st <> ""
    
12.         If st <> "." And st <> ".." And st <> ThisWorkbook.Name Then
    
13.             m = m + 1
    
14.             Workbooks.Open Filename:=str & "" & st
    
15.             d.Add st, ActiveSheet.Range("b5").Value
    
16.             Workbooks(st).Close
    
17.         End If
    
18.         st = Dir
    
19.     Loop
    
20.    
    
21.     For m = 2 To 11
    
22.     Workbooks(ThisWorkbook.Name).Sheets(1).Cells(m, 2) = d.Item(Cells(m, 1).Value)
    
23.     Next
    
24.     Application.DisplayAlerts = True
    
25.     Application.ScreenUpdating = True
    
26. End Sub

复制代码

临时户口

把你文件的数据稍微改了改 吧文件的后缀名都加上了

reallulo

感谢2位高手, 让我消化一下, 看不懂的地方还要向你们请教呢!

多谢多谢!

韦兴华

a68508122 发表于 2014-10-10 16:42
请笑纳

试了一下,真厉害的说. 能不能再升级一下功能:

1) 变成选择文件夹的方式, 文件夹下所有的XLSX中的指定单元格均会被导出汇整;
2) 要导出的指定单元格的地址名字能定在汇总的这个表中, 这样可以方便自定义要导哪些单元格.

麻烦啦...