Problem beim PDF Exportieren und Speichern

Hallo
Ich habe eine .xlsm Mappe mit mehreren Sheets. Teile dieser Mappe möchte
ich als PDF exportieren und unter einem zu erstellenden Pfad abspeichern. Leider
scheitere ich an der Datums Namensvergabe. Ich stelle mir das Ergebnis
folgendermaßen vor:
Speicherort:
S:\Pfad\Pfad\Pfad\Ordner mit Datum als Name(Jahreszahl)\Datum(MMTT)_SheetName.pdf
Alternativ kann auch auf Zellen des Sheets zugegriffen werden in der der Name und das Datum stehen. Range("L1") = Name; Range("L2")= Datum(JJJJMMTT)
Ein anderer Sheet muss geteilt abgespeichert werden.
Speicherort:
Dateipfad: Sheets(Name2) Range(A1:H45) für den ersten Teil des Sheets
S:\Pfad\Pfad\Pfad\Ordner mit Datum als Name(Jahreszahl)\Datum(MMTT)_RE.pdf
für den zweiten Teil: Sheets(Name2) Range(A46:H[letzte Zeile mit Text])
S:\Pfad\Pfad\Pfad\Ordner mit Datum als Name(Jahreszahl)\Datum(MMTT)_KT.pdf
Hoffe mir kann jemand helfen. Habe schon die verschiedensten Beiträge hier und andernorts Gelesen, aber nicht das richtige gefunden.
Viele Grüße
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PdfSpeichern() Dim sPfad As String sPfad = ThisWorkbook.Path & "\" & Format(Date, "yyyy") 'Verzeichnis erstellen, falls nicht vorhanden If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad 'pdf speichern With ThisWorkbook .ExportAsFixedFormat _ Filename:=sPfad & "\" & Format(Date, "mmdd") _ & " " & Replace(.Name, ".xlsm", ".pdf"), _ Type:=xlTypePDF End With End Sub

Hallo Barbaraa
Habe deinen Code ausprobiert. Grundsätzlich funktioniert er, nur leider nicht so wie beabsichtigt. Beim anwenden macht er die gesamte Mappe zu einer einzigen PDF. Beabsichtigt war aber nur 1 Sheet zu exportieren. Habe versucht den Code dahingehend abzuändern. Bekomme aber nur Fehlermeldungen. Vielleicht kannst du mir sagen was ich beim ändern falsch gemacht habe.

Sub PdfSpeichern()
Dim sPfad   As String
sPfad = SERVERNEU\Daten\lager\TEST & "\" & Format(Date, "yyyy") & "\" & Summen\
'Verzeichnis erstellen, falls nicht vorhanden
If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad
'pdf speichern
With Sheets("Summen")
.ExportAsFixedFormat _
Filename:=sPfad & "\" & Format(Date, "mmdd") _
& " " & Replace(.Name, ".xlsm", ".pdf"), _
Type:=xlTypePDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

Habe sPfad = ThisWorkbook.Path und With ThisWorkbook geändert und noch die PDF Eigenschaften angehängt.
Vielen Dank für deine Hilfe
Gruß
Michael

Sub PDF_Summen() ' Speichert die Tabelle Summen als PDF Dim sPfad As String Dim nPfad As String Const Path = "\\SERVERNEU\Daten\lager\PDF Rechnungen Lagerware" nPfad = (Path & "\" & Format(Date, "yyyy")) sPfad = (nPfad & "\" & ("Summen")) 'Verzeichnisse erstellen, falls nicht vorhanden If Dir(nPfad, vbDirectory) = "" Then MkDir (nPfad) If Dir(sPfad, vbDirectory) = "" Then MkDir (sPfad) 'pdf speichern With Sheets("Summen") .ExportAsFixedFormat _ Filename:=sPfad & "\" & Format(Date, "mm.dd") _ & " " & Replace(.Name, ".xlsm", ".pdf"), _ Type:=xlTypePDF, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With End Sub

Beliebteste Forumthreads (12 Monate)

Problem beim PDF Exportieren und Speichern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread