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

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

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

3、进入VBA界面，输入如下代码

Sub ml()

    Dim sht As Worksheet, k&

    [a:a].ClearContents 

    [a:a].NumberFormat = "@"

     [a1] = "目录"

    k = 1

    For Each sht In Worksheets

        k = k + 1

        Cells(k, 1) = sht.Name

    Next

End Sub

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

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

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