Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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 volgende screenshot wordt getoond. Nu wil ik een aantal specifieke bestandstypen van de map naar een andere nieuwe map verplaatsen zonder deze handmatig een voor een te verplaatsen. Heb je 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 soorten 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 bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: verplaats specifieke typen bestanden van de ene naar de andere map:

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

Notes: In de bovenstaande code, "* .xlsx *''* .jpg"in het script: xExtArr = Array ("*. xlsx *", "* .jpg") zijn de bestandstypen die u wilt verplaatsen, u kunt ze naar anderen wijzigen of andere bestandstypen toevoegen als u dat wilt.

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een venster om u eraan te herinneren de oorspronkelijke map te selecteren waar u de bestanden naartoe wilt verplaatsen, zie screenshot:

4. Dan klikken OK, en een ander venster verschijnt, kies de doelmap waarheen u de bestanden wilt verplaatsen, zie screenshot:

5. En klik vervolgens op OK, er verschijnt een promptvenster om u eraan te herinneren hoeveel bestanden zijn verplaatst, sluit het en u kunt zien dat de specifieke jpg- en xlsx-bestanden zijn verplaatst naar de opgegeven map, zie screenshot:


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luke · 1 months ago
    Hi,
    Code works great for what I am doing. Thank you! How do you have it check if files exist in the destination folder and prompt the user to ask if they want to overwrite the files or save as another file name? I am working with .pdf files saving to the destination folder.
  • To post as a guest, your comment is unpublished.
    Lokesh · 1 years ago
    To move or copy files from a folder to another based on excel list, and destination (path)
    on excel list. plz help...
  • To post as a guest, your comment is unpublished.
    lokesh · 1 years ago
    Hello
    To move or copy files from a folder to another based on excel list, the following article may help you!
  • To post as a guest, your comment is unpublished.
    Kumar · 1 years ago
    Hi,
    I need a help. Can we select few files and move them in to a separate folder by list in excel file?
    thanks in advance
  • To post as a guest, your comment is unpublished.
    rocky · 1 years ago
    Hi

    Thanks for helpful tip. I have around 5000 files listed on one excel file. I need to search all these files from the entire computer , if file names are matched then copy and paste in another folder