平时工作中我们经常会遇到需要提取多个工作表名称的情况，下面介绍一下使用VBA快速提取的方法。
工具/原料
EXCEL2010及以上版本
方法/步骤
1、以下表为例，需要将将所有工作表名称提取并放入名为“目录”的工作表内。
2、我们在开发工具中打开VisualBasic，如果没有开发工具则在自定义功能区勾选。
3、进入VBA界面，输入如下蜣贺鱿柢代码Subml()DimshtAsWorksheet,k&[a:a].ClearContents[a:a].Num芟鲠阻缒berFormat="@"[a1]="目录"k=1ForEachshtInWorksheetsk=k+1Cells(k,1)=sht.NameNextEndSub
4、插入一个按钮，并链接至刚才命名的sheet1.ml代码。
5、将该EXCEL文件另存为xlsm格式。
6、最后在“目录”工作表中点击该按钮即可看到自动提取的文件名。
