ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

°Ñ¦Ò¬Ý¬Ý

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD