Hallo zusammen,
ich habe vermutlich ein recht banales Problem.
Beim einer Datei per VBA erhalte ich als Dateiname "musterdatei.xlsx.pdf".
Gibt es eine Möglichkeit das "xlsx" aus dem Dateinamen zu entfernen?
Ich hab auch schon das Forum durchforstet, konnte aber leider keine Befriedigende Lösung erhalten welche zu meinem Code passt.
Würde mich freuen wenn jemand helfen kann.
Hier noch der Code den ich zur Erstellung des PDF verwende:
Dim vntReturn As Variant
vntReturn = Application.GetSaveAsFilename(InitialFileName:=strDatei & ".pdf", _
FileFilter:="PDF-Datei (*.pdf), *.pdf)", Title:="PDF erzeugen")
If vntReturn False Then
Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=vntReturn, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False)
End If
Viele Grüße
Marc