Wie kann man mehrere Arbeitsmappen oder Arbeitsblätter auf einmal in PDF-Dateien konvertieren?

Das Konvertieren von Excel-Dateien in PDF ist eine gängige Aufgabe, wenn Sie Daten teilen möchten, aber gleichzeitig Änderungen verhindern wollen. Während die Funktion „Speichern unter“ in Excel es Ihnen ermöglicht, eine einzelne Arbeitsmappe in PDF zu konvertieren, kann dies bei mehreren Dateien zeitaufwendig sein. Dieser Leitfaden untersucht verschiedene Methoden, einschließlich VBA-Code und Kutools für Excel, um schnell mehrere Arbeitsmappen oder Arbeitsblätter auf einmal in PDF-Dateien zu konvertieren.

• Mehrere Arbeitsmappen mit der Funktion „Speichern unter“ einzeln in PDF-Dateien konvertieren
• Mehrere Arbeitsmappen mit VBA-Code auf einmal in PDF-Dateien konvertieren
• Mehrere Arbeitsmappen mit einer leistungsstarken Funktion in PDF-Dateien konvertieren
• Mehrere Arbeitsblätter aus einer Arbeitsmappe mit VBA-Code in separate PDF-Dateien konvertieren
• Mehrere Arbeitsblätter aus einer Arbeitsmappe mit einer praktischen Funktion in separate PDF-Dateien konvertieren

Mehrere Arbeitsmappen mit der Funktion „Speichern unter“ einzeln in PDF-Dateien konvertieren

Normalerweise kann die Funktion „Speichern unter“ in Excel Ihnen helfen, die gesamte Arbeitsmappe als PDF-Datei zu speichern. Gehen Sie dazu wie folgt vor:

1. Öffnen Sie die Arbeitsmappe, die Sie in das PDF-Format konvertieren möchten.

2. Klicken Sie auf Datei > Speichern unter, und im Dialogfeld „Speichern unter“ legen Sie einen Ordner fest, in dem die neue Datei gespeichert werden soll. Wählen Sie dann PDF aus der Dropdown-Liste „Speichern als Typ“ aus, und klicken Sie anschließend auf die Schaltfläche Optionen. Siehe Screenshot:

3. Im daraufhin erscheinenden Dialogfeld „Optionen“ aktivieren Sie die Option Gesamte Arbeitsmappe. Siehe Screenshot:

4. Klicken Sie anschließend auf OK > Speichern, und die gesamte Arbeitsmappe wurde im PDF-Dateiformat gespeichert.

Mehrere Arbeitsmappen mit VBA-Code auf einmal in PDF-Dateien konvertieren

Wenn Hunderte von Excel-Dateien konvertiert werden müssen, wird die oben genannte Methode mühsam. Hier werde ich über einen VBA-Code sprechen, der mehrere Arbeitsmappen auf einmal in PDF-Dateien konvertiert. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Mehrere Arbeitsmappen auf einmal in PDF-Dateien konvertieren

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. Drücken Sie die Taste F5, um diesen Code auszuführen, und ein Fenster wird angezeigt. Wählen Sie einen Ordner aus, der die Arbeitsmappen enthält, die Sie konvertieren möchten. Siehe Screenshot:

4. Klicken Sie auf OK, und ein weiteres Fenster erscheint. Wählen Sie einen Ordnerpfad aus, in dem Sie die neuen PDF-Dateien speichern möchten. Siehe Screenshot:

5. Klicken Sie auf OK. Nachdem die Konvertierung abgeschlossen ist, können Sie zum angegebenen Ordner gehen, um das Ergebnis zu überprüfen. Siehe Screenshots:

Mehrere Arbeitsmappen mit einer leistungsstarken Funktion in PDF-Dateien konvertieren

Wenn Sie Kutools für Excel haben, können Sie mit dessen Formatkonverter-Funktion mehrere Arbeitsmappen auf einmal in PDF-Dateien konvertieren.

1. Klicken Sie auf Kutools Plus > Arbeitsmappe > Formatkonverter. Siehe Screenshot:

2. Ein Hinweisfenster wird angezeigt, das Sie daran erinnert, die Arbeitsmappen, die Sie konvertieren möchten, zu schließen.

3. Klicken Sie auf OK, und dann legen Sie im Dialogfeld „FileFormat Converter “ die folgenden Optionen fest:

• Wählen Sie unter der Dropdown-Liste „Umwandlungstyp“ die Option Excel-Arbeitsmappe in PDF;
• Klicken Sie auf die Schaltfläche Hinzufügen, um die Excel-Dateien auszuwählen, die Sie konvertieren möchten. Sie können Arbeitsmappen von Ihrem Computer oder OneDrive auswählen, je nach Bedarf.

4Nachdem Sie die Arbeitsmappen, die Sie konvertieren möchten, eingefügt haben, bleiben Sie noch im Dateiformat-Konverter Dialogfeld, und klicken Sie auf die Schaltfläche, um einen Ordnerpfad auszuwählen, in dem die konvertierten Dateien gespeichert werden sollen. Legen Sie dann am unteren Rand des Dialogfelds einige weitere benötigte Operationen fest. Siehe Screenshot:

5. Klicken Sie dann auf OK, um die Konvertierung zu starten. Sobald alle angegebenen Excel-Dateien in PDFs konvertiert wurden, navigieren Sie zum angegebenen Ordner, um die Ergebnisse zu überprüfen. Siehe Screenshots unten:

Mehrere Arbeitsblätter aus einer Arbeitsmappe mit VBA-Code in separate PDF-Dateien konvertieren

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, kann der folgende VBA-Code helfen, jedes Arbeitsblatt gleichzeitig als separate PDF-Datei zu speichern.

1. Öffnen Sie eine Arbeitsmappe, die Sie konvertieren möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Mehrere Arbeitsblätter aus einer Arbeitsmappe in separate PDF-Dateien konvertieren

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. Drücken Sie die Taste F5, um diesen Code auszuführen, und ein Fenster wird angezeigt. Wählen Sie einen Ordnerpfad aus, um die konvertierten PDF-Dateien zu speichern. Siehe Screenshot:

4. Klicken Sie auf die Schaltfläche OK, und alle Arbeitsblätter in der aktuellen Arbeitsmappe werden in separate PDF-Dateien konvertiert:

Mehrere Arbeitsblätter aus einer Arbeitsmappe mit einer praktischen Funktion in separate PDF-Dateien konvertieren

Kutools für Excel bietet auch eine nützliche Funktion – Arbeitsmappe teilen. Mit dieser Funktion können Sie mehrere Arbeitsblätter innerhalb der Arbeitsmappe in separate Excel-Dateien, Txt-Dateien, CSV-Dateien und PDF-Dateien speichern, je nach Bedarf.

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

2. Aktivieren Sie im Dialogfeld „Arbeitsmappe teilen“ die Blätter, die Sie speichern möchten, und wählen Sie dann PDF (*.pdf) aus der Dropdown-Liste „Speichern als Typ“ aus. Klicken Sie anschließend auf die Schaltfläche Teilen. Wählen Sie im Fenster „Ordner auswählen“ einen Ordner aus, in dem die konvertierten Dateien gespeichert werden sollen. Siehe Screenshot:

3. Alle ausgewählten Arbeitsblätter in der aktuellen Arbeitsmappe wurden nun einzeln als PDF-Dateien gespeichert. Siehe Screenshot:

Weitere relevante Artikel: