¦Û°Ê¦X¨ÖÀÉ®×

VANESSA

My Documents.zip (7.23 KB)

¤U¸ü¦¸¼Æ: 5

2012-4-12 10:47

§Ú¤@¦@¦³21®a¤½¥q,¨C®a¤½¥q¨C­Ó¤ë¦³¤@­ÓÀÉ®×,¥þ¦~¦@¦³21*12=252ªºÀÉ
§Ú·Q§â¬Û¦PA¤½¥qªº¥þ¦~¸ê®Æ·J¾ã¦¨¤@­ÓÀÉ®×(12­ÓÀɮצX¨Ö¦¨¤@­Ó),½Ð°Ý¦³¥i¯à ¥i¥H¤£¥Î¶}ÀÉ,´N¥i¥H§â12­ÓÀɮתº¸ê®Æ²£¥Í¦¨¤@­Ó·sªºÀÉ®×?
§Úªþ¤W½d¨ÒTI³o®a¤½¥qªº1¤ë©M2¤ë¸ê®Æ,¦X¨Ö¦¨¥t¤@­Ó·sªºÀÉ®×

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