Hvordan flytter man bestemte filer fra en mappe til en anden i Excel?
Antag, jeg har en stor mappe, der indeholder slags filer, såsom docx, jpg, xlsx osv. Som vist nedenstående skærmbillede. Nu vil jeg flytte nogle specifikke filtyper fra mappen til en anden ny mappe uden at flytte en efter en manuelt. Har du gode ideer til at løse denne opgave i Excel?
Flyt specifikke filer fra en mappe til en anden mappe med VBA-kode
Flyt specifikke filer fra en mappe til en anden mappe med VBA-kode
For at flytte alle de specifikke filtyper fra en mappe til en anden så hurtigt som du vil, kan følgende VBA-kode hjælpe dig, gør som dette:
1. Holde nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Flyt bestemte typer filer fra en mappe til en anden:
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
Bemærk: I ovenstående kode "* .xlsx *""* .jpg"i scriptet: xExtArr = Array ("*. xlsx *", "* .jpg") er de filtyper, du vil flytte, kan du ændre dem til andre eller tilføje andre filtyper, som du har brug for.
3. Tryk derefter på F5 nøgle til at køre denne kode, og et vindue dukkede ud for at minde dig om at vælge den originale mappe, hvor du vil flytte filerne fra, se skærmbillede:
4. Klik derefter på OK, og et andet vindue vises. Vælg den destinationsmappe, hvor du vil flytte filerne til, se skærmbillede:
5. Og klik derefter på OK, vises en hurtigboks for at minde dig om, hvor mange filer der er blevet flyttet, luk den, og du kan se den specifikke jpg, xlsx-filer er flyttet til den angivne mappe, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!