Office: "Datei ersetzen ja nein abbrechen" debugging abfangen

schlauchturm · 6. Februar 2005

Hallo! Ich benutze folgenden Code, um eine bearbeitete Datei automatisch an einem bestimmten Ort abzuspeichern:
Code:

Sub saveAs()
dName = ActiveWorkbook.Name
pfad = "c:\"
If Right(LCase(dName), 16) "_ausgewertet.xls" Then
If Right(LCase(dName), 4) ".xls" Then
dName = dName & "_ausgewertet.xls"
Else
dName = Left(dName, Len(dName) - 4) & "_ausgewertet.xls"
End If
End If

ActiveWorkbook.saveAs fileName:="C:\" & dName, _
FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist die Datei nun schon vorhanden und bricht man das Ersetzen mit "Nein" bzw. "Abbrechen" ab, geht das Makro in den Debugginmodus mit der Fehlermeldung
Laufzeitfehler '1004':
Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen

Kann mir da wer helfen, wie man diese Meldungen abfaengt?

Danke,

Christof!

:)

Lumpensammler · 8. Februar 2005

Hallo, Christof,

vorher durch die Verwendung der Dir-Funktion überprüfen, ob die Datei besteht und dadurch die zurückgelieferte Länge größer 0 ist und dann entsprechend verzweigen (steht in der VBA-Hilfe).

Andere Möglichkeit: eine Fehlerbehandlung On Error GoTo Sprung mit weiteren Auswertungen über die Fehlernummer.

Gruß
LS

schlauchturm · 8. Februar 2005

Hmmm meinst du sowas wie
Code:

Function ExistiertDatei(strDatei As String) As Boolean
If Dir(strDatei) "" Then
ExistiertDatei = True
Else
ExistiertDatei = False
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und dann mit if else abfragen?
Hmmm... Ich bin in Gedanken schon zu sehr beim SKifahren (4 Tage, morgen gehts los) Ich werd mir das ganze mal Montag zu gemüte führen.

Danke,

Christof!

User · 8. Februar 2005

Hallo Christof,

das gerht auch mit einer Zeile.

ExistiertDatei =Dir(strDatei)

Der Ordner ist vorhanden

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Unimatrix Zero · 9. Februar 2005

Hallo Christof,

falls Du die Meldung ganz unterdrücken willst, könnte in Deinem Beispiel
Code:

Application.DisplayAlerts = False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ganz hilfreich sein.

schlauchturm · 14. Februar 2005

Ich habs jetzt so realisiert:

Aufgerufen wird die Funktion
Code:

Function DateiVorhanden(str As String) As Boolean
DateiVorhanden = False
If Len(str) > 0 Then DateiVorhanden = (Dir(str) "")
Exit Function
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit
Code:

Sub Datei()
Dim bln As Boolean
bln = DateiVorhanden("M:\[...]\Ist_Daten_Auswertungen\Ausgewertet\" & ActiveWorkbook.Name)
If bln = False Then
Application.Run "SaveDa"
Else

Dim intWas As Integer
intWas = MsgBox("Datei Existiert bereits. Überschreiben?", vbQuestion Or vbYesNo, "Firma")
Select Case intWas
Case 6
Application.Run "saveDa"
Case 7
MsgBox "Vorgang abgebrochen!"
Case Else
Exit Sub
End Select

End If
Exit Sub
Fehler1:
MsgBox "Pfad nicht verfügbar!"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert soweit einwandfrei. Irgendwelche Bdenken gegen diesen Code?

Danke schonmal an alle Hilfesteller,

Christof!

Lumpensammler · 14. Februar 2005

Hallo, Christof,

wo wird die Sprungmarke der Fehlermeldung angegeben? Vielleicht solltest Du die Anweisung On Error Goto Fehler1 zu Beginn der Sub einsetzen.

Gruß
LS

Office: "Datei ersetzen ja nein abbrechen" debugging abfangen

"Datei ersetzen ja nein abbrechen" debugging abfangen

"Datei ersetzen ja nein abbrechen" debugging abfangen

"Datei ersetzen ja nein abbrechen" debugging abfangen

"Datei ersetzen ja nein abbrechen" debugging abfangen - Similar Threads - Datei ersetzen abbrechen

VBA7, Declare Function FindWindow Lib

Name der Datei durch Excel geändert

Zugriff auf nicht vorhandene Datei seitens Excel

Makro öffnet unerwartete Datei

Große Textdatei - Formate entschlacken

Vorhandene Datei durch neue Datei ersetzen

Daten (Zahlen) ersetzen in zwei verschiedenen Dateien