¿Cómo mover archivos específicos de una carpeta a otra desde Excel?
Supongamos que tengo una carpeta grande con diversos tipos de archivos, como .docx, .jpg, .xlsx, etc., tal como se muestra en la siguiente captura de pantalla. Ahora quiero mover ciertos tipos de archivo específicos a una nueva carpeta, sin tener que hacerlo manualmente uno por uno. ¿Se te ocurre alguna buena forma de resolver esta tarea desde Excel?
Mover archivos específicos de una carpeta a otra con código VBA
Mover archivos específicos de una carpeta a otra con código VBA
Para mover todos los archivos de un tipo específico de una carpeta a otra tan rápido como desee, el siguiente código VBA puede ayudarle. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Mover Tipo de archivo específicos de una carpeta a otra:
Sub MoveFiles()
'Updateby Extendoffice
Dim xFd As FileDialog
Dim xTFile As String
Dim xExtArr As Variant
Dim xExt As Variant
Dim xSPath As String
Dim xDPath As String
Dim xSFile As String
Dim xCount As Long
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Please select the original folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xFd.Title = "Please select the destination folder:"
If xFd.Show = -1 Then
xDPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
xExtArr = Array("*.xlsx*", "*.jpg")
For Each xExt In xExtArr
xTFile = Dir(xSPath & xExt)
Do While xTFile <> ""
xSFile = xSPath & xTFile
FileCopy xSFile, xDPath & xTFile
Kill xSFile
xTFile = Dir
xCount = xCount + 1
Loop
Next
MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub
Nota: En el código anterior, "*.xlsx*« y »*.jpg" en el script:xExtArr = Array(«*.xlsx*», «*.jpg») son los tipos de archivo que desea mover. Puede cambiarlos por otros o añadir más tipos de archivo según sus necesidades.
3. A continuación, pulse la tecla F5 para ejecutar este código. Aparecerá una ventana que le pedirá que seleccione la carpeta de origen desde la que desea mover los archivos; consulte la captura de pantalla:
4. Luego, haga clic en Aceptar y aparecerá otra ventana. Seleccione la carpeta de destino a la que desea mover los archivos; consulte la captura de pantalla:
5. A continuación, haga clic en Aceptar. Aparecerá un cuadro de aviso indicando cuántos archivos se han movido. Ciérrelo y verá que los archivos JPG y XLSX especificados ya están en la carpeta indicada; consulte la captura de pantalla:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos