Μετάβαση στο κύριο περιεχόμενο

Πώς να μετατρέψετε πολλά βιβλία εργασίας ή φύλλα εργασίας σε αρχεία PDF ταυτόχρονα στο Excel;

Κάποια στιγμή, πρέπει να μετατρέψετε τα αρχεία Excel σε αρχεία PDF, ώστε να μην μπορούν να τροποποιηθούν από άλλους. Στο Excel, μπορούμε να αποθηκεύσουμε ένα αρχείο Excel ως αρχείο PDF χρησιμοποιώντας τη λειτουργία Αποθήκευση ως. Αλλά πώς μετατρέπετε πολλά βιβλία εργασίας σε αρχεία PDF ταυτόχρονα στο Excel;


Μετατροπή πολλαπλών βιβλίων εργασίας σε αρχεία PDF με λειτουργία Save As ένα προς ένα

Κανονικά, η δυνατότητα Αποθήκευση ως στο Excel μπορεί να σας βοηθήσει να αποθηκεύσετε ολόκληρο το βιβλίο εργασίας σε ένα αρχείο PDF, κάντε το ως εξής:

1. Ξεκινήστε το βιβλίο εργασίας που θέλετε να μετατρέψετε σε μορφή PDF.

2. Κλίκ Αρχεία > Αποθήκευση ως, και στο Αποθήκευση ως πλαίσιο διαλόγου, καθορίστε έναν φάκελο για την αποθήκευση του νέου αρχείου και, στη συνέχεια, επιλέξτε PDF από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Επιλογές κουμπί, δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, στο αναδυόμενο Επιλογές πλαίσιο διαλόγου, επιλέξτε Ολόκληρο το βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK > Αποθήκευση, ολόκληρο το βιβλίο εργασίας έχει αποθηκευτεί ως μορφή αρχείου PDF.

Συμβουλές: Εάν έχετε πολλά βιβλία εργασίας πρέπει να μετατραπούν, εφαρμόστε τα παραπάνω βήματα για να αποθηκεύσετε τα βιβλία εργασίας σε αρχεία PDF ένα προς ένα.

Μετατρέψτε πολλά βιβλία εργασίας σε αρχεία PDF με κώδικα VBA ταυτόχρονα

Εάν υπάρχουν εκατοντάδες αρχεία Excel που πρέπει να μετατραπούν, η παραπάνω μέθοδος θα είναι ενοχλητική, εδώ, θα μιλήσω για έναν κώδικα VBA για τη μετατροπή πολλαπλών βιβλίων εργασίας σε αρχεία PDF ταυτόχρονα, κάντε τα ακόλουθα βήματα:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Μετατρέψτε πολλά βιβλία εργασίας σε αρχεία PDF ταυτόχρονα

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. Στη συνέχεια, πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα παράθυρο, επιλέξτε έναν φάκελο που περιέχει τα βιβλία εργασίας που θέλετε να μετατρέψετε, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια, κάντε κλικ στο OK, εμφανίζεται ένα άλλο παράθυρο, επιλέξτε μια διαδρομή φακέλου όπου θέλετε να εξάγετε τα νέα αρχεία PDF, δείτε το στιγμιότυπο οθόνης:

5. Και μετά, κάντε κλικ OK, μετά την ολοκλήρωση της μετατροπής, μπορείτε να μεταβείτε στον καθορισμένο φάκελο για προεπισκόπηση του αποτελέσματος μετατροπής, δείτε στιγμιότυπα οθόνης:


Μετατρέψτε πολλά βιβλία εργασίας σε αρχεία PDF με μια ισχυρή δυνατότητα

Εάν έχετε Kutools για Excel, Με τους Μετατροπέας μορφής βοηθητικό πρόγραμμα, μπορείτε να μετατρέψετε γρήγορα πολλά βιβλία εργασίας σε αρχεία PDF ταυτόχρονα.

Συμβουλές:Για να το εφαρμόσετε Μετατροπέας μορφής χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Βιβλίο εργασίας > Μετατροπέας μορφής, δείτε το στιγμιότυπο οθόνης:

2. Και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι πρέπει να κλείσετε τα βιβλία εργασίας που θέλετε να μετατρέψετε.

3. Κλίκ OK, τότε, στο Μετατροπέας FileFormat διαλόγου, καθορίστε τις ακόλουθες επιλογές:

  • Σύμφωνα με το Μετατροπή τύπου αναπτυσσόμενη λίστα, επιλέξτε Βιβλίο εργασίας Excel σε PDF;
  • Στη συνέχεια κάντε κλικ στο κουμπί Πρόσθεση κουμπί για να προσθέσετε τα αρχεία Excel που θέλετε να μετατρέψετε, μπορείτε να προσθέσετε τα βιβλία εργασίας από το δίσκο υπολογιστών ή το OneDrive όπως χρειάζεστε. 

4. Αφού εισαγάγετε τα βιβλία εργασίας που θέλετε να μετατρέψετε, ακόμα στο Μετατροπέας μορφής αρχείου πλαίσιο διαλόγου, κάντε κλικ κουμπί για να επιλέξετε μια διαδρομή φακέλου για την έξοδο των αρχείων που έχουν μετατραπεί και, στη συνέχεια, καθορίστε ορισμένες λειτουργίες που χρειάζεστε στο κάτω μέρος του πλαισίου διαλόγου, δείτε το στιγμιότυπο οθόνης:

Notes: Στο παραπάνω παράθυρο διαλόγου:
  • Εάν χρειάζεται να μετατραπούν και τα βιβλία εργασίας στους υποφακέλους, ελέγξτε το Συμπεριλάβετε υποφακέλους κατά την προσθήκη φακέλων πλαίσιο ελέγχου;
  • Εάν θέλετε να καταργήσετε τα αρχικά αρχεία μετά τη μετατροπή, ελέγξτε το Διαγραφή αρχείων προέλευσης μετά τη μετατροπή κουτί;
  • Εάν θέλετε να διατηρήσετε την τροποποιημένη ημερομηνία των αρχικών αρχείων, ελέγξτε το Διατηρήστε την ημερομηνία τροποποίησης των αρχικών αρχείων κουτί;
  • Η δομή καταλόγου του αρχείου μπορεί να διατηρηθεί ελέγχοντας το Η δομή καταλόγου του αρχείου διατηρείται κατά τη μετατροπή κουτί;

5. Στη συνέχεια κάντε κλικ στο κουμπί OK για να ξεκινήσετε τη μετατροπή, όταν όλα τα καθορισμένα αρχεία Excel έχουν μετατραπεί σε αρχεία PDF, μπορείτε να μεταβείτε στον καθορισμένο φάκελο για να κάνετε προεπισκόπηση του αποτελέσματος που μετατράπηκε, δείτε στιγμιότυπα οθόνης:


Μετατροπή πολλών φύλλων εργασίας από ένα βιβλίο εργασίας σε διαχωρισμό αρχείων PDF με κώδικα VBA

Σε ορισμένες περιπτώσεις, μπορεί να θέλετε να μετατρέψετε κάθε φύλλο εργασίας στο βιβλίο εργασίας σε διαχωρισμό αρχείων PDF, εάν υπάρχουν πολλά φύλλα στο βιβλίο εργασίας σας, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αποθηκεύσετε κάθε φύλλο εργασίας ως αρχείο PDF ταυτόχρονα.

1. Ανοίξτε ένα βιβλίο εργασίας που θέλετε να μετατρέψετε και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Μετατροπή πολλών φύλλων εργασίας από ένα βιβλίο εργασίας σε διαχωρισμό αρχείων PDF

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. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και ένα παράθυρο εμφανίζεται, επιλέξτε μια διαδρομή φακέλου για τον εντοπισμό των αρχείων PDF που έχουν μετατραπεί, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί, όλα τα φύλλα εργασίας στο τρέχον βιβλίο εργασίας έχουν μετατραπεί ξεχωριστά αρχεία PDF, δείτε το στιγμιότυπο οθόνης:


Μετατροπή πολλών φύλλων εργασίας από ένα βιβλίο εργασίας σε διαχωρισμό αρχείων PDF με εύχρηστο χαρακτηριστικό

Kutools για Excel υποστηρίζει επίσης ένα χρήσιμο χαρακτηριστικό - Διαχωρισμός βιβλίου εργασίας, με αυτήν τη δυνατότητα, μπορείτε να αποθηκεύσετε πολλά φύλλα εργασίας στο βιβλίο εργασίας για να διαχωρίσετε το αρχείο Excel, το αρχείο Txt, το αρχείο CSV και το αρχείο PDF όπως χρειάζεστε.

Συμβουλές:Για να το εφαρμόσετε Διαχωρισμός βιβλίου εργασίας χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Ανοίξτε το βιβλίο εργασίας που θέλετε να αποθηκεύσετε κάθε φύλλο ως αρχείο PDF και, στη συνέχεια, κάντε κλικ στο Kutool Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας, δείτε το στιγμιότυπο οθόνης:

2. Στην Διαχωρισμός βιβλίου εργασίας πλαίσιο διαλόγου, επιλέξτε το φύλλο που θέλετε να αποθηκεύσετε και, στη συνέχεια, επιλέξτε PDF (* .pdf) από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Σπλιτ κουμπί, στο Επιλογή φακέλου παράθυρο, καθορίστε ένα φάκελο για την τοποθέτηση των αρχείων που έχουν μετατραπεί, δείτε το στιγμιότυπο οθόνης:

3. Και στη συνέχεια, όλα τα επιλεγμένα φύλλα εργασίας στο τρέχον βιβλίο εργασίας έχουν αποθηκευτεί σε αρχεία PDF μεμονωμένα, δείτε το στιγμιότυπο οθόνης:


Σχετικά άρθρα:

  • Μετατροπή πολλών αρχείων Xls σε αρχεία Xlsx στο Excel
  • Για να μετατρέψετε ένα παλιό αρχείο xls Excel σε νέο αρχείο xlsx, μπορείτε να εφαρμόσετε τη δυνατότητα Αποθήκευση ως στο Excel, αλλά, εάν χρειάζονται πολλά αρχεία xls για μετατροπή, πώς θα μπορούσε να αντιμετωπίσει αυτήν την εργασία γρήγορα και εύκολα;
  • Αποθηκεύστε όλα τα φύλλα εργασίας μόνο ως τιμές
  • Εάν έχετε ένα βιβλίο εργασίας που περιέχει πολλούς τύπους, τώρα, πρέπει να διανείμετε αυτό το αρχείο σε άλλους χρήστες, δεν θέλετε να εμφανίζονται οι τύποι αλλά εμφανίζονται μόνο οι τιμές. Κανονικά, μπορούμε να αποθηκεύσουμε γρήγορα ένα φύλλο εργασίας ως τιμές αντιγράφοντας και επικολλώντας τα δεδομένα μόνο ως τιμές. Αλλά, πώς θα μπορούσατε να αποθηκεύσετε όλα τα φύλλα εργασίας ως τιμές μόνο χωρίς αντιγραφή και επικόλληση ένα προς ένα;
  • Κουμπί εντολών για αποθήκευση ενεργού φύλλου εργασίας ως αρχείου PDF
  • Ενώ εργάζεστε στο Microsoft Excel, ενδέχεται να αντιμετωπίσετε το πρόβλημα της αποθήκευσης του ενεργού φύλλου εργασίας ως αρχείου PDF. Σε αυτό το άρθρο, μπορείτε να μάθετε πώς μπορείτε να αποθηκεύσετε ενεργό φύλλο εργασίας ως αρχείο PDF με κώδικα VBA μέσω ενός κουμπιού εντολών. Και αν θέλετε επίσης να αποθηκεύσετε μια περιοχή ή κάθε φύλλο εργασίας σε ενεργό βιβλίο εργασίας ως μεμονωμένο αρχείο PDF, αυτό το άρθρο μπορεί επίσης να σας βοηθήσει.
  • Διαχωρίστε έναν μεγάλο πίνακα σε πολλά μικρά τραπέζια
  • Εάν έχετε ένα μεγάλο φύλλο εργασίας που περιέχει πολλές στήλες και εκατοντάδες ή χιλιάδες δεδομένα γραμμών, τώρα, θέλετε να χωρίσετε αυτόν τον μεγάλο πίνακα σε πολλούς μικρούς πίνακες με βάση την τιμή της στήλης ή τον αριθμό των γραμμών για να λάβετε τα ακόλουθα αποτελέσματα. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;
  • Διαχωρίστε ένα βιβλίο εργασίας για να διαχωρίσετε αρχεία Excel
  • Ίσως χρειαστεί να διαχωρίσετε ένα μεγάλο βιβλίο εργασίας για να διαχωρίσετε αρχεία Excel με την αποθήκευση κάθε φύλλου εργασίας του βιβλίου εργασίας ως μεμονωμένο αρχείο Excel. Για παράδειγμα, μπορείτε να χωρίσετε ένα βιβλίο εργασίας σε πολλά μεμονωμένα αρχεία Excel και, στη συνέχεια, να παραδώσετε κάθε αρχείο σε διαφορετικό άτομο για να το χειριστείτε. Με αυτόν τον τρόπο, μπορείτε να κάνετε ορισμένα άτομα να χειρίζονται συγκεκριμένα δεδομένα και να διατηρούν τα δεδομένα σας ασφαλή. Αυτό το άρθρο θα εισαγάγει τρόπους για να χωρίσετε ένα μεγάλο βιβλίο εργασίας για να διαχωρίσετε αρχεία Excel με βάση κάθε φύλλο εργασίας.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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