vba获取所有的sheet名称

Sub Maco1()

For i = 1 To Sheets.Count

Cells(i, 1) = Sheets(i).Name

Next

End Sub

有的excel禁用宏：

Sub ListAllSheetNamesToConsole()
    Dim ws As Worksheet
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 输出 Sheet 名到立即窗口
        Debug.Print ws.Name
    Next ws
End Sub