li_hsien

´ú¸Õ¬Ý¬Ý§a

¦pªGOK¦A¦Û¦æ¶K¤W­ìµ{¦¡¸Ì

1. Option Explicit
   
2. 
   
3. Sub ex()
   
4.    
   
5.     Dim i As Integer
   
6.    
   
7.         '¥h°ÆÀɦW
   
8.         For i = 1 To Range("A65536").End(xlUp).Row
   
9.             Range("A" & i) = Left(Range("A" & i), Len(Range("A" & i)) - 4)
   
10.         Next
    
11.         
    
12.         '±Æ§Ç
    
13.         ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("A:A"), _
    
14.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
15.         With ActiveWorkbook.Worksheets(1).Sort
    
16.             .SetRange Range("A:A")
    
17.             .Header = xlGuess
    
18.             .MatchCase = False
    
19.             .Orientation = xlTopToBottom
    
20.             .SortMethod = xlPinYin
    
21.             .Apply
    
22.         End With
    
23.    
    
24. End Sub

½Æ»s¥N½X

¦^´_ 1# av8d

li_hsien

¦^´_ 4# av8d

³o¼ËÀ³¸Ó¥i¥H§ì¨ì«Ø¥ß¤é´Á¡A±Æ§Ç§@ªk¥i¥H¨Ì¤W­±¨º¼Ë

°Ñ¦Ò¬Ý¬Ý

1. Sub test()
   
2. 
   
3.     Set fs = CreateObject("Scripting.FileSystemObject")
   
4.     Set f = fs.GetFile("¹Ï¤ù¸ô®|")
   
5.    
   
6.     'Àɮ׫إߤé´Á
   
7.     Debug.Print f.DateCreated
   
8. 
   
9. End Sub

½Æ»s¥N½X