Board logo

標題: 如何改寫成1.移除副檔名2.日期排序 [打印本頁]
作者: av8d    時間: 2014-3-24 10:25     標題: 如何改寫成1.移除副檔名2.日期排序

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

[attach]17851[/attach]
作者: luhpro    時間: 2014-3-24 23:30

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

只要直接呼叫 DOS 指令中的 Ren 即可做到, 請參照以下例子修改:
shell "cmd /c ren D:\123.txt 123"
作者: li_hsien    時間: 2014-3-25 08:16

測試看看吧

如果OK再自行貼上原程式裡
  1. Option Explicit

  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    時間: 2014-3-26 08:59

回復 3# li_hsien


    非常感謝大大~
日期排序如果是依照建立日期排序 有辦法?
如果不能這樣有已經很棒了~謝謝
作者: li_hsien    時間: 2014-3-26 09:55

回復 4# av8d

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

參考看看
  1. Sub test()

  3.     Set fs = CreateObject("Scripting.FileSystemObject")
  4.     Set f = fs.GetFile("圖片路徑")
  5.    
  6.     '檔案建立日期
  7.     Debug.Print f.DateCreated

  9. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)