Prüfen ob Datei existiert
21.10.2015 09:50:28
Thomas
ich habe folgenden Code der eine Kopie einer Datei im Unterverzeichnis "Archiv" des aktuellen Verzeichnisses erstellt. Wie kann ich hier eine Abfrage eibauen die prüft ob die Datei schon existiert und abfragt ob die Datei überschrieben werden soll.
Ich bekomme es aufgrund des generierten Dateinamens nicht hin. :-(
Für Lösungsvorschläge bin ich unendlich dankbar!
Gruß,
Thomas
Hier noch mein Code
Sub Speichern()
Dim strPath As String
Dim strFile As String
strPath = ActiveWorkbook.Path & "\Archiv\"
strFile = Sheets("Standortkürzel").Range("B4")
ActiveWorkbook.SaveCopyAs Filename:=strPath & strFile & Format(Date, "_yyyy") & ".xlsm"
End Sub