[µo°Ý] Excel 2007 ¦p¦ó§å¶q­×§ï¤u§@ªí¦WºÙ¡H

aer

½Ð°Ý Excel 2007 ¦p¦ó§å¶q­×§ï¤u§@ªí¦WºÙ¡H

clianghot546

°Ñ¦Ò¬Ý¬Ý

Sub getSheetName()
    Dim i As Integer   
    Worksheets(1).Select
    For i = 2 To Worksheets.Count
        Range("A" & (i - 1)).Value = Worksheets(i).Name
    Next
End Sub

aer

¦^´_ 2# clianghot546
ÁÂÁ±zªº¦^ÂСI
¬O§_¦³¤£­n¥Îµ{¦¡ªº¤èªk©O¡H