pdf erstellen und in einen Ordner ablegen
22.02.2019 09:44:04
MichaelHartig
ich hab in den letzen Monat echt dazugelernt was VBA angeht aber ein Problem bekomme ich nicht gelöst. Vielleicht habt Ihr eine Idee:
Ich habe ein Makro erstellt, dass ein Workbook als pdf ablegen kann und auch ein Makro was _ einen Ordner mit dem richtigen Namen erzeugen kann. Beide zusammen funktionieren auch gut, aber : Das PDF wird nicht in dem erzeugten Ordner abgelegt. Wo ist mein Fehler?
Sub aktivesBlattToPdf()
Const paTh = "mein ablageort" ' Anpassen!
On Error GoTo errorHandler
With Worksheets("LSA").Range("F60")
If Dir(paTh & .Text, vbDirectory) = "" Then
MkDir paTh & .Value
Else
MsgBox ("Verzeichnis exisitiert bereits")
End If
End With
Dim DName As String, Dateiname As String, Pfad As String
ChDir "mein Ablageort"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Mein Ablasgeort" & "LSA_" & Worksheets("LSA").Range("F60").Value & "_" & Format(Date, " _
_
_
_
_
_
YYYY_MM_DD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Datei erfolgreich gespeichert."
Exit Sub
Fehler:
MsgBox "Datei wurde nicht gespeichert!"
errorHandler:
MsgBox ("Fehler beim Anlegen des Verzeichnisses.")
End Sub
Haben die "Wissenden" hier eine Idee?