怎么快速提取一个excel文件中的所有工作表名

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

输入后点击工具栏中的“运行”，点击下拉菜单中的“运行子过程/用户窗体”，运行完毕后即完成所有工作表名的提取。



4.查看结果

方式2：

1.利用公式，首先我们打开工具栏中的“公式”选项卡，点击下拉菜单中的“定义名称”。

2.定义一个名称，以定义为“abc”为例，另外在引用位值处输入“=get.workbook(1)”，然后点击“确定”。

3.接着我们随便点击一个单元格，在其中输入以下公式“=INDEX(abc,ROW(A1)&T(NOW()))”,然后直接在键盘上点击“Enter”即可看到这个单元格中已经包含第一个工作表名了，接着我们用鼠标左键下拉即可得到所有的工作表的名称。

4.从以上得到的名称可以看出，我们得到的名称除了工作表名称外还有工作薄名称，所以接下来我们还要去除工作薄名称，首先选中刚刚得到的所有工作表名称，Ctrl+c（或者右键点击复制），然后随便选中一个单元格，点击鼠标右键，选择“选择性粘贴”中的“值”即完成粘贴。

5.接着我们选中粘贴的所有工作表名称，在“数据”下拉菜单中点击“分列”进入以下窗口，选择“固定宽度”后点击“下一步”。