Office: PDF-Datei löschen, Prüfen ob Datei vorhanden

Hallo zusammen!

Da mir beim letzten Mal wunderbar geholfen wurde, setze ich auch jetzt wieder auf die klugen Köpfe hier:

Ich benötige ein Makro, mit dem ich (m)eine geänderte Mappe als *.xlsm und *.pdf abspeichere und die Vorgängerversionen lösche.

Um Fehlermeldungen bei der ersten Anwendung zu vermeiden, möchte ich das Löschen nur ausführen, wenn die Dateien auch vorhanden sind. Und genau da klemmt's.
Ich hab den Code dafür in mehreren Beiträgen gefunden, aber er will nicht so recht.
Könnt ihr mir auf die Sprünge helfen?

Danke schonmal im Vorraus!

Hier mein Code:
Code:

*das ganze läuft (oder auch nicht) mit Excel 2010

Felix

:)

 

Hallo Felix,

gleich eine Rückfrage:

Range("B2").Value = a 'Kontrollzweck
Range("B3").Value = b 'Kontrollzweck

Was sagt denn die Kontrolle? Stimmen die Dateinamen denn mit den gewünschten überein? Die eine heißt ja "Mappenname.xlsm", die andere "Mappenname.xlsm.pdf"

Um die Endung zu ersetzen, könntest Du folgenden Code verwenden:
Code:

Bei ThisWorkbook.Path & "\" & Range("A1").Value & Format(Date, "YYYYMMDD") & ".pdf" fehlt jeweils mindestens der Backslash nach dem Pfad - ich hoffe, der ist im Code da und wurde nur durch die Forensoftware (lästiger Bug) verschluckt.

Dateien löschen, wenn vorhanden, würde ich über eine DIR()-Anweisung regeln:
Sinngemäß: If Dir (Pfad & "\" & Dateiname) > "" Then Kill Pfad & "\" & Dateiname
Wobei eine zwischengeschaltete Sicherheitsabfrage von Vorteil sein könnte - Kill löscht am Papierkorb vorbei.

Grüße
EarlFred

 

Hallo EarlFred,

die Rückgabe der Dateinamen in B2 und B3 passt. *doch nicht. Das pdf heißt nicht .xlsm.pdf, sondern nur .pdf
B2 Stimmt, B3 nicht. ...ich bin dran

Und ja, der Backslash ist im Code vorhanden. Aber danke für den Hinweis, das hilft bestimmt, wenn ich das nächste mal im Forum lese.

Was das endgültige Löschen angeht ist es nicht so wild, da die Daten nicht in dem Sinne überlebenswichtig sind und im Zweifelsfall regelmäßig auf einem Server abgelegt werden.

Und jetzt probier ich erstmal deine Vorschläge... *wink.gif*

 

Hallo Felix,

das irritiert mich, [Edit: nach Deinem Edit: nicht mehr]
*wink.gif*

Grüße
EarlFred

 

erstmal klappt das schon ganz gut.
Die Benennung der PDF läuft und die alte Excel-Datei wird auch gelöscht (per Dir()-Anweisung).

Allerdings schaffe ich es noch nicht das pdf zu löschen.
If Dir(fTemp & ".pdf") > "" Then Kill b war jetzt mein Gedanke, aber da vertragen sich die Typen nicht. fTemp gibt mir alles, bis auf die Dateiendung....

 

Hallo Felix,

du solltest auch nicht mit fTemp ins Rennen gehen, sondern dem Dateinamen in der Variable b, nachdem der von mir gezeigte Code die Endung gewechselt hat... *wink.gif*

b enthält doch also bereits Pfad & Dateiname(ohne Endung) & Endung ".pdf":
If Dir(b) > "" Then Kill b

Grüße
EarlFred

 

*grins
das war zu naheliegend....!

beim Blick in meine Ausgabe seh ich's jetzt auch.


Also, und mal wieder: Vielen Dank! *Smilie