PDF Speichern

Gut Morgen,
brauche ein wenig Hilfe bei mein Problem (Unwissenheit)
Ich habe ein Code gefunden um eine Tabelle als PDF zu speichern.
Jetzt hebe ich festgestellt das es mehrere Blätter sein können, daher vor dem Speichern habe ich ein Ordner erstellt, soweit sogut, Ordner wird erstellt.
Ich weis nicht wie ich den Ordner ansprechen kann damit die Blätter darin gespeischert werden.
Mein Code:

Option Explicit
Sub SpeichernalsPDF()
If Dir("C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value,  _
vbDirectory) = "" Then
MkDir ("C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value)
MsgBox "Ordner wurde angelegt!"
Else
MsgBox "Ordner ist vorhanden!"
End If
Range("A5:B55").Select
ChDir "C:\Users\a.mazza\Desktop\Lampen\FORMULARE\"____?___
Sheets("Tabelle2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value & ". _
pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,  _
OpenAfterPublish:=False
End Sub

Vielen Dank im Voraus
Antonio

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF Speichern

11.01.2019 09:25:43

Werner

AW: PDF Speichern

11.01.2019 09:41:22

Antonio

AW: PDF Speichern

11.01.2019 09:30:11

Nepumuk

AW: PDF Speichern

11.01.2019 09:45:11

Antonio

AW: PDF Speichern

11.01.2019 09:46:13

Nepumuk

AW: EUREKA

11.01.2019 09:51:44

Antonio

Danke für die Rückmeldung...

11.01.2019 10:41:20

Werner

AW: Danke für die Rückmeldung...

11.01.2019 10:43:53

Antonio

AW: Wiedewraufnahme

11.01.2019 11:17:50

Antonio

AW: Wiedewraufnahme

11.01.2019 11:33:19

Werner

AW: Wiedewraufnahme

11.01.2019 11:39:32

Antonio

Gerne. o.w.T.

11.01.2019 11:45:34

Werner

Sub SpeichernalsPDF() If Dir("C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value, _ vbDirectory) = "" Then MkDir ("C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value) MsgBox "Ordner wurde angelegt!" Else MsgBox "Ordner ist vorhanden!" End If 'wieso ChDir? Der Ordner existiert doch auf alle Fälle 'oben prüfst du doch schon ob der Ordner existiert, wenn nein 'dann legst du ihn doch an. 'ChDir "C:\Users\a.mazza\Desktop\Lampen\FORMULARE\"____?___ Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & Sheets("Tabelle2").Range("B8").Value _ & "pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub

Hallo Antonio,
ChDir kannst du dir sparen da du in der Export-Methode den kompletten Pfad angibst.
Ich würde das so machen:

Option Explicit

Sub SpeichernalsPDF()

    Dim strPath As String

    strPath = "C:\Users\a.mazza\Desktop\Lampen\FORMULARE\" & _
        Worksheets("Tabelle2").Range("B8").Value

    If Dir$(strPath, vbDirectory) = "" Then
        MkDir strPath
        MsgBox "Ordner wurde angelegt!"
    Else
        MsgBox "Ordner ist vorhanden!"
    End If

    Worksheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=strPath, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End Sub

Gruß
Nepumuk

Worksheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=strPath & "\" & Worksheets("Tabelle2").Name & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False

Worksheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=strPath & "\" & Worksheets("Tabelle2").Range("B8").Value & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread