按名称重命名多个文件Excel VBA

Sub RenameFiles()
    Dim fso As Object
    Dim folderPath As String
    Dim file As Object
    Dim newName As String
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Files\"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件夹中的所有文件
    For Each file In fso.GetFolder(folderPath).Files
        ' 检查文件名是否需要重命名
        If InStr(file.Name, "oldName") > 0 Then
            ' 生成新的文件名
            newName = Replace(file.Name, "oldName", "newName")
            
            ' 重命名文件
            file.Name = newName
        End If
    Next file
    
    ' 释放对象
    Set fso = Nothing
    
    MsgBox "文件重命名完成！"
End Sub