1、通过定义名称结合GET.WORKBOOK函数可非VBA提取工作表名；2、使用Power Query导入工作簿结构获取名称列表；3、利用VBA宏代码遍历工作表并输出名称，适合大批量处理。
如果您需要在Excel中对多个工作表进行统一管理或引用，但手动记录每个工作表名称效率低下，则可以通过内置功能或公式快速提取所有工作表的名称。以下是几种有效的操作方法：
本文运行环境：Surface Laptop 5，Windows 11
一、使用定义名称结合GET.WORKBOOK函数
该方法利用Excel的宏表函数GET.WORKBOOK来获取当前工作簿中所有工作表的名称列表，通过定义名称实现非VBA方式提取。
1、点击“公式”选项卡，选择“名称管理器”，然后点击“新建”。
2、在“名称”框中输入一个自定义名称，例如 SheetList。
3、在“引用位置”输入以下公式：=GET.WORKBOOK(1)。
4、点击“确定”并关闭名称管理器。
5、在任意单元格中输入公式 =SheetList，向下拖动以显示所有工作表名称。
二、使用Power Query提取工作表名称
Power Query能够连接并加载工作簿结构信息，适用于无需编程即可可视化提取工作表名称的场景。
1、点击“数据”选项卡，选择“获取数据” → “从其他源” → “从工作簿”。
2、选择当前工作簿文件并导入，在导航器中会列出所有可用的工作表名称。
3、选中带有工作表名称的行（通常为表对象列表），点击“转换数据”进入编辑界面。
4、删除除“Name”列外的所有列，确保只保留工作表名称字段。
5、点击“关闭并上载”，结果将自动输出到新工作表中。
三、使用VBA宏代码批量提取
通过编写VBA代码可以快速遍历所有工作表，并将其名称输出到指定工作表中，适合处理包含大量工作表的文件。
1、按下 Alt + F11 打开VBA编辑器。
2、在左侧项目窗口中右键点击当前工作簿名称，选择“插入” → “模块”。
3、在代码窗口中粘贴以下代码：
Sub ExtractSheetNames()
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each ws In ThisWorkbook.Worksheets
Sheets("Sheet1").Cells(i, 1).Value = ws.Name
i = i + 1
Next ws
End Sub
4、修改代码中的 "Sheet1" 为目标输出工作表名称，确保该工作表存在。
5、关闭编辑器并返回Excel，按下 Alt + F8 运行宏 ExtractSheetNames。
