获取工作簿中所有子表的名称，并存放在活动表A列

目标

'执行代码后，会将该活动的表格内A列，获取所有子表的名称，将名称存放在A列，其中第一行为标题行

实现代码

'执行代码后，会将该活动的表格内A列，获取所有子表的名称，将名称存放在A列，其中第一行为标题行
Sub CollectAllSheetNames()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim sheetName As String
Dim rowCounter As Integer

' 指定目标工作表
Set targetSheet = ActiveSheet

' 清空当前的内容，除了标题行
targetSheet.Cells.Clear
targetSheet.Cells(1, 1).Value = "所有子表名称" ' 写入标题

rowCounter = 2 ' 从第2行开始

' 遍历工作簿中的所有子表
For Each ws In ThisWorkbook.Sheets
    sheetName = ws.name
    ' 排除目标工作表
    If sheetName <> targetSheet.name Then
        targetSheet.Cells(rowCounter, 1).Value = sheetName
        rowCounter = rowCounter + 1
    End If
Next ws

End Sub