VBA-遍历文件及重命名

Sub rename()
    Dim stoday As String
    Dim oldname As String
    Dim myfile As String
    Dim mypath As String
    Dim n As Integer
    
    mypath = "C:\Users\ZLL\Desktop\test file\"
    myfile = Dir(mypath & "*.xlsx", vbNormal)
    
    stoday = "2022-6-1" '也可以用 Date 直接调用当前日期，但是需要定义日期格式，Date获取日期默认有“/”，但文件名不能出现“/”
    
    Do Until myfile = ""
        n = Len(myfile) - VBA.InStr(1, VBA.StrReverse(myfile), ".") 'VBA.Instr()获取文件扩展名中的“."出现的第一个位置。
        oldname = Mid(myfile, 1, n)
        Name mypath & myfile As mypath & oldname & stoday & ".xlsx"  '重命名文件需要增加文件路径。
        myfile = Dir '返回对应路径下一个文件名
    Loop
    MsgBox "运行结束"
   
End Sub

'注：Application.GetOpenFilename,返回为含路径及扩展名的单个文件名，这里不好用。

6.1节日快乐。