[µo°Ý] ¦bExcel 2003¿ý»sªº¥¨¶°¡A¦bExcel2007/2010«oµo¥Í°õ¦æ¿ù»~'9' or '445'

waterful.tw

¥H¤U¬O§Ú¦bExcel 2003

1. Sub Get_TEXT()
   
2. 
   
3. Dim MyBook, LinkBook As Workbook, _
   
4.     MySht, LinkSht, BaSht, WorkSht As Worksheet, _
   
5.     MyPath, FindFile, FileCunt, x, Xm As Long, _
   
6.     RngEnd As Range, uDate As Date
   
7. 
   
8. Set FindFile = Application.FileSearch
   
9. 
   
10. With FindFile
    
11.     .LookIn = MyPath: .Filename = "*.csv"
    
12.     .SearchSubFolders = False: .MatchTextExactly = True
    
13.     .FileType = msoFileTypeAllFiles
    
14.     FileCunt = .Execute()
    
15. End With
    
16. 
    
17. If FileCunt = 0 Then _
    
18.    MsgBox "¡°§ä¤£¨ì­n¶×¤Jªº¤å¦rÀÉ!!! ", 0 + 48, ">>´£¥Ü°T®§": Exit Sub
    
19. Application.ScreenUpdating = False
    
20. 
    
21. '...
    
22. End Sub

½Æ»s¥N½X

¦ý¦bExcel 2007/2010«oµo¥Í°õ¦æ¿ù»~¡Abug¬O¥X²{¦b¦P¤@¦æ

1. Set FindFile = Application.FileSearch

½Æ»s¥N½X

¤£ª¾¹D¦bExcel 2007/2010®É¡A¦¹¦æ­n¦p¦ó­×§ï¡H

waterful.tw

·PÁÂHsieh¤j¤j¡A¬Ý¨Ó§Ú«á­±¦³¤@¤j¬qµ{¦¡­n­×§ï¤F¡Aµ¥¦³°ÝÃD¦b¤W¨Óµo°ÝÅo~ ^^

Hsieh

¦^´_ 3# waterful.tw
FindFile¬O¦r¦ê¤£¬Oª«¥ó¤£¯à¨Ï¥ÎSET³¯­z¦¡

1. FindFile = Dir(MyPath & "*.csv")
   
2. Do While FindFile <> ""
   
3.     FileCunt = FileCunt + 1
   
4.     FindFile = Dir
   
5. Loop

½Æ»s¥N½X

waterful.tw

½Ð°ÝHsieh¤j¤j¡A­Y§Ú±N­ì¥ýµ{¦¡½X

1. Set FindFile = Application.FileSearch
   
2. With FindFile
   
3.     .LookIn = MyPath: .Filename = "*.csv"
   
4.     .SearchSubFolders = False: .MatchTextExactly = True
   
5.     .FileType = msoFileTypeAllFiles
   
6.     FileCunt = .Execute()
   
7. End With

½Æ»s¥N½X

§ï¬°¤U¦Cµ{¦¡½X

1. Set FindFile = Dir(MyPath & "*.csv")
   
2. Do While FindFile <> ""
   
3.     FileCunt = FileCunt + 1
   
4.     FindFile = Dir
   
5. Loop

½Æ»s¥N½X

¦bDir¨ç¼Æ³]©wªº¨º¦æ¡A«oµo¥Í"¦¹³B»Ý­nª«¥ó (¿ù»~ 424)"¿ù»~¡A½Ð°Ý§Ú¸Ó¦p¦ó­×§ï¡H
PS.¤£¤Ó·|¥ÎDir¨ç¼Æªº·s¤â¯d

Hsieh

¦^´_ 1# waterful.tw


    FileSearch
©ó2007ª©¥»¥H«á¤w¸g¤£¤ä´©¦¹ª«¥ó
¥i¨Ï¥ÎDir¨ç¼Æ©Î¬OGetOpenFilename¨Ó¨ú¥N