Abfrage ob erstellte pdf im Ordner vorhanden ist
07.12.2018 08:47:46
Kalle
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