Mehrere Excel in mehrere PDF wandeln

Forumthread: Mehrere Excel in mehrere PDF wandeln

27.08.2014 10:24:39

henrik

Hi zusammen,
ich habe einen Ordner mit mehreren Excel-Datein darin. Jetzt möchte ich jede dieser Dateien in jeweils eine pdf umwandeln und das minimalstem Aufwand. Ich weiß, dass man wenn man den Acrobat Pro hat alle Excel Datein im Explorer anwählen kann und per Rechtsklick über "alle in PDF umwandeln" das Problem so relativ einfach lösen kann. Leider haben wir den Acrobat Pro nicht und ich bräuchte daher eine andere Lösung.
Jemand eine Idee?
Wäre Klasse, Thx!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Excel in mehrere PDF wandeln

27.08.2014 11:08:37

Rudi

AW: Mehrere Excel in mehrere PDF wandeln

27.08.2014 11:08:37

Rudi

Hallo,

Sub MachPDF()
Dim sFile As String, sPfad As String, sPDF As String
Dim wkb As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
sPfad = .SelectedItems(1)
End If
End With
If sPfad  "" Then
sPfad = sPfad & "\"
sFile = Dir(sPfad & "*.xls*")
Do While sFile  ""
sPDF = Left(sFile, InStrRev(sFile, ".") - 1)
Set wkb = Workbooks.Open(sPfad & sFile)
wkb.ExportAsFixedFormat xlTypePDF, sPfad & sPDF, , , , , , False
wkb.Close False
sFile = Dir
Loop
End If
End Sub

Gruß
Rudi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um mehrere Excel-Dateien in PDF umzuwandeln, kannst Du das folgende VBA-Makro verwenden. Dieses Skript öffnet alle Excel-Dateien in einem bestimmten Ordner und speichert jede Datei als PDF.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul hinzuzufügen.

Kopiere den folgenden Code in das Modul:

Sub MachPDF()
   Dim sFile As String, sPfad As String, sPDF As String
   Dim wkb As Workbook
   With Application.FileDialog(msoFileDialogFolderPicker)
       If .Show = -1 Then
           sPfad = .SelectedItems(1)
       End If
   End With
   If sPfad <> "" Then
       sPfad = sPfad & "\"
       sFile = Dir(sPfad & "*.xls*")
       Do While sFile <> ""
           sPDF = Left(sFile, InStrRev(sFile, ".") - 1)
           Set wkb = Workbooks.Open(sPfad & sFile)
           wkb.ExportAsFixedFormat xlTypePDF, sPfad & sPDF, , , , , , False
           wkb.Close False
           sFile = Dir
       Loop
   End If
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle MachPDF aus der Liste und klicke auf Ausführen.
Wähle den Ordner mit Deinen Excel-Dateien aus und klicke auf OK. Das Skript wandelt alle Excel-Dateien in diesem Ordner in PDFs um.

Häufige Fehler und Lösungen

Fehler: „Datei kann nicht geöffnet werden“
- Lösung: Stelle sicher, dass die Excel-Dateien nicht von einer anderen Anwendung verwendet werden.
Fehler: „Exportieren als PDF fehlgeschlagen“
- Lösung: Überprüfe, ob die Excel-Datei geschützt ist oder ob Du die richtigen Berechtigungen hast, um sie zu speichern.
Fehler: „Ordner nicht gefunden“
- Lösung: Überprüfe, ob der ausgewählte Ordner tatsächlich Excel-Dateien enthält.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, gibt es auch andere Methoden, um mehrere Excel-Tabellen in PDF umzuwandeln:

Online-Tools: Es gibt verschiedene Websites, die es ermöglichen, mehrere Excel-Dateien in PDF umzuwandeln. Suche nach „Excel in PDF umwandeln“ und wähle einen vertrauenswürdigen Dienst aus.
Drittanbieter-Software: Anwendungen wie PDFCreator oder Nitro PDF bieten eine Funktion, um mehrere Excel-Dateien gleichzeitig in PDFs zu konvertieren.
Excel-Funktion: Wenn Du Excel 2016 oder neuer verwendest, kannst Du die Funktion „Drucken“ nutzen, um mehrere Reiter in einer Datei als PDF zu speichern.

Praktische Beispiele

Excel-Datei mit mehreren Reitern in PDF umwandeln: Wenn Du eine Excel-Datei mit mehreren Reitern hast, kannst Du das VBA-Skript so anpassen, dass es nur bestimmte Reiter exportiert.
Excel mehrere Mappen in ein PDF: Du kannst alle Mappen in einer Arbeitsmappe zusammen in ein PDF exportieren, indem Du das oben angegebene Skript leicht anpasst.

Tipps für Profis

Batch-Verarbeitung: Wenn Du regelmäßig mehrere Excel-Dateien in PDF umwandeln musst, speichere das VBA-Skript in Deiner persönlichen Makro-Arbeitsmappe, um schnell darauf zugreifen zu können.
Formatierung: Achte darauf, dass die Formatierung in den Excel-Dateien korrekt ist, bevor Du sie in PDF umwandelst, da dies das Endergebnis beeinflusst.
Test durchlaufen: Führe das Skript zuerst mit einer kleinen Anzahl von Dateien durch, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Kann ich mehrere Excel-Dateien als PDF speichern, ohne VBA zu verwenden? Ja, Du kannst Online-Tools oder Drittanbieter-Software verwenden, um mehrere Excel-Dateien in PDF umzuwandeln, ohne VBA zu nutzen.

2. Unterstützt das Skript auch Excel-Dateien mit mehreren Reitern? Ja, das Skript kann jede Excel-Datei mit mehreren Reitern in PDF umwandeln. Es wird jedoch jede Datei einzeln verarbeitet.

3. Was ist, wenn ich keine Berechtigung habe, die Dateien zu speichern? In diesem Fall solltest Du die Berechtigungen überprüfen oder den Administrator kontaktieren, um Zugriff zu erhalten.

Beliebteste Forumthreads (12 Monate)

Mehrere Excel in mehrere PDF wandeln

Forumthread: Mehrere Excel in mehrere PDF wandeln

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mehrere Excel-Dateien in PDF umwandeln

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread