¦p¦ó§ï¼g¦¨1.²¾°£°ÆÀɦW2.¤é´Á±Æ§Ç

av8d

¦p¦ó§ï¼g¦¨
1.²¾°£°ÆÀɦW
2.¤é´Á±Æ§Ç

·Ó¤ù²Î­pªí.rar (36.47 KB)

¤U¸ü¦¸¼Æ: 11

2014-3-24 10:25

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

av8d

¦^´_ 3# li_hsien


    «D±`·PÁ¤j¤j~
¤é´Á±Æ§Ç¦pªG¬O¨Ì·Ó«Ø¥ß¤é´Á±Æ§Ç ¦³¿ìªk?
¦pªG¤£¯à³o¼Ë¦³¤w¸g«Ü´Î¤F~ÁÂÁÂ

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

luhpro

¦p¦ó§ï¼g¦¨
1.²¾°£°ÆÀɦW
av8d µoªí©ó 2014-3-24 10:25

¥u­nª½±µ©I¥s DOS «ü¥O¤¤ªº Ren §Y¥i°µ¨ì, ½Ð°Ñ·Ó¥H¤U¨Ò¤l­×§ï:
shell "cmd /c ren D:\123.txt 123"