Πώς να μετατρέψετε πολλά βιβλία εργασίας ή φύλλα εργασίας σε αρχεία PDF ταυτόχρονα στο Excel;
Κάποια στιγμή, πρέπει να μετατρέψετε τα αρχεία Excel σε αρχεία PDF, ώστε να μην μπορούν να τροποποιηθούν από άλλους. Στο Excel, μπορούμε να αποθηκεύσουμε ένα αρχείο Excel ως αρχείο PDF χρησιμοποιώντας τη λειτουργία Αποθήκευση ως. Αλλά πώς μετατρέπετε πολλά βιβλία εργασίας σε αρχεία PDF ταυτόχρονα στο Excel;
- Μετατροπή πολλαπλών βιβλίων εργασίας σε αρχεία PDF με λειτουργία Save As ένα προς ένα
- Μετατρέψτε πολλά βιβλία εργασίας σε αρχεία PDF με κώδικα VBA ταυτόχρονα
- Μετατρέψτε πολλά βιβλία εργασίας σε αρχεία PDF με μια ισχυρή δυνατότητα
- Μετατροπή πολλών φύλλων εργασίας από ένα βιβλίο εργασίας σε διαχωρισμό αρχείων PDF με κώδικα VBA
- Μετατροπή πολλών φύλλων εργασίας από ένα βιβλίο εργασίας σε διαχωρισμό αρχείων PDF με εύχρηστο χαρακτηριστικό
Μετατροπή πολλαπλών βιβλίων εργασίας σε αρχεία PDF με λειτουργία Save As ένα προς ένα
Κανονικά, η δυνατότητα Αποθήκευση ως στο Excel μπορεί να σας βοηθήσει να αποθηκεύσετε ολόκληρο το βιβλίο εργασίας σε ένα αρχείο PDF, κάντε το ως εξής:
1. Ξεκινήστε το βιβλίο εργασίας που θέλετε να μετατρέψετε σε μορφή PDF.
2. Κλίκ Αρχεία > Αποθήκευση ως, και στο Αποθήκευση ως πλαίσιο διαλόγου, καθορίστε έναν φάκελο για την αποθήκευση του νέου αρχείου και, στη συνέχεια, επιλέξτε PDF από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Επιλογές κουμπί, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, στο αναδυόμενο Επιλογές πλαίσιο διαλόγου, επιλέξτε Ολόκληρο το βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK > Αποθήκευση, ολόκληρο το βιβλίο εργασίας έχει αποθηκευτεί ως μορφή αρχείου 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, κάντε το ως εξής:
1. Κλίκ Kutools Plus > Βιβλίο εργασίας > Μετατροπέας μορφής, δείτε το στιγμιότυπο οθόνης:
2. Και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι πρέπει να κλείσετε τα βιβλία εργασίας που θέλετε να μετατρέψετε.
3. Κλίκ OK, τότε, στο Μετατροπέας FileFormat διαλόγου, καθορίστε τις ακόλουθες επιλογές:
- Σύμφωνα με το Μετατροπή τύπου αναπτυσσόμενη λίστα, επιλέξτε Βιβλίο εργασίας Excel σε PDF;
- Στη συνέχεια κάντε κλικ στο κουμπί Πρόσθεση κουμπί για να προσθέσετε τα αρχεία Excel που θέλετε να μετατρέψετε, μπορείτε να προσθέσετε τα βιβλία εργασίας από το δίσκο υπολογιστών ή το OneDrive όπως χρειάζεστε.
4. Αφού εισαγάγετε τα βιβλία εργασίας που θέλετε να μετατρέψετε, ακόμα στο Μετατροπέας μορφής αρχείου πλαίσιο διαλόγου, κάντε κλικ κουμπί για να επιλέξετε μια διαδρομή φακέλου για την έξοδο των αρχείων που έχουν μετατραπεί και, στη συνέχεια, καθορίστε ορισμένες λειτουργίες που χρειάζεστε στο κάτω μέρος του πλαισίου διαλόγου, δείτε το στιγμιότυπο οθόνης:
- Εάν χρειάζεται να μετατραπούν και τα βιβλία εργασίας στους υποφακέλους, ελέγξτε το Συμπεριλάβετε υποφακέλους κατά την προσθήκη φακέλων πλαίσιο ελέγχου;
- Εάν θέλετε να καταργήσετε τα αρχικά αρχεία μετά τη μετατροπή, ελέγξτε το Διαγραφή αρχείων προέλευσης μετά τη μετατροπή κουτί;
- Εάν θέλετε να διατηρήσετε την τροποποιημένη ημερομηνία των αρχικών αρχείων, ελέγξτε το Διατηρήστε την ημερομηνία τροποποίησης των αρχικών αρχείων κουτί;
- Η δομή καταλόγου του αρχείου μπορεί να διατηρηθεί ελέγχοντας το Η δομή καταλόγου του αρχείου διατηρείται κατά τη μετατροπή κουτί;
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, κάντε το ως εξής:
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 με βάση κάθε φύλλο εργασίας.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!