Excel/PDF Datei unter bestimmten Pfad abspeichern
02.10.2019 09:36:24
Daniel
Hallo zusammen,
ich habe mir ein Makro gebastelt, bei dem ich aus einer Excel eine PDF Datei erstelle und diese in einem variablen Ordner abspeichern lasse.
Merkwürdigerweise funktioniert das 2-3 mal, im Anschluss legt er mir das Dokument dann einfach unter C:Users/Eigene Dokumente ab.
Habt ihr eine Idee, an was das liegen könnte?
in A8 steht: Q:\Kalkulationen\Testkunde
Der Ordner ist auf dem Laufwerk vorhanden
Dim Pfad As String
Dim DateiName As String
DateiName = ThisWorkbook.Sheets("Sonstiges").Range("A5")
Pfad = ThisWorkbook.Sheets("Sonstiges").Range("A8")
ChDir Pfad
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Kalkulation").Select
Range("B5").Select
Worksheets("Sonstiges").Visible = False