Hallo zusammen,
ich habe bestimmt eine ganz einfache Situation, bekomme aber diese leider nicht hin.
Es soll ein aktives Tabellenblatt mit einem Befehl "speichern unter" als PDF-Datei in einen bestimmten Ordner gespeichert werden.
Der Zielordner ist auf dem aktiven Blatt schon hinterlegt in einer Zelle und der Dateiname ergibt sich aus einer bestimmten Zelle (z.B. Rechnungsnummer) welche auch in einer bestimmten Zelle im selben Blatt steht.
Kann mir jemand bei diesem Code helfen.
Vielen Dank.
Hi,
Pfad steht in E1 (ohne abschließenden Backslash), Dateiname in E2 (ohne Dateiendung .pdf):
Code:
Option Explicit
Sub aktives_Blatt_als_PDF()
Dim strPath As String
Dim strFilename As String
strPath = ActiveSheet.Range("E1")
strFilename = ActiveSheet.Range("E2")
ActiveSheet.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & "\" & strFilename & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
End Sub
Hallo Boris,
vielen Dank.
Ich habe den Code übernommen und es kommt die Fehlermeldung Anwendungsfehler 1004 (Anwendungs- objektdefinierter Fehler)
Was könnte die Ursache sein?
Hast du eine Idee?
Karsten
Hallo Karsten,
probiere es erst mal damit (ohne Erstellung eines neuen Workbooks):
Code:
Sub aktives_Blatt_als_PDF_2()
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=.Range("E1").Value & "\" & .Range("E2").Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Gruß Uwe
Hi Uwe,
ja - da hab ich gerade etwas zu kompliziert gedacht...
Hallo Uwe,
es funktioniert nach vielem Hin und Her.
Vielen Dank. Ich bin glücklich.
Ist es noch möglich, die Datei nach dem speichern noch zur Kontrolle öffnen zu lassen?
Karsten
Hallo Karsten,
(05.12.2021, 16:03)Karsten schrieb: [ -> ]Ist es noch möglich, die Datei nach dem speichern noch zur Kontrolle öffnen zu lassen?
OpenAfterPublish:=
True
Gruß Uwe
Hallo Uwe,
funktioniert sehr gut.
Vielen Dank nochmals und einen schönen 2. Advent.
Karsten