フォルダ内の大きなグループのExcelファイルのファイル名を変更する

Question

フォルダ内に異なる名前のExcelファイルが大量にあり、拡張子が.xlsxになる前にすべてのファイル名の末尾に-MNを追加する必要があります。私は解決のためにウェブの周りを見てきましたが、はっきりと答えを見つけるのは大したことはありませんでした。これは仕事の割り当てなので、外部のソフトウェアをダウンロードすることはできません。コマンドラインやvbaマクロを介した何かが優先されます。適切なフォルダに移動したときにコマンドプロンプトでren * .xlsx * -MN.xlsxを使用してみましたが、目的の結果が得られませんでした。

は、これは私が探しているものです：

examplefile.xlsxはexamplefile -MN.xlsxなる

私は

ren *.xlsx *-MN.xlsx 

とI ...これを試してみましたこれを試しました...

Sub RenameFiles() 
Dim myFilePath As String, myFileName, NewFileName As String 
Dim objFSO As Object 
Dim objFolder As Object 
Dim objFile As Object 
myFilePath = "C:\Users\Gary\Desktop\Ex Folder\" 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder(myFilePath) 
For Each objFile In objFolder.Files 
    myFileName = objFile.Name 
    If Right(myFileName, 4) = ".xlsx" Then 
     NewFileName = Replace(myFileName, ".xlsx", "-MN.xlsx") 
     Name myFilePath & objFile.Name As myFilePath & NewFileName 
    End If 
Next objFile 
MsgBox "Files Renamed" 
End Sub 

ご協力いただければ幸いです！ありがとうございました！

Answer 1

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

myFilePath = "C:\Users\Gary\Desktop\Ex Folder\" 
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 
MsgBox "Files Renamed" 
End Sub