如何借助VBA快速提取工作表名称

1、以下表为例，需要将将所有工作表名称提取并放入名为“目录”的工作表内。

2、我们在开发工具中打开Visual Basic，如果没有开发工具则在自定义功能区勾选。

3、进入VBA界面，输入如下代码Sub ml() Dim sht As Worksheet, k& [a:a].ClearContents [a:a].Num芟鲠阻缒berFormat = "@" [a1] = "目录" k = 1 For Each sht In Worksheets k = k + 1 Cells(k, 1) = sht.Name NextEnd Sub

4、插入一个按钮，并链接至刚才命名的sheet1.ml代码。

5、将该EXCEL文件另存为xlsm格式。

6、最后在“目录”工作表中点击该按钮即可看到自动提取的文件名。