一、使用公式提取Sheet名称

基本公式法

在任意单元格输入公式 `=MID（CELL（"filename",A1）,FIND（"]",CELL（"filename",A1））+1,255）`，按回车后显示当前工作表名称。此公式通过解析文件名获取Sheet名，需注意文件需保存为启用宏的`.xlsm`格式。

动态填充提取多个Sheet名

定义名称 `=GET.WORKBOOK（1）`（需保存为`.xlsm`格式）；

在目标单元格输入 `=INDEX（提取名称，ROW（A1））` 并向下填充，可批量获取所有Sheet名。

二、使用VBA宏提取

简单宏代码

按 `Alt + F11` 打开VBA编辑器，插入新模块并输入以下代码：

```vba

Sub ListSheetNames()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

MsgBox ws.Name

Next ws

End Sub

```

运行后逐个弹出Sheet名。

批量生成名称列表

在新Sheet中输入 `=GET.WORKBOOK（1）` 定义名称；

输入 `=INDEX（提取名称，ROW（A1））` 并填充，可生成完整路径的Sheet名列表。

三、手动复制粘贴（适用于少量Sheet）

路径提取法

通过 `Ctrl+A` 全选文件路径，复制后粘贴到Excel；

使用 `Ctrl+H` 替换内容为 `=MID（原路径，FIND（"]"，原路径）+1,255）`，再替换为完整Sheet名。

四、注意事项

文件格式要求：

部分方法（如公式和VBA）需将Excel保存为启用宏的 `.xlsm` 格式；

性能优化：对于大量Sheet，建议使用VBA批量处理，避免手动操作效率低下。

以上方法可根据场景灵活选择，公式适合快速查看，VBA适合自动化处理，手动方法适合小规模数据。