Question

如何提取一个EXCEL文件中的所有工作表的名称？

Answer 1

方法1
1、首先，我分享第一个方法，这个方法可是非常简单的哦。打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”。
2、找到“查看代码”并打开，查找方法如下图所示，有以下两个方法：1.鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；2.找到工具栏中的“开发工具”，可以看到“查看代码”在“控件”下拉菜单中。
3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框，在其中输入以下内容：
sub
a()
for
each
sh
in
sheets
k
=
k
+
1
cells(k,
1)
=
sh.name
next
end
sub

Answer 2

VBA可以：
右键单击任意一个工作表标签——查看代码：在跳出的窗口中输入一下代码：
sub
表名()
dim
n
as
integer
for
n
=1
to
worksheets.count
cells(n,1)=worksheets(n).name
next
end
sub
然后按F5即可