freeffly

¦^´_ 1# VANESSA
´£¨Ñ§A¤@­Óµ{¦¡½X
¬O§Ú¦bºô¸ô¤W§äªº
­n§ï¤U­±³o¦U¸ô®|
.LookIn = "C:\Documents and Settings\®à­±\ARTHUR\¥xÆW®w¦s"
¦A±N§A­n³B²zªº¤è¦¡¼g¤@­Óµ{¦¡Åý¥L°õ¦æ
Call «áÄò   'µ{¦¡½X
¦p¦¹´N¥i¥HÅýµ{¦¡½X¥hÀ°§A°õ¦æ

¦p¨Ò¤l¥L·|³B²zC:\Documents and Settings\®à­±\ARTHUR\¥xÆW®w¦s ³o¦U¸ê®Æ§¨¸Ì­±©Ò¦³ªºÀÉ®×
µM«á°µ"«áÄò"³o¦Uµ{§Çªº°Ê§@

¤£ª¾¹D¥H¤W¬O¤£¬O§A­nªº

1. Sub ³B²zÀÉ®×()
   
2. Application.ScreenUpdating = False
   
3. Dim fs As FileSearch
   
4. Dim i As Integer
   
5. Dim wbk As Workbook
   
6. Set fs = Application.FileSearch
   
7. With fs
   
8.     .LookIn = "C:\Documents and Settings\®à­±\ARTHUR\¥xÆW®w¦s"    'ThisWorkbook.Path
   
9.     .Filename = "*.xls"
   
10.     For i = 1 To .Execute()
    
11.         Set wbk = Workbooks.Open(.FoundFiles(i))
    
12.         Call «áÄò   'µ{¦¡½X
    
13.         wbk.Save
    
14.         wbk.Close
    
15.     Next i
    
16. End With
    
17. End Sub

½Æ»s¥N½X