Direkt zum Inhalt

Wie konvertiere ich mehrere Arbeitsmappen oder Arbeitsblätter gleichzeitig in Excel in PDF-Dateien?

Manchmal müssen Sie Ihre Excel-Dateien in PDF-Dateien konvertieren, damit sie nicht von anderen geändert werden können. In Excel können wir eine Excel-Datei mithilfe der Funktion Speichern unter als PDF-Datei speichern. Aber wie konvertieren Sie in Excel mehrere Arbeitsmappen gleichzeitig in PDF-Dateien?


Konvertieren Sie mehrere Arbeitsmappen nacheinander in PDF-Dateien mit der Funktion Speichern unter

Normalerweise können Sie mit der Funktion Speichern unter in Excel die gesamte Arbeitsmappe in einer PDF-Datei speichern. Gehen Sie dazu folgendermaßen vor:

1. Starten Sie Ihre Arbeitsmappe, die Sie in das PDF-Format konvertieren möchten.

2. Klicken Sie Reichen Sie das > Speichern unter, und in der Speichern unter Im Dialogfeld geben Sie einen Ordner zum Speichern der neuen Datei an und wählen Sie dann PDF von dem Speichern als Typ Dropdown-Liste, und klicken Sie dann auf Optionen Schaltfläche, siehe Screenshot:

3. Dann tauchte das auf Optionen Dialogfeld überprüfen Komplettes Arbeitsheft, siehe Screenshot:

4. Und dann klick OK > SpeichernDiese gesamte Arbeitsmappe wurde als PDF-Dateiformat gespeichert.

Tips: Wenn mehrere Arbeitsmappen konvertiert werden müssen, führen Sie die obigen Schritte aus, um die Arbeitsmappen einzeln in PDF-Dateien zu speichern.

Konvertieren Sie mehrere Arbeitsmappen gleichzeitig in PDF-Dateien mit VBA-Code

Wenn Hunderte von Excel-Dateien konvertiert werden müssen, ist die oben beschriebene Methode problematisch. Hier werde ich über einen VBA-Code zum gleichzeitigen Konvertieren mehrerer Arbeitsmappen in PDF-Dateien sprechen. Führen Sie die folgenden Schritte aus:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Konvertieren Sie mehrere Arbeitsmappen gleichzeitig in PDF-Dateien

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Fenster angezeigt. Wählen Sie einen Ordner aus, der die Arbeitsmappen enthält, die Sie konvertieren möchten. Siehe Screenshot:

4. Dann klick OKWenn ein weiteres Fenster geöffnet wird, wählen Sie einen Ordnerpfad aus, in dem Sie die neuen PDF-Dateien ausgeben möchten. Siehe Screenshot:

5. Und dann, Clik OKNach Abschluss der Konvertierung können Sie in den angegebenen Ordner wechseln, um eine Vorschau des konvertierten Ergebnisses anzuzeigen. Siehe Screenshots:


Konvertieren Sie mehrere Arbeitsmappen in PDF-Dateien mit einer leistungsstarken Funktion

Wenn Sie Kutools for ExcelMit seinen Formatkonverter Mit diesem Dienstprogramm können Sie schnell mehrere Arbeitsmappen gleichzeitig in PDF-Dateien konvertieren.

Tips:Um dies anzuwenden Formatkonverter Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen Plus > Workbook > Formatkonverter, siehe Screenshot:

2. Außerdem wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass Sie die Arbeitsmappen schließen müssen, die Sie konvertieren möchten.

3. Klicken Sie OKdann in der Dateiformatkonverter Geben Sie im Dialogfeld die folgenden Optionen an:

  • Unter dem Typ konvertieren Dropdown-Liste auswählen Excel-Arbeitsmappe als PDF;
  • Dann klick Speichern Klicken Sie auf die Schaltfläche, um die Excel-Dateien hinzuzufügen, die Sie konvertieren möchten. Sie können die Arbeitsmappen nach Bedarf von Ihrer Computerdiskette oder OneDrive hinzufügen. 

4. Nachdem Sie die zu konvertierenden Arbeitsmappen eingefügt haben, befinden Sie sich noch in der Dateiformatkonverter Dialogfeld klicken Sie bitte Klicken Sie auf die Schaltfläche, um einen Ordnerpfad für die Ausgabe der konvertierten Dateien auszuwählen, und geben Sie dann unten im Dialogfeld einige Vorgänge an, die Sie benötigen (siehe Abbildung):

Notizen: Im obigen Dialogfeld:
  • Wenn die Arbeitsmappen in den Unterordnern ebenfalls konvertiert werden mussten, überprüfen Sie bitte die Fügen Sie beim Hinzufügen von Ordnern Unterordner hinzu Kontrollkästchen;
  • Wenn Sie die Originaldateien nach der Konvertierung entfernen möchten, überprüfen Sie bitte die Löschen Sie die Quelldateien nach der Konvertierung Box;
  • Wenn Sie das Änderungsdatum der Originaldateien beibehalten möchten, überprüfen Sie bitte die Behalten Sie das Änderungsdatum der Originaldateien bei Box;
  • Die Verzeichnisstruktur der Datei kann durch Überprüfen von beibehalten werden Die Verzeichnisstruktur der Datei bleibt bei der Konvertierung erhalten Box;

5. Dann klick OK Wenn alle angegebenen Excel-Dateien in die PDF-Dateien konvertiert wurden, können Sie in den angegebenen Ordner wechseln, um eine Vorschau des konvertierten Ergebnisses anzuzeigen (siehe Screenshots).


Konvertieren Sie mehrere Arbeitsblätter aus einer Arbeitsmappe in separate PDF-Dateien mit VBA-Code

In einigen Fällen möchten Sie möglicherweise jedes Arbeitsblatt in der Arbeitsmappe in separate PDF-Dateien konvertieren. Wenn Ihre Arbeitsmappe viele Blätter enthält, können Sie mit dem folgenden VBA-Code jedes Arbeitsblatt gleichzeitig als PDF-Datei speichern.

1. Öffnen Sie eine Arbeitsmappe, die Sie konvertieren möchten, und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Konvertieren Sie mehrere Arbeitsblätter aus einer Arbeitsmappe in separate PDF-Dateien

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wählen Sie einen Ordnerpfad zum Auffinden der konvertierten PDF-Dateien aus, um diesen Code auszuführen. Wenn ein Fenster geöffnet wird, siehe Screenshot:

4. Dann klick OK Schaltfläche, alle Arbeitsblätter in der aktuellen Arbeitsmappe wurden PDF-Dateien separat konvertiert, siehe Screenshot:


Konvertieren Sie mehrere Arbeitsblätter aus einer Arbeitsmappe in separate PDF-Dateien mit einer praktischen Funktion

Kutools for Excel unterstützt auch eine nützliche Funktion - Arbeitsmappe teilenMit dieser Funktion können Sie mehrere Arbeitsblätter in der Arbeitsmappe speichern, um Excel-Datei, TXT-Datei, CSV-Datei und PDF-Datei nach Bedarf zu trennen.

Tips:Um dies anzuwenden Arbeitsmappe teilen Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Öffnen Sie die Arbeitsmappe, in der Sie jedes Blatt als PDF-Datei speichern möchten, und klicken Sie dann auf Kutool Plus > Workbook > Arbeitsmappe teilen, siehe Screenshot:

2. In dem Arbeitsmappe teilen Aktivieren Sie im Dialogfeld das Blatt, das Sie speichern möchten, und wählen Sie dann aus PDF (* .pdf) von dem Speichern als Typ Dropdown-Liste, und klicken Sie dann auf Split Schaltfläche, in der Ordner auswählen Geben Sie im Fenster einen Ordner zum Ablegen der konvertierten Dateien an, siehe Screenshot:

3. Anschließend wurden alle ausgewählten Arbeitsblätter in der aktuellen Arbeitsmappe einzeln in PDF-Dateien gespeichert (siehe Abbildung):


Weitere relative Artikel:

  • Konvertieren Sie mehrere XLS-Dateien in Xlsx-Dateien in Excel
  • Um eine alte XLS-Excel-Datei in eine neue XLSX-Datei zu konvertieren, können Sie die Funktion Speichern unter in Excel anwenden. Wenn jedoch mehrere XLS-Dateien konvertiert werden müssen, wie kann diese Aufgabe schnell und einfach erledigt werden?
  • Speichern Sie alle Arbeitsblätter nur als Werte
  • Wenn Sie eine Arbeitsmappe haben, die mehrere Formeln enthält, müssen Sie diese Datei jetzt an andere Benutzer verteilen. Sie möchten die Formeln nicht anzeigen, sondern nur Werte anzeigen. Normalerweise können wir ein Arbeitsblatt schnell als Werte speichern, indem wir die Daten nur als Werte kopieren und einfügen. Aber wie können Sie alle Arbeitsblätter nur als Werte speichern, ohne sie einzeln zu kopieren und einzufügen?
  • Befehlsschaltfläche zum Speichern des aktiven Arbeitsblatts als PDF-Datei
  • Während der Arbeit in Microsoft Excel kann das Problem auftreten, dass das aktive Arbeitsblatt als PDF-Datei gespeichert wird. In diesem Artikel erfahren Sie, wie Sie ein aktives Arbeitsblatt als PDF-Datei mit VBA-Code über eine Befehlsschaltfläche speichern. Wenn Sie auch einen Bereich oder jedes Arbeitsblatt in einer aktiven Arbeitsmappe als einzelne PDF-Datei speichern möchten, kann Ihnen dieser Artikel ebenfalls helfen.
  • Teilen Sie einen großen Tisch in mehrere kleine Tische auf
  • Wenn Sie ein großes Arbeitsblatt haben, das mehrere Spalten und Hunderte oder Tausende von Zeilendaten enthält, möchten Sie diese große Tabelle jetzt basierend auf dem Spaltenwert oder der Anzahl der Zeilen in mehrere kleine Tabellen aufteilen, um die folgenden Ergebnisse zu erhalten. Wie können Sie mit dieser Aufgabe in Excel umgehen?
  • Teilen Sie eine Arbeitsmappe, um Excel-Dateien zu trennen
  • Möglicherweise müssen Sie eine große Arbeitsmappe aufteilen, um Excel-Dateien zu trennen, und jedes Arbeitsblatt der Arbeitsmappe als einzelne Excel-Datei speichern. Sie können beispielsweise eine Arbeitsmappe in mehrere einzelne Excel-Dateien aufteilen und dann jede Datei an eine andere Person senden, um sie zu verarbeiten. Auf diese Weise können Sie bestimmte Personen dazu bringen, mit bestimmten Daten umzugehen, und Ihre Daten schützen. In diesem Artikel werden Möglichkeiten zum Aufteilen einer großen Arbeitsmappe in separate Excel-Dateien basierend auf jedem Arbeitsblatt vorgestellt.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations