elxs 获取用vba所有工作表的所有标签

在Excel VBA (Visual Basic for Applications) 中，如果你想要获取所有工作簿中的工作表标签，可以使用以下代码片段：

Sub GetWorksheetNames()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sheetNames As Variant
    
    ' 遍历当前工作簿的所有工作表
    For Each wb In ThisWorkbook.Workbooks
        If Not wb Is ThisWorkbook Then ' 确保不是活动工作簿
            For Each ws In wb.Sheets
                ReDim Preserve sheetNames(UBound(sheetNames) + 1) As String
                sheetNames(UBound(sheetNames)) = ws.Name ' 将工作表名称添加到数组中
            Next ws
        End If
    Next wb
    
    ' 打印或进一步处理工作表名
    Debug.Print "All Sheet Names:"
    For Each name In sheetNames
        Debug.Print name
    Next name
End Sub

这段代码会在VBA立即窗口或调试器中打印出所有非活动工作簿中的工作表名称。