Dokument als .pdf und mit def. Pfad speicher
20.04.2016 09:19:19
Sascha
ich möchte mein Exceldokument zusätzlich zum .pdf Format gerne auch mit einem Speicherpfad "voreinstellen".
Unten mein aktueller Code. Er liefert bereits den Angebotsnamen, das Produkt und das Speicherdatum als PDF und dann öffnet sich Eigene Dateien um dann immer den Speicherort zu suchen. Für Eigene Dateien hätte ich gerne den Angebotspfad direkt angewählt.
Meine Bitte Nr. 2 wäre ein weiterer Button in dem ein neuer Ordner bzw. Verzeichnis mit oben genannter Bezeichnung in dem Angebotsverzeichnis angelegt wird. Beispiel: D:\_Userdaten\XXX\Angebote 2016\neuer Ordner.
Bitte um Hilfe und danke im Vorraus!
Private Sub CommandButton1_Click()
Dim Dateiname
Dim Exportname
ActiveSheet.PageSetup.LeftFooter = "&""Arial,Standard"
Dateiname = ActiveSheet.Range("A1").Value & " " & Cells(2, 2) & " " & Cells(3, 2) & ".pdf"
Exportname = Application.GetSaveAsFilename(Dateiname, "PDF-Dateien (*.pdf), *.pdf", , "PDF - _
_
_
Export", "PDF - Export")
If Exportname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Exportname, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End Sub
Anzeige