Hallo,
ich möchte gern alle exceldatein aus einem Ordner, mit einem Macro, in einem anderen Ordner ( archiv ) kopieren. Dies klappt mit dem unten stehenden Macro auch super. nur leider bekomme ich eine Fehlermeldung wenn diese Datei im Zielordner schon vorhanden ist. Eine Lösung wäre für mich wenn man es irgendwie schafft aus z.B. 7.1.2015 7.1.2015(1) und wenn schon da ist dann 7.1.2015(2) unsw. machen könnte. Zur Not wäre es auch machbar das man dann die schon vorhandene Datei löscht.
Dim strQuelle As String
Dim strZiel As String
Dim objFSO As Object
strQuelle = "C:\test\*.xls"
If Dir(strQuelle) = "" Then MsgBox "Nix da!": Exit Sub
strZiel = "C:\test\Freitag\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile strQuelle, strZiel !!!! hier erschein die Fehlermeldung
Set objFSO = Nothing
Ich habe von VBA keine Ahnung deshalb bitte ich euch um Hilfe.
Liebe Grüsse Thomas