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

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

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

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

 我来答

2个回答

#热议# 为什么说不要把裤子提到肚脐眼？

风雪烈焰
2007-09-08 · TA获得超过418个赞

知道小有建树答主

回答量：98

采纳率：0%

帮助的人：134万

我也去答题访问个人页

关注

展开全部

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 工作表"几个字符换成宏所在的工作表的名称.如果还不清楚,可以在我的空间里留言.

本回答由提问者推荐