使用EXCEL宏取得所有Sheet名

问题：
一个EXCEL中有N个SHEET 
想把所有的SHEET的名字都读到一个SHEET中。

解决方案：
1、点击工具－－选项－－安全性－－宏安全性－－在安全级里面选择最后一个低。 
2、点击工具－－宏－－宏－－在宏名中输入SheetName－－点击创建按钮。 
3、将下面的代码复制、粘贴－－按F5执行 

Sub SheetName() 

    For i = 1 To Sheets.Count 
            
            Worksheets(Sheets(1).Name).Cells(i, 1).Value = Sheets(i).Name 
    Next i 

End Sub 

注意： 
 1、Worksheets(Sheets(1).Name)是你的第一个sheet，你也可以改成 Worksheets("sheetname")，其中的sheetname是你想要存放的sheet的名称  

 

http://www.blogjava.net/xiekai-blog/archive/2008/02/21/180993.html