1.按ALT+F11进入VBE编辑器
2.双击需要放在sheet中，打开编辑器
3.复制如下代码到编辑器中：
Sub GetShNames()
i = i + 1
For Each wb In ThisWorkbook.Sheets
WorkSheets(1).Cells(i, 1) = wb.Name
i = i + 1
Next
End Sub
4.按F5运行，就会在第一张工作表的第一列列出工作簿中的所有工作表名称，
若不是想放在第一张工作表上，可更改代码中的WorkSheets(1)括号里的值