如何取得指定工作溥的所有工作表？

[marcoleung]

如何取得指定工作溥的所有工作表？

[BTbug]

Dim i As Integer
Dim sSheets() As String '存储Sheet表的名称

For i = 0 To Sheets.count - 1
ReDim Preserve sSheets(i)
sSheets(i) = Sheet(i).Name
Next i

[88391788]

？请问楼下的， 表的名字 不是sheet开头的 自己改的可以吗用楼上的代码