Microsoft Excel

Herbers Excel/VBA-Archiv

Excel/PDF Datei unter bestimmten Pfad abspeichern


Betrifft: Excel/PDF Datei unter bestimmten Pfad abspeichern von: Daniel
Geschrieben am: 02.10.2019 09:36:24

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

  

Betrifft: AW: Excel/PDF Datei unter bestimmten Pfad abspeichern von: Nepumuk
Geschrieben am: 02.10.2019 09:50:45

Hallo,

das passiert immer wenn CurDir nicht auf das Laufwerk Q verweist. Also:

ChDrive Left$(Pfad, 1)
ChDir Pfad

Gruß
Nepumuk


  

Betrifft: AW: Excel/PDF Datei unter bestimmten Pfad abspeichern von: Daniel
Geschrieben am: 02.10.2019 10:00:34

Hallo Nepumuk,

vielen Dank - klappt einwandfrei.
Wieder was dazugelernt.

Besten Dank!


Beiträge aus dem Excel-Forum zum Thema "Excel/PDF Datei unter bestimmten Pfad abspeichern"