Hoe verplaatst u specifieke bestanden van de ene map naar de andere in Excel?
Stel dat u een grote map hebt met allerlei bestanden, zoals .docx, .jpg, .xlsx, enzovoort, zoals op de volgende schermafbeelding te zien is. Wilt u bepaalde bestandstypen uit die map verplaatsen naar een nieuwe map, zonder ze handmatig één voor één te verplaatsen? Heeft u een goed idee om deze taak in Excel op te lossen?
Specifieke bestanden verplaatsen van de ene map naar een andere map met VBA-code
Specifieke bestanden verplaatsen van de ene map naar een andere map met VBA-code
Als u alle bestanden van een specifiek bestandstype zo snel mogelijk van de ene map naar de andere wilt verplaatsen, helpt de volgende VBA-code u daarbij. Volg deze stappen:
1. Houd ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Specifieke Bestandstype verplaatsen van de ene map naar een andere:
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
Opmerking: In de bovenstaande code geven "*.xlsx*„ en "*.jpg" in het script:xExtArr = Array("*.xlsx*", „*.jpg") de bestandstypen aan die u wilt verplaatsen. U kunt deze aanpassen of andere bestandstypen toevoegen, afhankelijk van uw behoeften.
3. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt dan een venster waarin u wordt gevraagd de oorspronkelijke map te selecteren waaruit u de bestanden wilt verplaatsen. Zie de schermafbeelding:
4. Klik daarna op OK. Vervolgens verschijnt er nog een venster; kies hierin de doelmap waarnaar u de bestanden wilt verplaatsen. Zie de schermafbeelding:
5. Klik daarna op OK. Er verschijnt een meldingsvenster met het aantal verplaatste bestanden. Sluit dit venster en u ziet dat de specifieke JPG- en XLSX-bestanden naar de opgegeven map zijn verplaatst. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins