Probeer het alsjeblieft zo.
Eén bestand kopiëren of verplaatsen
Voor één bestand kunt u de VBA-naam en FileCopy-functie gebruiken en voor hele mappen of veel bestanden de andere macrovoorbeelden op deze pagina.
Sub Copy_One_File()
    FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
'U kunt het pad en de bestandsnaam wijzigen'
    Naam "C:\Users\Ron\SourceFolder\Test.xls" als "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
Kopieer of verplaats meer bestanden of complete mappen
Opmerking: lees de becommentarieerde coderegels in de code
Sub-kopie_map()
'Dit voorbeeld kopieert alle bestanden en submappen van FromPath naar ToPath.
'Opmerking: als ToPath al bestaat, zal het bestaande bestanden in deze map overschrijven
'Als ToPath niet bestaat, wordt het voor je gemaakt.
    Dim FSO als object
    Dim van pad als string
    Dim ToPath als tekenreeks
    FromPath = "C:\Users\Ron\Data" '<< Wijzigen
    ToPath = "C:\Users\Ron\Test" '<< Wijzigen
    'Als u een back-up van uw map wilt maken elke keer dat u deze macro uitvoert
    'u kunt een unieke map maken met een datum/tijd-stempel.
    'ToPath = "C:\Users\Ron\" & Format (Nu, "jjjj-mm-dd h-mm-ss")
    Als Rechts(VanPath, 1) = "\" Dan
        VanPath = Links(VanPath, Len(VanPath) - 1)
    End If
    Als Rechts (Naar Pad, 1) = "\" Dan
        Naar Pad = Links (Naar Pad, Len (Naar Pad) - 1)
    End If
    Stel FSO = CreateObject("scripting.filesystemobject") in
    Als FSO.FolderExists(VanPath) = False Dan
        MsgBox FromPath & "bestaat niet"
        Exit Sub
    End If
    FSO.CopyFolder Source:=VanPath, Destination:=ToPath
    MsgBox "U kunt de bestanden en submappen vinden van " & FromPath & " in " & ToPath
End Sub