Microsoft Excel

Herbers Excel/VBA-Archiv

Abfrage ob erstellte pdf im Ordner vorhanden ist


Betrifft: Abfrage ob erstellte pdf im Ordner vorhanden ist
von: Kalle Sz.
Geschrieben am: 07.12.2018 08:47:46

Hallo liebe Spezialisten der Forumsgemeinde,
nit Hilfe des Forums habe ich unten stehenden Code erstellt, der mir ein pdf eines Tabellenblattes erstellt.
Wenn allerdings schon ein pdf-File mit gleichem Namen im Ordner steht, wird dieses überschrieben.
Ich hätte jetzt gerne noch eine Abfrage davor gestellt:
1. ob das Überschreiben erwünscht ist, oder
2. falls nicht, ob dann eine Kopie im gleichen Ordner erstellt werden soll.
Der Dateiname sollte dann z.B. so aussehen:
DateiName = DateiPfad & Range("ab1") & " " & Range("aa1") & "Anhang"& "Copie1.pdf"

Alles was ich bisher recherchiert und probiert habe führt zu Fehler. Meine VK-Kenntnisse sind leider auch nur sehr bescheiden.

Kann mir da jemand weiterhelfen. Ganz herzlichen Dank im voraus.
Kalle Sz.

Sub Anhang_erstellen() 'erstellt pdf vom Anhang
Dim DateiName As String

DateiPfad = Application.ActiveWorkbook.Path & "\Protokolle" & "\"
DateiName = DateiPfad & Range("ab1") & " " & Range("aa1") & "Anhang.pdf"

Select Case MsgBox("Wollen Sie einen Anhang mit Bildern als .pdf erstellen und speichern?",  _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Hinweis")
    Case vbYes
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True,  _
IgnorePrintAreas _
                :=False, OpenAfterPublish:=True
    Sheets("Anhang").Activate
    Case vbNo
             Exit Sub
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    True
End Select

End Sub

  

Betrifft: AW: Abfrage ob erstellte pdf im Ordner vorhanden ist
von: PeterK
Geschrieben am: 07.12.2018 09:04:32

Hallo



If Dir(DateiName, vbDirectory) = vbNullString then
... alles OK
Else
... Datei existiert
End if




  

Betrifft: AW: Abfrage ob erstellte pdf im Ordner vorhanden ist
von: Kalle
Geschrieben am: 08.12.2018 10:23:29

Hallo PeterK,

vielen Dank für Deine Antwort.
Dauerte zwar eine Weile bis ich das korrekt eingefügt hatte, aber ich hab's hingekriegt, trotz meiner minimalen VB-Kenntnisse - also wieder was gelernt! :-)

Viele Grüße Kalle Sz