这要用到VBA,我现有的就有一个
如果需要进一步的话,可Hi我....

Set fso = CreateObject(Scripting.Filesystemobject)
Set fc = fso.GetFolder(C:\files)
i=1
'历遍文件夹中所有Excel工作表
For Each fo In fc.Files
If fo.Type = Microsoft Excel Worksheet Then

cells(i,1)=fo.Name
......加入模块处理各工作表里的数据

i = i + 1
End If
Next