Hoe verplaats ik specifieke bestanden van de ene map naar de andere in Excel?
Stel dat ik een grote map heb die soorten bestanden bevat, zoals docx, jpg, xlsx, enz. Zoals in het onderstaande screenshot. Nu wil ik een aantal specifieke bestandstypen van de map naar een andere nieuwe map verplaatsen zonder ze een voor een handmatig te verplaatsen. Heeft u goede idee毛n om deze taak in Excel op te lossen?
Verplaats specifieke bestanden van de ene map naar een andere map met VBA-code
Verplaats specifieke bestanden van de ene map naar een andere map met VBA-code
Om alle specifieke typen bestanden zo snel als u wilt van de ene map naar de andere te verplaatsen, kan de volgende VBA-code u helpen, doe dit als volgt:
1. Houd ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verplaats specifieke soorten bestanden van de ene map naar de 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
Note: In de bovenstaande code, "* .xlsx *''* .jpg"in het script: xExtArr = Array ("*. xlsx *", "* .jpg") zijn de bestandstypen die u wilt verplaatsen, kunt u deze naar andere wijzigen of andere bestandstypen toevoegen als u dat wilt.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verscheen een venster om u eraan te herinneren de originele map te selecteren waaruit u de bestanden wilt verplaatsen, zie screenshot:
4. Dan klikken OK, en er verschijnt een ander venster, kies de doelmap waar u de bestanden naartoe wilt verplaatsen, zie screenshot:
5. En klik vervolgens op OK, verschijnt er een promptvenster om u eraan te herinneren hoeveel bestanden zijn verplaatst, sluit het en u kunt zien dat de specifieke jpg-, xlsx-bestanden naar de opgegeven map zijn verplaatst, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!