Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Datei existiert, dann Name erweitern

Wenn Datei existiert, dann Name erweitern
22.08.2006 16:01:21
Alexander
Hallo zusammen,
ich habe folgendes Problem: Die Excel-Datei wird per Makro unter einem bestimmten Namen abgespeichert. Wenn dort jedoch diese Datei schon existiert kommt bekanntlich die Meldung "Datei existiert bereits, überschreiben?" Wenn dies der Fall ist, soll die Datei trotzdem in diesem Ordner gespeichert werden jedoch mit einer Erweiterung z.B. ...(2)
habe leider bei der Recherche noch nicht Passendes gefunden.
Vielen Dank für die Hilfe.
Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Datei existiert, dann Name erweitern
22.08.2006 19:20:43
ChrisL
Hallo Alex

Sub t()
Dim strPfad As String
strPfad = "C:\Pfad\Mappe0001.xls"
Do Until Dir(strPfad) = ""
strPfad = Left(strPfad, Len(strPfad) - 8) & Format(CInt(Mid(strPfad, Len(strPfad) - 7, 4)) + 1, "0000") & ".xls"
Loop
ThisWorkbook.SaveAs strPfad
End Sub

strPfad anpassen, aber Nummer 4-stellig beibehalten.
Gruss
Chris
Anzeige
AW: Wenn Datei existiert, dann Name erweitern
22.08.2006 20:39:11
Alexander
Hallo Chris,
vielen Dank. Werd ich ausprobieren.
Gruß
Alex
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige