Hsieh

¦^´_ 4# peter9527

¤j·NÀ³¬O¦p¦¹

1. Sub nn()
   
2. fd = ThisWorkbook.Path & "\"  '¦sÀɥؿý
   
3. mymoon = Format(Date, "mm")  '¤ë¥÷
   
4. Set fs = CreateObject("Scripting.FileSystemObject")
   
5. Do
   
6. i = i + 1
   
7. fc = fs.fileexists(fd & mymoon & Format(i, "00") & ".xls")  'ÀˬdÀɦW¬O§_¦s¦b
   
8. Loop Until fc = False
   
9. mystr = mymoon & Format(i, "00")  '·sÀɦWºÙ
   
10. yn = MsgBox("¬O§_­n¥t¦s¬°" & mystr & ".xls", vbYesNo)
    
11. If yn = 6 Then ThisWorkbook.SaveAs fd & mystr & ".xls" Else MsgBox "ÀÉ®×¥¼¥t¦s"
    
12. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 7# peter9527
2003ª©À³¸Ó¦³filesearch¥i¥Î¡A¦]À³2007ª©¥H¤W¨Ï¥ÎDIR¨ç¼Æ­pºâ

1. Function Files_Count(Fd As String, Fs As String) As Integer 'FdÀɮץؿý¡AFs·j´MÀɦW
   
2. findfs = Dir(Fd & Fs)
   
3. Do Until findfs = ""
   
4.    Files_Count = Files_Count + 1
   
5.    findfs = Dir
   
6. Loop
   
7. End Function
   
8. Sub add_filename()
   
9. k = Files_Count(ThisWorkbook.Path & "\", Format(Date, "yymm") & "*.xls")
   
10. fc = Format(Date, "yymm") & "_" & k + 1 & ".xls"
    
11. yn = MsgBox("¬O§_­n¥t¦s¬°" & fc, vbYesNo)
    
12. If yn = 6 Then ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & fc Else MsgBox "ÀÉ®×¥¼¥t¦s"
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# peter9527


    µ{¦¡³]­p³Ì­«­nªº´N¬O³W«h
§A­n±q©R¦W³W«h¤¤«ä¦Ò
¤F¸Ñ¦p¦ó®M¥Î?
¤£µM§O¤H¤]¤£À´§A¦b´y­z¤°»ò?
§A´NµLªk±o¨ì¸Ñµª

Hsieh

¦^´_ 11# peter9527

¨º´N­n§ä¨ì³Ì¤j½s¸¹ªºÀɦW

1. Function topfile(fn$, fd$) As Integer
   
2. fs = Dir(fd & fn)
   
3. Do Until fs = ""
   
4. If Val(Replace(fs, Val(fn), "")) > topfile Then topfile = Val(Replace(fs, Val(fn), ""))
   
5. fs = Dir
   
6. Loop
   
7. End Function
   
8. Sub Save_File()
   
9. Dim f$
   
10. d = Format(Date, "yymm")
    
11. f = ThisWorkbook.Path & "\"
    
12. k = Format(topfile(d & "*.xls", f) + 1, "00")
    
13. fs = f & d & k & ".xls"
    
14. yn = MsgBox("¬O§_¥t¦s¬°" & d & k & ".xls", vbYesNo)
    
15. If yn = 6 Then ThisWorkbook.SaveAs fs
    
16. End Sub

½Æ»s¥N½X