Replace richtig einsetzen
16.01.2021 11:18:22
herbi
bei folgendem Code, zum erzeugen einer PDF-Datei, brauche ich Hilfe beim richtigen setzen der Funktion "replace".
Sub pdfDatei()
'PDF-Datei erzeugen und speichern
'Format, Hoch 1 - oder Quer 2, einstellen
Sheets("Test").PageSetup.Orientation = 1
'PDF wird mit ExportAsFixedFormat als TypPDF ausgegeben, mit Namen aus Urlaubsschein als _
Dateinamen
Sheets("Urlaubsschein").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\yyy\xxx\Dokumente\zzz\verzeichnis\" _
& Sheets("Test").Range("C12").Value & ".pdf", _
openafterpublish:=True
End Sub
Wie kann ich, unter Verwendung von "replace", diesen Dateinamen: hans,%20franz.pdf, vermeiden?
Konkret, wie bekomme ich das "Komma, das % Zeichen und die 20 (vermtl. Leerzeichen), aus dem Dateinamen weg?
Danke