[µo°Ý] ¥Ñ²Ä7±i¤u§@ªí°_¥t¦s·sÀÉ

missbb

¤j¤j, §Ú¼g¤F¤@¬qCODE, ·Q¥Ñ¬¡­¶³¡¤º²Ä7±i¤u§@ªí¤Î¤§«áªº¤u§@ªí,¥t¦s·sÀÉ, ¦ý¥¢±Ñ, ¥i§_½ç±Ð?

1. Sub sheetsavefile2()
   
2. 'xxxxxxxxxxxxxxxxxxxx
   
3. Application.ScreenUpdating = False
   
4. 
   
5. Dim a As Integer
   
6. 
   
7. For a = 7 To Sheets.Count
   
8.      
   
9. For Each sh In Worksheets
   
10.         
    
11.         sh.Copy
    
12.                
    
13.         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
    
14.         Workbooks(sh.Name & ".xlsx").Close True
    
15.               
    
16.     Next
    
17.    
    
18.     Next a
    
19.    
    
20. Application.ScreenUpdating = True
    
21. MsgBox ("¤w§¹¦¨¥t¦s­Ó§OÀÉ®×")
    
22. 
    
23. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# missbb

1. Sub ex()
   
2. Application.ScreenUpdating = False
   
3. For i = 7 To Sheets.Count
   
4.    Sheets(i).Copy
   
5.   With ActiveWorkbook
   
6.      .SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
   
7.      .Close
   
8.   End With
   
9. Next
   
10. MsgBox "¤w§¹¦¨­Ó§OÀÉ®×Àx¦s"
    
11. End Sub

½Æ»s¥N½X