Question

同一文件夹不同excel文件单元格引用

1.现在有几百个文件名不同的excel文件（名称不规则，主要是以客户姓名为名称）。
2，所有文件格式都是一样的。都有4个sheet。
3，现在要求做一个统计表，里面包含各客户的一些数据（姓名，地址，面积，金额），这些数据都在第2个sheet的单元格里。
4.如何实现？
1楼的问题回答可能是正确答案
但是我操作的时候出现“运行时错误‘9’ 下标越界。
是什么意思 ？

另外我补充一下，文件里面4个sheet的名称分别是
装修补偿表
评估数据
产权
违章

我要引用的数据在第二个sheet 评估数据 里面 。

要做怎样修改？

Answer 1

1.在此为了讲解的需要，特制作如图所示的数据表格：

2.为了计算第一季度的销售总量，我们需要将其它三个表格中对应位置的数据进行累加，对此按以下步骤来操作：

在“第一季度销售量”工作表“C3”单元格中输入"=sum("内容，然后点击“一月份销售”工作表。

3.接着点击对应的C3单元格，然后输入一个“逗号”，并点击“二月份销售”工作表。

4.在此工作表中点击“C3”单元格，并再输入一个“逗号”，并点击“三月份销售”工作表。

5.在“三月份销售量”工作表中点击“C3”单元格后，再输入“）”，并按回车即可完成对前三个工作表对应位置数据的引用。

6.然后就可以在“第一季度销售量”工作表中看到计算结果啦。

7.将该公式复制到其它单元格即可完成对工作表数据的引用及计算操作。

Answer 2

可以用VBA实现
在该文件夹下新建一个excel文件，打开该文件后按住ALT，依次按F11,I,M
粘贴下面的代码后按F5，即可在该文件中获得该目录下所有*.xls文件的sheet2的A1,B2,C3的内容。
具体单元格坐标根据需要修改。

Sub test()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls")
m = ThisWorkbook.Name
R = 1
Do
If f <> m Then
Workbooks.Open (p & f)
R = R + 1
With Workbooks(m).Sheets(1)
.Cells(R, 1) = Sheets("sheet2").[A1]'将A1值放在新表的第1列
.Cells(R, 2) = Sheets("sheet2").[B2]'将B2值放在新表的第2列
.Cells(R, 3) = Sheets("sheet2").[C3]
'依次添加其他要读取的单元格
End With
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
f = Dir
Loop Until f = ""
Application.ScreenUpdating = True
End Sub

对补充问题的回复：
将代码中所有"sheet2"改为"评估数据"