將文本附加到文件夾中多個.xlsx文件的文件名末尾

Question

我的文件夾中有大量的excel文件，我需要在所有文件名的末尾附加-MN。 我在網上尋找解決方案，但是運氣不佳，沒有找到明確的答案。

例如：

examplefile.xlsx將成為examplefile -MN.xlsx

任何幫助將不勝感激！ 謝謝！

Answer 1

1. 轉到命令提示符
2. 指向包含文件的文件夾位置
3. 類型：任* .xlsx * -MN.xlsx

這應將后綴（-MN）添加到文件夾中存在的所有xlsx文件中

Answer 2

這應該工作。 我將If Right（myFileName，5）=“ .xlsx”改為...如果Right（myFileName，4）=“ .xlsx”則

Sub RenameFiles()
Dim myFilePath As String, myFileName, NewFileName As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object

myFilePath = "C:\Temp\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(myFilePath)
For Each objFile In objFolder.Files
    myFileName = objFile.Name
    If Right(myFileName, 5) = ".xlsx" Then
        NewFileName = Replace(myFileName, ".xlsx", "-MN.xlsx")
        Name myFilePath & objFile.Name As myFilePath & NewFileName
    End If
Next objFile
End Sub