Hsieh

¦^´_ 5# threelin

1. Sub ex()
   
2. n = Sheets("g").[A1]
   
3. sht = Array("c", "e", "g")
   
4. ipath = ThisWorkbook.Path & "\"
   
5. For Each sh In Sheets(sht)
   
6. sh.Copy
   
7. With ActiveWorkbook
   
8. fs = ipath & sh.Name & n & ".xls"
   
9. .SaveAs fs
   
10. .Close
    
11. End With
    
12. Next
    
13. End Sub

½Æ»s¥N½X

threelin

¦^´_ 2# Hsieh


    Hsieh ª©¥D

    ­è¤~ªº¿ù»~¡A§Úµo²{¬O§ÚA1ªº¼Æ­È¨S¥´©Ò³y¦¨ªº¡C

    §Ú¤S­«·s°õ¦æ¤F¤@¦¸¡A¦ý¤£¬O§Ú»Ý­nªºµ²ªG¡C

     §Ú·Q­nc¡Be¡Bg¤T­Ó¤u§@ªíÅܦ¨¤T­Ó¿W¥ßªºÀɮסA ÀɦW¤À§O¬° c 20120408.xls¡Be 20120408.xls¡B g 20120408.xls

     ¦A³Â·Ð±zÀ°¦£¡AÁÂÁ±z¡C

register313

¦^´_ 3# threelin

1. Sub ex()
   
2. sh = Array("c", "e", "g")
   
3. ipath = ThisWorkbook.Path & "\"
   
4. Sheets(sh).Copy
   
5. With ActiveWorkbook
   
6. .SaveAs ipath & Sheets("g").[A1] & ".xls"
   
7. .Close
   
8. End With
   
9. End Sub

½Æ»s¥N½X

­×¥¿2³B,¸Õ¸Õ¬Ý
¦A¦³°ÝÃD,­n´£¨ÑEXCELÀ£ÁYÀÉ

threelin

¦^´_ 2# Hsieh


    ·PÁÂHsieh ª©¥D¡C

§Ú°õ¦æ«á¡A¥X²{¿ù»~ªº¤pµøµ¡¡Aµøµ¡ªº¥N¸¹400¡A½Ð±Ð±z¬O¤°»ò­ì¦]¡AÁÂÁ¡C

Hsieh

¦^´_ 1# threelin
ª½±µÂàĶ¦¨VBA

1. Sub ex()
   
2. sh = Array("c", "e", "g")
   
3. ipath = ThisWorkbook.Path & "\"
   
4. Sheets(sh).Copy
   
5. With ActiveWorkbook
   
6. .SaveAs ipath & Sheets("g").[A1] & ".xls"
   
7. .Close
   
8. End With
   
9. End Sub

½Æ»s¥N½X