¿Cómo cambiar el nombre de varios archivos en una carpeta en Excel?

Es probable que la mayoría de nosotros nos enfrentemos a este problema: necesitamos cambiar el nombre de varios archivos en una carpeta, y hacerlo uno por uno podría volvernos locos si hay cientos o miles de archivos en esa carpeta. ¿Existen funciones útiles para ayudarnos con esta tarea?

Paso 1: Enumerar todos los nombres de archivo de una carpeta específica en una hoja de cálculo con Kutools para Excel

Paso 2: Cambiar el nombre de varios archivos de una carpeta en Excel con código VBA

Enumerar todos los nombres de archivo de una carpeta específica en una hoja de cálculo con Kutools para Excel

Si hay varios archivos que deseas renombrar, primero puedes listar los nombres antiguos de los archivos en una columna de la hoja de cálculo, y luego ingresar los nuevos nombres que deseas usar como reemplazo. Para enumerar rápidamente todos los archivos en la hoja de cálculo, puedes utilizar la utilidad Lista de Nombres de Archivos de Kutools para Excel.

Después de instalar Kutools para Excel, por favor sigue los siguientes pasos:( Descarga Gratuita Kutools para Excel Ahora )

1. Haz clic en Kutools Plus > Importar & Exportar > Lista de Nombres de Archivos, ver captura de pantalla:

2. En la Lista de Nombres de Archivos cuadro de diálogo, haz clic en para elegir la carpeta de archivos que deseas enumerar, y luego haz clic en Todos los archivos desde el Tipo de archivo, ver captura de pantalla:

3. Luego haz clic en el botón Aceptar, todos los nombres de archivo se habrán listado en una columna de una nueva hoja de cálculo, junto con algunos atributos de archivo, y ahora puedes eliminar otras columnas no deseadas y dejar solo la columna Nombre de Archivo, ver captura de pantalla:

Haz clic para saber más sobre esta función Lista de Nombres de Archivos…

Descarga Gratuita Kutools para Excel Ahora

Cambiar el nombre de varios archivos de una carpeta en Excel con código VBA

Después de enumerar todos los nombres originales de los archivos en la columna A, debes escribir los nuevos nombres de archivo en la columna B como se muestra en la siguiente captura de pantalla:

Aquí hablaré sobre un código VBA que puede ayudarte a reemplazar los nombres antiguos de los archivos con los nuevos nombres de archivo de una vez. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11, y esto abrirá la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la ventana del Módulo.

Código VBA: Cambiar el nombre de varios archivos en una carpeta

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. Después de pegar el código, presiona la tecla F5 para ejecutar este código, y en la ventana Examinar, selecciona la carpeta en la que deseas cambiar los nombres de los archivos, ver captura de pantalla:

4. Y luego haz clic en Aceptar, todos los nombres antiguos de los archivos han sido reemplazados por los nuevos nombres de archivo inmediatamente. Ver capturas de pantalla:

Notas:

1. Al enumerar tus nombres antiguos y nuevos de los archivos, debe incluirse la extensión del archivo.

2. En el código anterior, la referencia A:A indica la lista de nombres antiguos que deseas cambiar, y la referencia B contiene los nuevos nombres que deseas usar; puedes cambiarlos según sea necesario.

Demostración: Cambiar el nombre de varios archivos de una carpeta en Excel

Artículos relacionados:

¿Cómo crear hojas de cálculo de secuencia a partir de un rango de celdas en Excel?

¿Cómo cambiar el nombre de varias hojas de cálculo en Excel?