leider verzweifel ich grade an einer sicherlich einfachen Aufgabe: ich würde gerne per VBA-Button das aktuelle Tabellenblatt in einen Ordner als .pdf speichern. Soweit klappt auch alles, der Dateiname ist auch so wie ich ihn möchte...
Es soll jedoch vorab gefragt werden, ob die erzeugte pdf angezeigt werden soll. Zudem soll geprüft werden, ob der Dateiname bereits im Ordner vorhanden ist und, falls ja, ob diese überschrieben werden soll.
Sub Test_als_pdf()
If MsgBox("Soll die PDF-Datei nach dem Speichern angezeigt werden?", vbYesNo + vbQuestion, " _
Frage") = vbYes Then xlOpenAfterPublish = True
strFile = "C:\Users\Thomas\Desktop\TestExcel\
If Len(Dir(strFile)) = Filename Then
'Datei vorhanden
i = MsgBox("Diese Datei ist bereits vorhanden, soll diese überschreiben werden?", _
vbYesNo)
If i = 6 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Thomas\Desktop\TestExcel\TestExcel" & "_" & ActiveSheet.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Else
'Datei nicht vorhanden
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Thomas\Desktop\TestExcel\TestExcel" & "_" & ActiveSheet.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End Sub
So richtig klappt es leider nicht mit dem Code...
Beste Grüße
Thomas