¿Cómo mover archivos específicos de una carpeta a otra en Excel?
Supongamos que tengo una carpeta grande que contiene tipos de archivos, como docx, jpg, xlsx, etc., como se muestra en la siguiente captura de pantalla. Ahora, quiero mover algunos tipos de archivos específicos de la carpeta a otra carpeta nueva sin moverlos uno por uno manualmente. ¿Tiene alguna buena idea para resolver esta tarea en Excel?
Mueva archivos específicos de una carpeta a otra carpeta con código VBA
Mueva archivos específicos de una carpeta a otra carpeta con código VBA
Para mover todos los tipos específicos de archivos de una carpeta a otra tan rápido como lo desee, el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Sujetar ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código VBA: mueva tipos específicos de archivos 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
Note: En el código anterior, "* .xlsx *""* .jpg"en el guión: xExtArr = Matriz ("*. xlsx *", "* .jpg") son los tipos de archivo que desea mover, puede cambiarlos por otros o agregar otros tipos de archivos según lo necesite.
3. Entonces presione F5 para ejecutar este código, y apareció una ventana para recordarle que seleccione la carpeta original desde donde desea mover los archivos, vea la captura de pantalla:
4. Luego haga clic OK, y se abre otra ventana, elija la carpeta de destino a la que desea mover los archivos, vea la captura de pantalla:
5. Y luego haz clic OK, aparecerá un cuadro emergente para recordarle cuántos archivos se han movido, ciérrelo y podrá ver que los archivos jpg, xlsx específicos se han movido a la carpeta especificada, vea la captura de pantalla:
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!