Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern als PDF unter vorgegebenen Pfad

Forumthread: Speichern als PDF unter vorgegebenen Pfad

Speichern als PDF unter vorgegebenen Pfad
Sebastian
Hallo,
ich hätte da gerne mal ein Problem und wäre für Eure Hilfe sehr dankbar.
Ich möchte per VBA eine Speicherung als PDF durchführen. Der Pfad wo gespeichert werden soll ist bei mir in einer gesonderten Tabelle (Name=Dat) vorgegeben.
Für Eure Hilfe bereits jetzt schon vielen Dank.
Beste Grüße
Seppel 
Sub Speicher_als_PDF()
'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Dat").Range("a1").Value
SpeicherName = Speicherpfad & "\" & Cells(13, 8) & ".pdf"
'ActiveWorkbook.SaveAs Filename:=SpeicherName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Anzeige
AW: Speichern als PDF unter vorgegebenen Pfad
25.11.2011 12:01:53
Rudi
Hallo,
ich hätte da gerne mal ein Problem
Probleme hab ich eigentlich gar nicht gerne. ;-)
Wo ist deins?
Gruß
Rudi
Sehr schöne Antwort :-) orT
25.11.2011 12:28:20
Peter
AW: Speichern als PDF unter vorgegebenen Pfad
25.11.2011 12:36:42
Sebastian
Sorry, ich habe wohl schneller gedacht (oder auch nicht) als geschrieben.
Ich bekommen beim Ausführen den Bereich
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName
als Faufzeitfehler markiert. Die Datei wird nicht gespeichert.
Nochmals Sorry
Gruß Seppe
Anzeige
Ein Problem ? - Kein Problem : Bitte sehr...
25.11.2011 12:44:15
NoNet
Hallo ihr Problem-Löser,
wer Bodo Bach sät ("Isch hätt da genn emal e Problem, ..."), darf sich nicht wundern, wenn er die dazu passenden Antworten erhält :


Dieses Problem habe ich leider auf sehr häufig :
Manchmal sind Probleme aber auch hausgemacht :
Aber glücklicherweise lassen sich ja (fast) alle Probleme lösen :
Oder auch für unsere "Freistaatler" ;-) :
Und wenn gar nix mehr geht - dann eben : Bist du nicht willig, so brauch ich Ge**** !

Spaß beiseite : Was funktioniert an Deinem Code denn nicht bzw. wo ist das PROBLEM ?
Salut, NoNet
Anzeige
AW: Ein Problem ? - Kein Problem : Bitte sehr...
25.11.2011 13:07:52
Sebastian
Hi,
es erfolgt keine Speicherung. Ich bekomme den Abschnitt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName
gelb markiert, Laufzeitfehler -2147024773 (8007007b)': Datei wurde nicht gespeichert
Danke.
Gruß Seppel
AW: Ein Problem ? - Kein Problem : Bitte sehr...
25.11.2011 14:18:43
Henrik
Hallo das habe ich auch des öfteren schon gehabt!!!
Bei mir lag es soweit ich mich erinnere daran, dass ich mehrere male die gleiche Anweisung 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName
ausgeführt hatte
Und/Oder ich vorher sowas wie
Kill SpeicherName
aufgerufen hatte bzw. über die Win-Api diese pdf-Datei löschen wollte.
Vielleicht ist es bei dir auch so?
Anzeige
Lösung gefunden
25.11.2011 15:22:07
Sebastian
Hallo,
habe den Fehler gefunden.
Statt
"ActiveSheet.ExprortAsFixedFormat..."
habe ich die Tabelle direkt genannt, also so:
"Sheets("Rechnung").ExportAsFixedFormat..."
Vielen Dank für die Hilfe
Hier der Code als ganzes:
Private Sub CommandButton5_Click()
'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Dat").Range("a1").Value
SpeicherName = Speicherpfad & "\" & Cells(14, 8) & ".pdf"
Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

PDF speichern mit VBA und festgelegtem Pfad

Schritt-für-Schritt-Anleitung

Um eine Excel-Datei als PDF zu speichern, kannst Du das folgende VBA-Makro verwenden. Dieses Skript speichert die aktive Arbeitsmappe als PDF in einem von Dir festgelegten Pfad, der in einer separaten Tabelle hinterlegt ist.

  1. Öffne Excel und gehe zu den Entwicklertools.

  2. Klicke auf "Visual Basic", um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (DeinDateiname)" > Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub Speicher_als_PDF()
   'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
   Dim SpeicherName As String
   Dim Speicherpfad As String
   Speicherpfad = Sheets("Dat").Range("A1").Value
   SpeicherName = Speicherpfad & "\" & Cells(14, 8) & ".pdf"
   Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus:

    • Drücke Alt + F8, wähle Speicher_als_PDF und klicke auf "Ausführen".

Stelle sicher, dass der Pfad in der Zelle A1 des Arbeitsblatts "Dat" korrekt angegeben ist, um Probleme zu vermeiden.

Häufige Fehler und Lösungen

  • Laufzeitfehler -2147024773 (8007007b): Dieser Fehler tritt auf, wenn der angegebene Pfad ungültig ist. Überprüfe, ob der Pfad in Zelle A1 korrekt ist.

  • Fehler beim Exportieren: Achte darauf, dass das Arbeitsblatt "Rechnung" existiert. Wenn Du ein anderes Arbeitsblatt verwenden möchtest, passe den Code entsprechend an.

  • Datei existiert bereits: Wenn Du das Makro mehrmals ausführst, könnte es sein, dass die PDF-Datei bereits existiert. Du kannst die bestehende Datei vorher löschen, indem Du Kill SpeicherName vor dem Export-Befehl einfügst.

Alternative Methoden

  • Speichern unter Dialog: Wenn Du den Benutzer einen Speicherort auswählen lassen möchtest, kannst Du den Application.GetSaveAsFilename-Dialog verwenden. Hier ist ein Beispiel:

    Sub SpeichernUnterDialog()
   Dim SpeicherName As Variant
   SpeicherName = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
   If SpeicherName <> False Then
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName
   End If
End Sub

  • PDF direkt aus Excel erstellen: Du kannst auch den Excel-Bereich, der in PDF exportiert werden soll, festlegen. Hierzu kannst Du den From und To Parameter in der ExportAsFixedFormat Methode nutzen.

Praktische Beispiele

  1. Speichern einer bestimmten Tabelle als PDF:

    Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\DeinName\Documents\Rechnung.pdf"

  2. Export eines bestimmten Bereichs:

    Sheets("Rechnung").Range("A1:D10").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\DeinName\Documents\Bereich.pdf"

Tipps für Profis

  • Nutze relative Pfade anstelle von absoluten Pfaden, um die Portabilität Deiner Makros zu erhöhen.

  • Setze Fehlerbehandlungsroutinen ein, um unerwartete Fehler abzufangen und dem Benutzer nützliche Informationen anzuzeigen.

  • Überlege, die Dateinamen dynamisch zu gestalten, zum Beispiel mit dem aktuellen Datum oder einer fortlaufenden Nummer.

FAQ: Häufige Fragen

1. Wie kann ich den Speicherort für die PDF-Datei festlegen?
Der Speicherort kann in einer bestimmten Zelle (z.B. A1) in einem Arbeitsblatt (z.B. "Dat") definiert werden. Das Makro liest diesen Pfad und speichert die PDF dort ab.

2. Was mache ich, wenn ich mehrere Arbeitsblätter als PDF speichern möchte?
Du kannst eine Schleife verwenden, um durch die gewünschten Arbeitsblätter zu iterieren und jedes Blatt einzeln zu speichern.

3. Kann ich das PDF direkt nach dem Speichern öffnen?
Ja, indem Du OpenAfterPublish:=True in der ExportAsFixedFormat Methode verwendest, wird das PDF nach dem Speichern automatisch geöffnet.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige