導(dǎo)讀導(dǎo)語：工作中常常遇到對(duì)大量文件重命名的情況。有事需要給文件加上變化，有事需要給文件加上人名或日期。文件少一些，可以用快捷鍵F2手動(dòng)改一下。文件多的話，就比較....導(dǎo)語：

工作中常常遇到對(duì)大量文件重命名的情況。有事需要給文件加上變化，有事需要給文件加上人名或日期。文件少一些，可以用快捷鍵F2手動(dòng)改一下。文件多的話，就比較費(fèi)時(shí)費(fèi)力了。網(wǎng)上有一些重命名的軟件，也都是掛買了各式各樣的捆綁，安裝完，桌面上掛滿了各式各樣的游戲廣告。今天小編帶大家用電腦上常用的EXCEL(或者WPS，需要安裝VBA 7.0 for WPS )對(duì)批量文件重命名。

先看下效果:

VBA代碼：

Sub 刪除文件名中的特定字符()

‘刪除文件命中的<死亡次數(shù)>四個(gè)字

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條測(cè)試") 獲取文件夾對(duì)象

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

file.Name = Replace(file.Name, "死亡次數(shù)", "")

Next

End Sub

在特定位置添加特定字符串

• 在文件開始位置

Sub 添加文件名中的特定字符()

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條20180516測(cè)試") 獲取文件夾對(duì)象

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

file.Name = "王者榮耀" file.Name

Next

End Sub

• 在文件末尾位置

Sub 添加文件名中的特定字符1()

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條20180516測(cè)試") 獲取文件夾對(duì)象

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

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

file.Name = Replace(file.Name, "." exc, "程咬金制作" "." exc)

用替換操作在末尾加字符串

Next

End Sub

• 在文件名中插入特定字符。

Sub 添加文件名中的特定字符2()

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條20180516測(cè)試") 獲取文件夾對(duì)象

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

file.Name = Left(file.Name, 18) "----" Right(file.Name, (Len(file.Name) - 18))

Next

End Sub

替換文件命中的特定字符串

Sub 替換文件名中的特定字符()

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條20180516測(cè)試") 獲取文件夾對(duì)象

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

file.Name = Replace(file.Name, "魯班", "狄仁杰")

Next

End Sub

文件夾修改，和文件名修改一樣

只需要將

For Each file In ff.Files 遍歷文件夾內(nèi)所有文件

file.Name = Replace(file.Name, "魯班", "狄仁杰")

Next

改為：

For Each file In ff.SubFolders 遍歷文件夾內(nèi)所有文件夾

file.Name = Replace(file.Name, "魯班", "狄仁杰")

Next

Sub 添加文件夾名中的特定字符()

在文件夾名稱前加<王者榮耀>

Set fso = CreateObject("scripting.filesystemobject") 設(shè)置FSO對(duì)象

Set ff = fso.getfolder("D:今日頭條20180516測(cè)試2") 獲取文件夾對(duì)象

For Each file In ff.SubFolders 遍歷文件夾內(nèi)所有文件

file.Name = "王者榮耀" file.Name

Next

End Sub

知識(shí)點(diǎn)匯總

1. FSO文件操作使用方法，不會(huì)用的話，可直接復(fù)制代碼。改下文件夾路徑就可以了。

2. 文中所用的的重命名方式基本上都是使用的 字符串操作。

• ” “，代表字符連接， "王者榮耀" file.Name，就代表在前面加 "王者榮耀" 四個(gè)字。

• Replace:和EXCEL表格中的替換（Ctrl）操作類似。Replace（原始字符串,"被替換的串"，“替換的字符串”）。刪除就是將特定字符串替換為“”。

• Left、Right、Mid 這三個(gè)是左、右、中截取字符串。結(jié)合Len，獲取字符長度，能夠截取到任何位置的字符串。這四個(gè)EXCEL公式中有類似的用法，同學(xué)們百度一下，或者直接使用下EXCEL的公式就知道怎么用了。

總結(jié)：上面的代碼都是可以直接拿來用的，只需要修改下“文件夾路徑”和替換的文字就可以了。用多了就會(huì)使用VBA處理文件了（用進(jìn)廢退）。如果修改的文件名要求較高，則需要添加IF判斷語句或其他邏輯語法，來達(dá)到更高的要求。

---

大家覺得還不錯(cuò)的話，還請(qǐng)關(guān)注、轉(zhuǎn)發(fā)、收藏。本期VBA文件源碼，加關(guān)注，回復(fù)“重命名”即可獲得。