Hsieh

¦^´_ 1# iceandy6150
½Æ»sÀɮ׳̭«­n¬OÀɦW°ÝÃD
¦pªG¥H²Ä¤@¨Ò¤¤¤å¦WºÙ+¼Æ­È§@¬°ÀɦW
¥i­pºâ¦P¦WºÙÀɮ׼ƶq«á¥[¤W¸¹½X°µ¬°·sÀɮצWºÙ

1. Private Sub CommandButton1_Click()
   
2. With ThisWorkbook
   
3. f = Replace(Replace(.Name, StrReverse(Val(StrReverse(Replace(.Name, ".xls", "")))), ""), ".xls", "")
   
4. fs = Dir(f & "*.xls")
   
5. Do Until fs = ""
   
6. fs = Dir
   
7. i = i + 1
   
8. Loop
   
9. f = .Path & "\" & f & i + 1 & ".xls"
   
10. .SaveCopyAs f
    
11. End With
    
12. End Sub

½Æ»s¥N½X

­Y°õ¦æ¥¨¶°ªºÀɦW»P¥t¦sªºÀɮצWºÙ¨S¦³¥ô¦ó³W«h¡A¥i¯à´N­n«ü©wÀɦW¦A¥h­pºâ¦P¦W¤£¦P½s¸¹ªºÀɮ׼ƶq
¦b¥t¦s·sÀÉ

Hsieh

¦^´_ 3# iceandy6150
¸Õ¸Õ¬Ý

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. ph = ThisWorkbook.Path & "\"
   
4. f = ThisWorkbook.Name
   
5. i = 1
   
6. Do Until i > Len(f) Or Not IsEmpty(n)
   
7. n = Empty
   
8.    n = CInt(Mid(f, i, 1))
   
9.    If IsEmpty(n) Then k = k & Mid(f, i, 1)
   
10.    Err.Clear
    
11.    i = i + 1
    
12. Loop
    
13. fs = Dir(ph & k & "*.xls")
    
14. Do Until fs = "" '­pºâ¦P¦WÀɮ׼ƶq
    
15. fs = Dir
    
16. x = x + 1
    
17. Loop
    
18. fs = ph & k & x + 1 & "¤é.xls"
    
19. ThisWorkbook.SaveCopyAs fs
    
20. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# iceandy6150

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. ph = ThisWorkbook.Path & "\"
   
4. f = ThisWorkbook.Name
   
5. i = 1
   
6. Do Until i > Len(f) Or Not IsEmpty(n)
   
7. n = Empty
   
8.    n = CInt(Mid(f, i, 1))
   
9.    If IsEmpty(n) Then k = k & Mid(f, i, 1)
   
10.    Err.Clear
    
11.    i = i + 1
    
12. Loop
    
13. p = Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
    
14. For j = 2 To p
    
15. fs = ph & k & j & "¤é.xls"
    
16. If Dir(fs) = "" Then ThisWorkbook.SaveCopyAs fs
    
17. Next
    
18. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 7# iceandy6150
Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
³o¥i¨ú±o³o­Ó¤ëªº¤é¼Æ
DateAdd("M", 1, Format(Date, "yyyy/m/1")) ±o¨ì¤U­Ó¤ë²Ä¤@¤Ñ¤é´Á
©Ò¥H´î1´N¬O¥»¤ë³Ì«á¤@¤Ñ