将文本附加到文件夹中多个.xlsx文件的文件名结尾

我有一个文件夹中的大量excel文件，我需要将-MN附加到所有文件名的末尾。 我已经环顾networking寻求解决scheme，但没有多less运气find明确的答案。

例如：

examplefile.xlsx将成为examplefile -MN.xlsx

任何帮助将不胜感激！ 谢谢！

Answer 1

这应该工作。 我改变如果右（myFileName，5）=“.xlsx”然后…如果右（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 

Answer 2

1. 转到命令提示符
2. 指向具有文件的文件夹位置
3. types： ren * .xlsx * -MN.xlsx

这应该将后缀（-MN）添加到该文件夹​​中存在的所有xlsx文件