如何得到Excel的所有工作表名称

Question

set xlsheet=xlbook.worksheets(1)
sName=xlsheet.name
这样只能得到一个工作表的名称,我想通过一个循环取得所有工作表的名称，请高手赐教！急

Answer 1

Sub ShowSheetName()
    Dim Sheet As Worksheet
    For Each Sheet In Worksheets
        Debug.Print Sheet.Name
    Next
End Sub

Answer 2

非常感谢！我也找到了另一种方法与大家一起分享：
Sub ShowSheetName()
    dim i      as long
    for i=1 to xlbook.Sheets.Count 
        set xlsheet=xlbook.worksheets(1)
        debug.print xlsheet.name
    next i
end sub
看来这里确实还是有高手!希望大家都常来灌水，互相交流，共同进步！