怎样导出EXCEL中100个sheet工作表的表名？

Question

如题所述

Answer 1

用VBA吧，导到哪去？追问

简单一点好，最好能不要用什么负责的软件

追答

负责的软件是什么意思？
VBA是EXCEL自带的，由微软公司负责

不知道你要导出到哪里去？呵呵

追问

复杂，不是负责，抱歉

追答

说了半天，不知道你说的什么，问你导出到哪你，避而不谈，晕。帮不了你。不好意思。

追问

随便导到哪里啊，我只要把工作表的名字导成文本文字就行了。
就是sheet1、sheet2、sheet3那些名字（但我的表已经重命名了，不是这些名字）
因为表太多了，每个表都有不同的名字，我要分别双击才能复制表名出来
问怎样才能快速导出这些名字

追答

你新建一个工作表，取名为：目录
我们把这个工作簿的除这个叫目录的工作表名不提取外，其他所有工作表全部得取出来
只要运行这个宏不行了。直接在目录工作的A列写入了这些工作表名称。且A1单元格为：工作表目录字样。
Sub 提取工作表名()
Dim i&, x&
With Sheets("目录")
.Range("A:A").ClearContents
.Range("A1") = "工作表目录"
i = 1
For x = 1 To Sheets.Count
If Sheets(x).Name "目录" Then
i = i + 1
.Cells(i, 1) = Sheets(x).Name
End If
Next x
End With
End Sub
无论你有多少个工作表，运行此宏后，就是现有工作表的表名在A列了。
把以上代码复制一下，
打开你的EXCEL，按Alt+F11打开VBA编辑器，右键插入模块，把代码粘贴到右边的编辑框即可
在你的EXCEL中建立一个新表，命名为：目录
运行这个宏，就完成你的工作了。
以后你有这个工作簿有增减工作表，就运行一下这个宏，就更新了。

本回答被提问者采纳

Answer 2

导出到什么地方？追问

导出文字就行了，就是要表名而已
sheet1、sheet2、sheet3……这些名字