Exceltabellen Blatt als pdf
28.05.2018 08:25:10
Phil
wenn der Speicherort auf C ist funktioniert der Code ohne Probleme:
Sub aktivesBlattToPdf()
ChDir "C:\Users\Philipp\Desktop\Rechnungsdaten\Rechnungen\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("b14").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
wenn ich den Speicherort auf einen USB-Stick auswähle geht der Code nicht mehr! Hat einer Lösung dafür ?
Sub aktivesBlattToPdf()
ChDir "F:\EsayCashDaten\Rechnungen\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("b14").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub