變更檔名 - Excel程式區 - 麻辣家族討論版版

[發問] 變更檔名

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-12-6 11:43 | 顯示全部帖子

回復 1# borshun88
DateLastModified 屬性傳回最後一次修改指定檔案或資料夾的日期和時間。唯讀。
幫你找到最新有修改的檔案,剩下的請自己完成

Option Explicit
Sub 巨集1()
Dim f As Object, FileDate(), FileName(), S As Variant
If Dir("D:\AA\*.xlsm") = "" Then: MsgBox "沒檔案": Exit Sub
For Each f In CreateObject("scripting.filesystemobject").GetFolder("d:\AA").Files
If InStr(f, ".xlsm") Then
ReDim Preserve FileName(S)
ReDim Preserve FileDate(S)
FileName(S) = f
FileDate(S) = CDbl(f.DateLastModified)
S = S + 1
End If
Next
If S > 0 Then
S = Application.Match(Application.Max(FileDate), FileDate, 0) - 1
MsgBox FileName(S)
End If
'fs.DeleteFile "D:\AA\*"
'MsgBox "Done"
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-12-7 07:22 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-12-7 07:27 編輯

回復 4# borshun88
Array 函數所建立的陣列預設下限必為零
Match 函數如有傳回數字必為1開始
VBA的說明

Option Base 陳述式
在模組層次中用來宣告陣列索引的預設下限。
語法
Option Base {0 | 1}
請注意
若預設的下限值為 0，則 Option Base 陳述式是不需要的。若需要使用時，此陳述式必須出現在模組中，並且在任何程序之前。Option Base 僅能在模組裏出現一次，而且必須在含有維數的陣列宣告之前。
附註在 Dim、Private、Public、ReDim 和 Static 陳述式中，To 子句提供較具彈性的方法，來控制陣列索引的範圍。然而，如果不使用 To 子句來明確的設定下限，則可用 Option Base 來改變預設值的下限為 1。Array 函數所建立的陣列預設下限必為零，不受 Option Base 所影響。

複製代碼

如果有 Option Base 1
那 S 就不須減 1

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。