Excel 2016获得所有sheet名称

1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后，点击插入模块。
4、点击插入模块后，输入代码

Sub m()
For Each sh In Sheets
k = k + 1
Cells(k, 1) = sh.Name
Next
End Sub

然后点击运行。

5、点击运行后，所有sheet名称就都提取出来了。