excel表格如何导出工作表标签

Question

我是用excel表格来做个人档案的每个工作表为一个人的资料！现在有100多人了，我想统计一个名单，也就是说把每个工作表的标签都复制出来整理在一起弄一张名单！每个复制标签很麻烦呀！请教各位有没有什么方法可以将excel表格里面的工作表标签（档案姓名）都导出？ 让他们成一张名单呢？
谢谢大家 我不太明白怎么用宏 谢谢大家 我按照大家的方法试了一下 可以顺利导出 谢谢大家！谢谢！！

Answer 1

假设需要导出工作簿所有的工作表名称；

1、找一个空白工作表，也可以利用原来工作表中不用的列，转到“公式”工具栏，点击名称管理，在跳出来的“名称管理器”中点击新建；

见图一

2、在跳出来的“新建名称”对话框中，“名称”输入：工作表名称，“引用位置”输入公式：=GET.WORKBOOK(1)，点确定；

见图二

3、这时会返回“名称管理器”可以看到刚才新建的名称：工作表名称，点击：关闭；

见图三

4、在A1 单元格输入公式：=IFERROR(REPLACE(INDEX(工作表名称,ROW(A1)),1,FIND("]",INDEX(工作表名称,ROW(A1))),""),"")  回车；

见图四

5、选中A1，下拉填充A列，结果

见图五

说明：GET.WORKBOOK(1)是宏表函数，只能在名称中定义后再引用，功能是取所有工作表完整名称，如果在单元格中定义名称后引用，结果是完整的包含工作簿名称的工作表名称，

见图六

Answer 2

我这里刚好有一个现成的程序，在Excel里按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去
用法：在Excel里按Alt+F8,运行“取表名”。还不明白的话找我，QQ 99137479
Sub 取表名()
Sheets.Add
On Error GoTo ErrorHandler ' 打开错误处理程序。
ActiveSheet.name = "表名"
On Error GoTo 0
Sheets("表名").Move After:=Sheets(Sheets.Count)
For 表号 = 1 To Sheets.Count - 1
Cells(表号, 1).Value = Sheets(表号).name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(表号, 1), Address:="", SubAddress:="'" & Sheets(表号).name & "'!A1", TextToDisplay:=Sheets(表号).name
Next
Sheets("表名").Select
Columns("A:A").EntireColumn.AutoFit
Exit Sub ' 退出程序，以避免进入错误处理程序。
ErrorHandler: ' 错误处理程序。
Select Case Err.number ' 检查错误代号。
Case 1004 ' 发生“文件已打开”的错误。
Application.DisplayAlerts = False
If MsgBox("工作表 表名 已存在，是否覆盖？", vbYesNo) = vbYes Then
ActiveSheet.Delete
Sheets("表名").Cells.Delete
Sheets("表名").Select
Else
ActiveSheet.Delete
Sheets("表名").Select
Exit Sub
End If
Application.DisplayAlerts = True
End Select
Resume ' 将控制返回到产生错误的语句。
End Sub

Answer 3

按下ALT+F11,菜单:插入-模块,复制下面代码.然后按F5运行

Sub tab_name()
Sheets.Add After:=Sheets(Sheets.Count)
a = Sheets.Count
Sheets(a).Select
Sheets(a).Name = "名单"
For x = 1 To a - 1
Cells(x, 1) = Sheets(x).Name
Next
End Sub本回答被提问者采纳

Answer 4

是可以实现的。到网上搜索一个“excel高级工具箱”下载回来。按照说明安装，非常好安装。安装后打开excel表后在工具栏中出现一个“高级工具”。点击高级工具——工作表目录。你所有的工作表标签将都在一个新建立的“工作表目录”中显示出来，而且对原来的工作表有连接的，点击“档案姓名”就可以直接打开这个档案。
下面这个地址是一个excel高级工具箱下载地址，供你参考。
http://www.ce666.com/soft/down/soft_9034.html

Answer 5

这个有点难，因为你的每个表里个人姓名肯定在固定的单元格中，你不妨试着把每个表里的个人姓名导出来，和你要的效果一样的啊！这样的话只要写个符合函数就可以了！