一、使用SHEETSNAME函数（适用于WPS和Excel）

基本语法

`=SHEETSNAME（[参照区域][结果方向][是否包含当前工作表]）`

参数说明

参照区域：指定包含工作表名称的单元格（如`Sheet1!A1`）

结果方向：0（行）或1（列）

是否包含当前工作表：0（包含）或1（不包含）

示例应用

获取当前工作簿所有工作表名称（省略参数）：`=SHEETSNAME（）`

获取指定工作表名称（如"行政部"）：`=SHEETSNAME（行政部!B2）`

将名称按行输出到新工作表：`=SHEETSNAME（A2,0,0）`（需手动复制结果）

二、使用VBA宏（适用于Excel）

基础代码

```vba

Sub ListAllSheetNames()

Dim ws As Worksheet

Dim newSheet As Worksheet

Dim i As Integer

Set newSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

newSheet.Name = "SheetNames"

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> newSheet.Name Then

newSheet.Cells(i, 1).Value = ws.Name

i = i + 1

End If

Next ws

MsgBox "所有工作表名称已提取到" & newSheet.Name & "工作表中！"

End Sub

```

操作步骤

按 `Alt + F11` 打开VBA编辑器，插入新模块并粘贴代码

运行宏后，会生成一个名为"SheetNames"的新工作表，填充所有工作表名称

三、使用Python的openpyxl库（适用于批量处理）

安装与导入

```bash

pip install openpyxl

```

示例代码

```python

import openpyxl

```

操作说明

读取Excel文件，遍历所有工作表并重命名

四、其他方法

手动操作：

通过`Ctrl+A`全选文件，复制路径后粘贴到Excel，再通过`Ctrl+H`替换为工作表名称

Power Query：适用于数据提取后进一步处理

以上方法可根据场景灵活选择，函数和宏适合快速查看，而Python适合批量处理需求。