ich möchte ein PDF mit VBA generieren und in einem Ordner ablegen und falls der Ordner nicht vorhanden ist neu erzeugen. Meine dynamische Ordnerstruktur auf dem Mac:
SSD:Users:ich:Documents:Jahr
Leider bekomme ich im Falle eines nicht vorhandenen Ordners (Jahreswechsel) den Laufzeitfehler "68". Erkennt jemand, wo der Fehler liegen könnte? Vielen Dank im Voraus!!
Sub PdfExport()
Dim Pfad1 As String
Pfad1 = "SSD:Users:ich:Documents:" & Year(Date)
If Dir(Pfad1, vbDirectory) = "" Then
MkDir (Pfad1)
ChDir Pfad1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("B19").Value & Range("A1").Value & Range("B12").Value & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Else
ChDir Pfad1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("B19").Value & Range("A1").Value & Range("B12").Value & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
End Sub