在VBA中将工作表名称作为数组变量

Sub StoreWorksheetNames()

    Dim wsNames() As String
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 计算工作表的数量
    ReDim wsNames(1 To Worksheets.Count)
    
    ' 将工作表名称存储到数组中
    i = 1
    For Each ws In Worksheets
        wsNames(i) = ws.Name
        i = i + 1
    Next ws
    
    ' 打印数组中的工作表名称
    For i = LBound(wsNames) To UBound(wsNames)
        Debug.Print wsNames(i)
    Next i
    
End Sub