8
VBA Excel Tabellenblätter als PDF speichern
Hallo,
gib es die Möglichkeit per VBA ein einzelnes Tabellenblatt als PDF zuspeichern.
Derzeit speichere ich immer die komplette Exceldatei.
Sub speichern()
Dim xlFileName As String
xlFileName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, "Name") - 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Grüße
Florian86
gib es die Möglichkeit per VBA ein einzelnes Tabellenblatt als PDF zuspeichern.
Derzeit speichere ich immer die komplette Exceldatei.
Sub speichern()
Dim xlFileName As String
xlFileName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, "Name") - 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Grüße
Florian86
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 342928
Url: https://administrator.de/forum/vba-excel-tabellenblaetter-als-pdf-speichern-342928.html
Ausgedruckt am: 23.12.2024 um 16:12 Uhr
8 Kommentare
Neuester Kommentar
Klar,
das tut doch was es soll
https://msdn.microsoft.com/de-de/library/office/ff840291.aspx
Deine Parameter sind einfach nur falsch und der Dateipfad fehlt völlig.
Gruß
p.s. du bist doch hier jetzt schon so lange dabei das man eigentlich wissen sollte, dass man hier Quellcode mit Codetags postet !
das tut doch was es soll
https://msdn.microsoft.com/de-de/library/office/ff840291.aspx
Deine Parameter sind einfach nur falsch und der Dateipfad fehlt völlig.
Gruß
p.s. du bist doch hier jetzt schon so lange dabei das man eigentlich wissen sollte, dass man hier Quellcode mit Codetags postet !
Hallo
Abgesehen davon, dass die Zeile
einen Fehler auswirft, macht es doch, was es soll??
Gruss
Abgesehen davon, dass die Zeile
xlFileName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, "Name") - 1)
einen Fehler auswirft, macht es doch, was es soll??
Gruss
der Dateipfad steht mit Absicht nicht drin. Und es funktioniert ja auch.
Hat ja auch niemand gesagt das es nicht funktioniert nur leider speichert er alle Tabellenblätter in einer PDF.
Ich möchte das gerade aktive Tabellenblatt als PDF speichern.
Grüße
Florian86
Hat ja auch niemand gesagt das es nicht funktioniert nur leider speichert er alle Tabellenblätter in einer PDF.
Ich möchte das gerade aktive Tabellenblatt als PDF speichern.
Grüße
Florian86
Hallo
Ja, eben, dein Code oben speichert bei mir das aktuelle Blatt als PDF, und nur das Aktuelle!!
Gruss
Ja, eben, dein Code oben speichert bei mir das aktuelle Blatt als PDF, und nur das Aktuelle!!
Gruss
Dito!
nein es speichert das komplette "Workbook" und nicht das einzelne Blatt.
Habs mir gerade selber beantwortet... es müsste sicherlich
Activeworksheet heißen.
Grüße
Habs mir gerade selber beantwortet... es müsste sicherlich
Activeworksheet heißen.
Grüße
Zitat von @Florian86:
Habs mir gerade selber beantwortet... es müsste sicherlich
Activeworksheet heißen.
NöHabs mir gerade selber beantwortet... es müsste sicherlich
Activeworksheet heißen.
https://msdn.microsoft.com/de-de/library/office/ff822753.aspx
Hier liest keiner mehr was an Grundlagen, wirklich armselig.
dann eben activesheet mein gott aber es funktioniert.
grüße
grüße
