Office: Datei als PDF im selben Ordner speichern

goashu · 12. Mai 2013

Hallo zusammen

Ich habe einen Button, mit dem ich von meinem Excel Formular ein PDF erstellen kann. Nun möchte ich gerne auch den Pfad angeben, und zwar soll das PDF dort gespeichert werden, wo sich die Excel Datei befindet (das ändert sich jeweils - momentan wird das PDF in Eigene Dokumente gespeichert).

Mein Code sieht momentan so aus (funktioniert bis dahin alles):

Code:

Private Sub CommandButton2_Click()

Range("A4:G4").NumberFormat = ";;;"
Range("E8:G8").NumberFormat = ";;;"
Range("A10:G10").NumberFormat = ";;;"
Range("F32").NumberFormat = ";;;"
Range("F36").NumberFormat = ";;;"
Range("A1").Value = ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Gehaltsrechnung_" & Range("B5").Text & "_" & Range("B6").Text _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("A4:G4").NumberFormat = "General"
Range("E8:G8").NumberFormat = "General"
Range("A10:G10").NumberFormat = "General"
Range("F32").NumberFormat = "General"
Range("F36").NumberFormat = "General"
Range("A1").Value = "x"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich danke euch schonmal im vorraus!

LG

:)

Beverly · 14. Mai 2013

Hi,

versuche es mal, indem du noch ThisWorkbook.Path davorschreibst vor den Dateinamen:

Code:

Filename:=ThisWorkbook.Path & "\Gehaltsrechnung_" & Range("B5").Text
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

goashu · 14. Mai 2013

Funktioniert einwandfrei!

Vielen lieben Dank!!

Gruss

P.S.: Wofür ist der Backslash "\" vor dem "\Gehaltsrechnung" ??

Beverly · 14. Mai 2013

ThisWorkbook.Path wird ohne "\" am Ende wiedergegeben - das kannst du sehen, wenn du ThisWorkbook.Path überwachst oder in einer MsgBox anzeigen lässt.

Office: Datei als PDF im selben Ordner speichern

Datei als PDF im selben Ordner speichern

Datei als PDF im selben Ordner speichern

Datei als PDF im selben Ordner speichern

Datei als PDF im selben Ordner speichern - Similar Threads - Datei PDF selben

Datei als PDF speichern ohne festen Dateipfad

PDF-Dateinamen aus Zellen zusammensetzen

mehrere Hyperlink-Dateien in pdf drucken

PDF Datei in Zelle fixieren

Hintergrundbild: Keine Anzeige in pdf-Datei

Öffnen einer bestimmten Seite einer pdf-Datei

Kann Posteingang an meine Mails angehängte Office Dateien sowie Pdf und Fotos-Jpg nicht mehr öffnen