大神给你来段vba例子瞧瞧，
subtest()
dimxls_folderasstring
xls_folder
extxls
dimxlsfiles()asstring
dimfso,f,fc,s
setfsocreateobject()
setf(xls_folder)
setfc
s
foreachf1infc
ifnotstrcomp(right(,4),.xls,1)th
最简洁快速的做法莫过于用indirect函数。
请看示例：
从上例来说。
假如有60个表格，拟取所有表格的b列数值到汇总表格。
在第一行b1开始输入所有表格名。
在a列输入行序号
在b2输入：
indirect(b$1amp#34!b#34amp$a2)
（注意公式里的$）
向右向下复制至需要的位置。
成功！
indirect是我比较喜欢的一个函数，使用巧妙可以解决许多大问题。
在sheet1中，在比如g4输入a4“-”b4，公式复制下去。嫌难看，隐藏该列。
在sheet2中，在c4输入index(sheet1!$c$4:$c$1000,match(a4-b4,sh:$g$1000,)
就可以了。
使用vlookup函数公式，即可快速查询和提取相应值。
具体步骤：
定位到表二的第2列（例如:b,2,false)
将公式往下拉（鼠标放在单元格右下角，出现黑色加粗的十字符号时，向下拖拉自动填充）
如果不希望有公式，而是只要结果，可以使用选择性粘贴的方法，去除公式。
具体方法：
选中含公式的单元格区域，并复制。
在原处右击单元格
点击”选择性粘贴“
选择”值与数字格式“即可
