Office: (Office 2007) PDF

Hallo Excel-Experten

ich habe ein "Makro" zusammen gesetzt, welches folgendermaßen funktioniert :
Im Dokument werden Daten eingetragen, welche u.a. für den Dateinamen wichtig sind, per Button-Klick wird das Exportieren der Datei ins *.pdf-Format inklusive Abspeichern in vorgegebenem Verzeichnis und anschließendem Ausdruck angestoßen.
Code:

Mein Problem ist, es wird nicht geprüft ob die abzuspeichernde Datei schon existiert. Es wird einfach gespeichert und ebend auch einfach überschrieben.
Falls jemand bei uns also vergessen sollte, die Werte der Zellen [Filename] zu ändern, werden schon existierende *.pdf-Dokumente einfach überschrieben.
Wie bringe ich Excel bzw. das Makro dazu, vorher zu prüfen und entsprechend eine Warnung abzusetzen ?

Vielen Dank.

:)

 

Die Zugriffe auf das Dateisystem sind bei VBA ein bisschen versteckt.
Das FileSystem-Objekt (Scripting.FileSystem) liefert einem alle notwendigen Funktionen.

Ein Beispiel "FileExist" ist unter
http://www.webpagedeveloper.ws/FSRC/...ct%20code.html
zu finden.

Schöne Grüße

 

\@driemer
Vielen Dank, aber da komme ich als Laie nicht weiter.

Code:

Ich habe meinen Code noch ein wenig aufgehübscht, die Warnung
"Die Datei XXX.pdf besteht bereits. Möchten Sie die bestehende Datei ersetzen ?", welche ich erhalte, wenn ich den *.pdf_Export über Office->Speichern unter...-> PDF mache kommt, wie oben beschrieben, nicht.

Wie müsste ich eine "FileExist"-Prüfung in den Code einbringen, damit er den Vorgang bis zum Ausdrucken durchführt, aber falls eine gleichnamige *.pdf schon existiert abbricht mit Fehlermeldung ?
Wie oben geschrieben, wird der Dateiname aus 3 Feldern des Tabellenblattes zusammengesetzt : "220234 - 0020 - A.pdf" (Auftragsnummer/Positionsnummer/Teilenummer).

Danke im Voraus.

 

Hiermit sollte es gehen .. ist allerdings nicht getested.



Private Sub Speichern_Click()
Dim oFSO As Object
Dim bFileExists As Boolean
Set oFSO = CreateObject("Scripting.FileSystemObject")
dateiname = "K:\TEST\" & Cells(2, 2).Value & " - 00" & Cells(4, 2).Value & " - " & Cells(6, 2).Value
Do
exportname = Application.GetSaveAsFilename(dateiname, "PDF-Dateien (*.pdf), *.pdf", , "PDF-Export", "PDF-Export")
bFileExists = oFSO.FileExists(exportname)
If bFileExists Then MsgBox ("Die Datei existiert bereits bitte wählen Sie einen anderen Namen")
Loop Until Not bFileExists
If exportname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=exportname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
SendKeys "{ENTER}"
ActiveSheet.PrintOut
End If
End Sub

 

\@ driemer
auf den ersten versuch scheints perfekt...tausend dank...

grüße