在同一张工作薄中，我们可以通过VBA代码，获取所有工作表的名称，即工作表的名字。
以下是相关的VBA功能代码，希望对您有所帮助。
Dim sht As Worksheet, i As Integer
For Each sht In Worksheets
Cells(i + 1, 1) = sht.Name
i = i + 1
Next
以上代码功能是，将所有工作表的名字，逐一填充到自A1、A2、A3……即A列中。
代码解释：
For Each sht In Worksheets：循环获取所有工作表。
Cells(i + 1, 1) = sht.Name：将每个工作表的名称填充到A列。
i = i + 1：让A列填充工作表名称的单元格自动往下填充。