審計師在歸檔的時候，會大量整理文件，比如對歸檔附件的重命名。

如果你使用的Total Commander這款神器，它自帶批量重命名功能。

這里分享下，以前自己用Excel VBA做的批量重命名工具。

代碼其實也比較簡單

1.獲取文件名

選擇一個文件夾目錄，獲取該文件夾目錄下所有文件（不獲取子文件夾）

代碼如下：

Sub Getfd(ByVal pth)Set Fso = CreateObject("scripting.filesystemobject")Set ff = Fso.getfolder(pth)For Each f In ff.FilesRem 具體提取哪類文件，還是需要根據(jù)文件擴展名進行處理Cells(Rows.Count, 1).End(3).Offset(1) = f.NameNext f ? End Sub

首先通過Getfd函數(shù)，獲取給定文件目錄下所有的文件名，填寫在當(dāng)前工作表的A列。

2.替換文件名

將B列填寫好新的文件名稱（如果不想改變就空白就行，不會進行操作）

當(dāng)然改名的過程你可以通過excel的分列、函數(shù)等操作。

完成后點擊“替換文件名”。

看本地文件就完成了文件批量重命名的工作。

代碼如下：

Sub 替換文件名()Set D = CreateObject("scripting.dictionary")Dim n, i As LongDim ID, changeName As Stringn = Cells(Rows.Count, 1).End(3).RowFor i = 2 To nID = Cells(i, 1)changeName = Cells(i, 2)D(ID) = changeNameNext iSet Fso = CreateObject("scripting.filesystemobject")Set ff = Fso.getfolder(mypath)For Each f In ff.FilesIf f.Name <> D(f.Name) And D(f.Name) <> "" Thenf.Name = D(f.Name)End IfNext fMsgBox ("已替換完成") End Sub當(dāng)然，如果你想獲取和修改一個文件目錄下所有文件（包含子文件夾下的文件）那么可以，通過寫一個遞歸函數(shù)達到目的。

---

工具下載鏈接：微云下載鏈接

本文首發(fā)于公眾號：逆行的狗。

更多審計工具：github鏈接

審計效率提升課程（免費）：B站鏈接

總結(jié)

以上是生活随笔為你收集整理的mybaitplus 根据id批量进行修改_批量重命名工具的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。