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

Question

如题所述

Answer 1

1、打开一个含有多个工作表的excel工作薄，然后新建一个工作表，此处命名为“汇总表”，如下图所示。

2、找到“查看代码”并打开，鼠标右键点击“汇总表”，在下拉菜单中找到“查看代码”；

3、点击“查看代码”后进入如下对话框，双击“sheet7(汇总表)”可以看到右边弹出sheet7代码输入框，在其中输入以下内容：

Suba()

ForEachshInSheets

k=k+1

Cells(k,1)=sh.Name

Next

EndSub

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

4、接下来点击“工程”中的“查看对象”即可回到工作薄中，可以看到工作表名已经全部提取出来了，

5、完成效果图。