網(wǎng)友解答: 第一步將需要重命名的文件放到一個(gè)文件夾中第二步選中所有需要改名的文件第三步右鍵點(diǎn)擊，在右鍵菜單中點(diǎn)擊重命名輸入重命名的名稱，并按回車鍵 網(wǎng)友解答: 你好，

第一步將需要重命名的文件放到一個(gè)文件夾中第二步選中所有需要改名的文件第三步右鍵點(diǎn)擊，在右鍵菜單中點(diǎn)擊重命名輸入重命名的名稱，并按回車鍵

你好，批量重命名文件也是讓我很頭疼的一件事，一次偶然，我在網(wǎng)上看到一段非常高效的VBA代碼，不敢獨(dú)享，希望讓更多的人了解如何快速重命名文件，提高效率，愛上文件整理，擺脫加班命運(yùn)。

具體步驟如下：

1、新建一個(gè)EXCEL工作表文件。

2、點(diǎn)擊【開發(fā)工具】→Visual Basic打開VBA編輯器。

3、右擊鼠標(biāo)插入模塊，將代碼復(fù)制進(jìn)去。具體操作參見如上動(dòng)圖。

相關(guān)代碼如下：

Sub 批量獲取文件名()

Cells = ""

Dim sfso

Dim myPath As String

Dim Sh As Object

Dim Folder As Object

Application.ScreenUpdating = False

On Error Resume Next

Set sfso = CreateObject("Scripting.FileSystemObject")

Set Sh = CreateObject("shell.application")

Set Folder = Sh.BrowseForFolder(0, "", 0, "")

If Not Folder Is Nothing Then

myPath = Folder.Items.Item.Path

End If

Application.ScreenUpdating = True

Cells(1, 1) = "舊版名稱"

Cells(1, 2) = "文件類型"

Cells(1, 3) = "所在位置"

Cells(1, 4) = "新版名稱"

Call 直接提取文件名(myPath & "")

End Sub

Sub 直接提取文件名(myPath As String)

Dim i As Long

Dim myTxt As String

i = Range("A1048576").End(xlUp).Row

myTxt = Dir(myPath, 31)

Do While myTxt < ""

On Error Resume Next

If myTxt < ThisWorkbook.Name And myTxt < "." And myTxt < ".." And myTxt < "081226" Then

i = i + 1

Cells(i, 1) = "'" & myTxt

If (GetAttr(myPath & myTxt) And vbDirectory) = vbDirectory Then

Cells(i, 2) = "文件夾"

Else

Cells(i, 2) = "文件"

End If

Cells(i, 3) = Left(myPath, Len(myPath) - 1)

End If

myTxt = Dir

Loop

End Sub

Sub 批量重命名()

Dim y_name As String

Dim x_name As String

For i = 2 To Range("A1048576").End(xlUp).Row

y_name = Cells(i, 3) & "" & Cells(i, 1)

x_name = Cells(i, 3) & "" & Cells(i, 4)

On Error Resume Next

Name y_name As x_name

Next

End Sub

4、關(guān)閉VBA編輯器，點(diǎn)擊【開發(fā)工具】→【宏】，選擇名為【批量獲取文件名】的宏，點(diǎn)擊執(zhí)行，選擇需要更重命名的文件存放的路徑。

5、在D列輸入新的名稱，如上動(dòng)圖所示，為每個(gè)文件加上序號(hào)。

6、點(diǎn)擊【開發(fā)工具】→【宏】，選擇名為【批量重命名】的宏，點(diǎn)擊執(zhí)行。

友情提示：如果希望下次繼續(xù)用這個(gè)文件重命名，請(qǐng)將工作表保存為后綴名為.xlsm的格式。

以上是該問題的解答，希望對(duì)您有幫助！