導讀處理文件時經常會遇到需要對大量文件重命名，十幾二十個手動修改下還好說，遇到成百上千，就需要借助軟件了。網上有好多對文件重名的軟件，功能也是比較多，但是沒有一....

處理文件時經常會遇到需要對大量文件重命名，十幾二十個手動修改下還好說，遇到成百上千，就需要借助軟件了。網上有好多對文件重名的軟件，功能也是比較多，但是沒有一個用的比較順手的，而且還會需要令人頭疼的捆綁安裝。VBA是Visual Basic的一種宏語言，主要能用來擴展Windows的應用程序功能，特別是Microsoft Office軟件。一般office EXCEL組件都會自帶宏文件編輯器（打開EXCEL->開發工具 ->VB編輯器）。如果用的是WPS，請百度安裝VBA for WPS。下面分析一個自己工作共常用的文件重名代碼。

Sub 文件重命名()

文件重命名

Set fso = CreateObject("scripting.filesystemobject")

Set ff = fso.getfolder("D: est") 需要重名的文件所在的文件夾

i = 1

Dim strName As String

For Each f In ff.Files

strName = f.Name

strName = Replace(strName, "_今日頭條_頭條發布_", "") 刪除文件名中的“_今日頭條_頭條發布_”

exc = fso.getextensionname(f) 獲取文件擴展名

strName = Replace(strName, "." exc, Str(Date)) Str(i) "." exc 添加時間 添加編號

strName = Left(strName,5)

strName = Right(strName,5) 也可以用Min函數對文件名進行截取 截取時注意加擴展名

If f.Name <> strName Then

f.Name = strName End If

i = i 1

Next

End Sub

打開EXCEL 進入開發工具，新建宏。修改下要重命名的文件夾，以及文件重命名的規則就可以使用了。