Wie verschiebt man bestimmte Dateien von einem Ordner in einen anderen – direkt aus Excel heraus?
Angenommen, ich habe einen großen Ordner mit verschiedenen Dateitypen wie .docx, .jpg, .xlsx usw., wie im folgenden Screenshot gezeigt. Wie kann ich bestimmte Dateitypen aus diesem Ordner effizient in einen neuen Ordner verschieben – ohne jede Datei einzeln manuell zu verschieben? Gibt es eine praktikable Lösung dafür in Excel?
Verschieben bestimmter Dateien von einem Ordner in einen anderen Ordner mithilfe von VBA-Code
Verschieben bestimmter Dateien von einem Ordner in einen anderen Ordner mithilfe von VBA-Code
Um alle gewünschten Dateitypen so schnell wie möglich von einem Ordner in einen anderen zu verschieben, hilft Ihnen der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Verschieben bestimmter Dateityp von einem Ordner in einen anderen:
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
Hinweis: Im obigen Code stehen „*.xlsx*“ und „*.jpg“ im Skript:xExtArr = Array("*.xlsx*", „*.jpg") für die Dateitypen, die Sie verschieben möchten. Sie können diese anpassen oder weitere Dateitypen hinzufügen – ganz nach Bedarf.
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Fenster, das Sie auffordert, den ursprünglichen Ordner auszuwählen, aus dem die Dateien verschoben werden sollen (siehe Screenshot):
4. Klicken Sie dann auf OK, und es erscheint ein weiteres Fenster. Wählen Sie nun den Zielordner aus, in den die Dateien verschoben werden sollen (siehe Screenshot):
5. Klicken Sie anschließend auf OK. Daraufhin erscheint eine Meldungsbox, die anzeigt, wie viele Dateien verschoben wurden. Schließen Sie diese, und Sie sehen, dass die entsprechenden JPG- und XLSX-Dateien in den angegebenen Ordner verschoben wurden (siehe Screenshot):
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins