¿Cómo cambiar el nombre de varios archivos de una carpeta en Excel?
Puede ser que la mayoría de nosotros suframos este problema de que necesitamos cambiar el nombre de varios archivos en una carpeta, cambiar el nombre de los archivos uno por uno nos volverá locos si hay cientos o miles de archivos en esa carpeta. ¿Existen buenas funciones para que nos ocupemos de esta tarea?
Enumere todos los nombres de archivo de una carpeta específica en la hoja de trabajo con kutools para Excel
Cambie el nombre de varios archivos de una carpeta en Excel con código VBA
Enumere todos los nombres de archivo de una carpeta específica en la hoja de trabajo con kutools para Excel
Si hay varios archivos a los que desea cambiarles el nombre, primero puede enumerar los nombres de los archivos antiguos en una columna de la hoja de trabajo y luego ingresar los nuevos nombres de archivo por los que desea reemplazarlos. Para enumerar rápidamente todos los archivos en la hoja de trabajo, puede usar el Kutools for Excel, Lista de nombre de archivo utilidad.
Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratis Kutools para Excel ahora )
1. Hacer clic Kutools Más > Importación y exportación > Lista de nombre de archivo, ver captura de pantalla:
2. En la Lista de nombre de archivo cuadro de diálogo, haga clic en para elegir la carpeta de archivos en la que desea enumerar los archivos y luego haga clic en Todos los archivos del desplegable Tipo de archivos, ver captura de pantalla:
3. Luego haga clic OK botón, todos los nombres de archivo se han enumerado en una columna de una nueva hoja de trabajo, así como algunos atributos de archivo, y ahora, puede eliminar otras columnas no deseadas y solo dejar el Nombre de archivo columna, ver captura de pantalla:
Haga clic para obtener más información sobre esta función de lista de nombres de archivo ...
Descarga gratis Kutools para Excel ahora
Cambie el nombre de varios archivos de una carpeta en Excel con código VBA
Después de enumerar todos los nombres de archivo originales en una columna A, debe escribir nuevos nombres de archivo en la columna B como se muestra en la siguiente captura de pantalla:
Y aquí hablaré sobre un código VBA que puede ayudarlo a reemplazar los nombres de archivo antiguos con los nuevos nombres de archivo a la vez. Siga los siguientes pasos:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana del módulo.
Código VBA: cambie 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, presione F5 para ejecutar este código, y en el Explorar ventana, seleccione la carpeta en la que desea cambiar los nombres de archivo, vea la captura de pantalla:
4. Y luego haz clic OK, todos los nombres de archivo antiguos han sido reemplazados por los nuevos nombres de archivo inmediatamente. Ver capturas de pantalla:
Notas:
1. Cuando enumere sus nombres de archivo nuevos y antiguos, debe incluir la extensión del archivo.
2. En el código anterior, la referencia AUTOMÓVIL CLUB BRITÁNICO indica la lista de nombres de archivos antiguos que desea cambiar de nombre y referencia B contiene los nuevos nombres de archivo que desea usar, puede cambiarlos según sus necesidades
Demostración: cambie el nombre de varios archivos de una carpeta en Excel
Artículos relacionados:
¿Cómo crear hojas de trabajo de secuencia a partir de un rango de celdas en Excel?
¿Cómo cambiar el nombre de varias hojas de trabajo en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!