office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

用VBA代码循环表格当前目录下的所有Excel文件中修改日期为最新的文件名

2020-05-01 08:00:00
zstmtony
原创
179

用VBA代码循环表格当前目录下的所有Excel文件中修改日期为最新的文件名


Dim strPath As String
Dim strFile As String
Dim datLast As Date
Dim strLastFile As String
Set fso = CreateObject("Scripting.FileSystemObject")

Path = CurrentProject.Path & ""

strFile = Dir(Path & "*.xls")
strLastFile = ""
datLast = #1/1/1900#

Do While strFile <> ""
   Set f = fso.Getfile(Path & strFile)
   If f.DateLastModified > datLast Then datLast = f.DateLastModified: strLastFile = strFile
   strFile = Dir
Loop

Msgbox "最新的文件" & strFile

分享