如何改寫成1.移除副檔名2.日期排序

av8d

如何改寫成
1.移除副檔名
2.日期排序

照片統計表.rar (36.47 KB)

下載次數: 11

2014-3-24 10:25

luhpro

如何改寫成
1.移除副檔名
av8d 發表於 2014-3-24 10:25

只要直接呼叫 DOS 指令中的 Ren 即可做到, 請參照以下例子修改:
shell "cmd /c ren D:\123.txt 123"

li_hsien

測試看看吧

如果OK再自行貼上原程式裡

1. Option Explicit
   
2. 
   
3. Sub ex()
   
4.    
   
5.     Dim i As Integer
   
6.    
   
7.         '去副檔名
   
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

複製代碼

回復 1# av8d

av8d

回復 3# li_hsien


    非常感謝大大~
日期排序如果是依照建立日期排序 有辦法?
如果不能這樣有已經很棒了~謝謝

li_hsien

回復 4# av8d

這樣應該可以抓到建立日期，排序作法可以依上面那樣

參考看看

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

複製代碼