本文將將講述如何使用Excel中的VBA宏重命名給定目錄中的多個(gè)文件。如何在Excel中批量重命名多個(gè)文件。

使用VBA重命名多個(gè)文件

假設(shè)你有多個(gè)Excel工作簿文件，如：test1.xlsx，test2.xlsx ……等。

您希望批量將所選目錄中所有文件重命名為另一種格式，我們?cè)撊绾慰焖賹?shí)現(xiàn)它呢？最好的方法是使用Excel VBA宏重命名所有文件名。只需執(zhí)行以下步驟：

步驟1：您需要在當(dāng)前工作表中鍵入所有文件名，然后創(chuàng)建一個(gè)包含新文件名列表的新列。

步驟2：打開您的Excel工作簿，然后單擊開發(fā)工具選項(xiàng)卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步驟3：然后將出現(xiàn)“Visual Basic編輯器”窗口。

步驟4：單擊“插入” – >“模塊”以創(chuàng)建新模塊。

步驟5：將以下VBA代碼粘貼到代碼窗口中。然后單擊“保存”按鈕。

Sub RenameMultipleFiles()    With Application.FileDialog(msoFileDialogFolderPicker)        .AllowMultiSelect = False        If .Show = -1 Then            selectDirectory = .SelectedItems(1)            dFileList = Dir(selectDirectory & Application.PathSeparator & "*")            Do Until dFileList = ""                curRow = 0                On Error Resume Next                curRow = Application.Match(dFileList, Range("B:B"), 0)                If curRow > 0 Then                    Name selectDirectory & Application.PathSeparator & dFileList As                  selectDirectory & Application.PathSeparator & Cells(curRow, "D").Value                End If                dFileList = Dir            Loop       End If    End WithEnd Sub

注意：范圍B：B用于放置原始文件名列表，列D用于存儲(chǔ)新文件名列表。因此，您需要在上面的VBA代碼中根據(jù)需要替換這兩個(gè)值。

步驟6：返回當(dāng)前工作表，然后運(yùn)行上面的excel宏。點(diǎn)擊執(zhí)行按鈕。

步驟7：在“瀏覽”對(duì)話框中選擇一個(gè)包含要重命名的文件的目錄。然后單擊確定按鈕。

步驟8：您可以轉(zhuǎn)到包含文件的目錄，以檢查文件名是否已更改。