怎样把大量的excel所有表单名称显示在一张表中？

Question

我现在要处理一批文件，大约有几千张excel的报表，每张报表下面又有几十张sheet,每张sheet都有名称，我想把所有这些sheet的名称列在一张excel表里。。。
目前我可以打开一张报表，运行宏列出该报表下所有的sheet名称，但几千张表一张一张这么做会死人的，请教诸位高手有没有什么可以一次性解决的方案，感激不尽！
希望可以在生成的excel表中既包含有sheet名称，又包含有该sheet所属的excel表的名称

格式是差不多的，有没有人可以在这里提供答案啊，谢谢了！

关于宏，单个excel列sheet名称我已经写出来了，但写不出可以自动列出一个文件夹下所有excel的sheet名称的程序，三楼的朋友什么高招吗？

Answer 1

On Error Resume Next
For j = 1 To 1000 '这个1000表示要登记的工作表的个数,你可以根据你要处理的工作表的数量,具体情况设置大一些.
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & j & ".xls" '这里的ActiveWorkbook.Path 表示你所操作的工作表与要打开的工作表都在同一个目录下面;另外这里的j是你要打开进行操作的工作表的名称,前提就是你把工作表的名称先修改成j,即从1到j进行重命名.这是关键
For i = 1 To ActiveWorkbook.Sheets.Count
Workbooks("新建 Microsoft Excel 工作表.xls").Sheets(1).Cells(j, i) = ActiveWorkbook.Sheets(i).Name'这里的"新建 Microsoft Excel 工作表.xls"中引号内的内容换成你要把所有数据放进去的工作表的名称.
Next i '下一页
ActiveWindow.Close
Next j '下一张工作表
将上面的程序粘贴到你所建的宏下面,但是一定要注意写面写的注释,1是得改工作表的名称,2是得将"新建Microsoft Excel 工作表"几个字符换成宏所在的工作表的名称.如果还不清楚,可以在我的空间里留言.

Answer 2

这个．．．．好象还没有解决这个问题的办法