kimbal

¦^´_ 2# ui123
    Dir ¤£¯à«ü©w±Æ¦C, ¦ý¥i¥H¦bDIR±o¥X«á±Æ§Ç

1. Sub file()
   
2.     Dim myFolder As String, myFile As String
   
3.     Dim i As Integer
   
4.     myFolder = "C:\temp\"
   
5.     myFile = Dir(myFolder & "*.xlsx")
   
6.     i = 1
   
7.     Do While myFile <> ""
   
8.         Cells(i, 1).Value = myFile
   
9.         myFile = Dir()
   
10.         i = i + 1
    
11.     Loop
    
12.     With ActiveSheet.Sort
    
13.         .SetRange Range("A:A")
    
14.         .Header = xlNo
    
15.         .MatchCase = False
    
16.         .Orientation = xlTopToBottom
    
17.         .Apply
    
18.     End With
    
19. 
    
20. End Sub

½Æ»s¥N½X