Excel VBA για εκτύπωση ως PDF και αποθήκευση με αυτόματο όνομα αρχείου

Hugh West

27-05-2023 Μακροεντολές & Excel VBA
  • Μοιραστείτε Αυτό
Hugh West

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

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το τετράδιο εργασιών και να εξασκηθείτε μαζί τους.

VBA Εκτύπωση σε PDF.xlsm

9 παραδείγματα του Excel VBA για εκτύπωση ως PDF και αποθήκευση με αυτόματο όνομα αρχείου στο Excel

Μπορούμε εύκολα να εκτυπώσουμε ένα αρχείο Excel ως PDF και να αποθηκεύσουμε το αρχείο με ένα αυτόματο όνομα αρχείου, χρησιμοποιώντας τη γραμμή εργαλείων του Excel. Αλλά, θα ήταν ευκολότερο με Excel VBA . Απλά χρειαζόμαστε το VBA Δεν χρειαζόμαστε τόσα πολλά κλικ για την ολοκλήρωση της εργασίας και αυτό εξοικονομεί χρόνο.

Visual Basic για εφαρμογές ( VBA ) είναι ένα μοντέλο προγραμματισμού και ένα απομονωμένο πρόγραμμα που συναντάται συνήθως σε Microsoft Office Είναι ένα αναλυτικό εργαλείο, συχνά διαθέσιμο ως Πρόσθετα του Excel , που βελτιστοποιεί τις χειροκίνητες εργασίες, όπως οι μονότονες, χρονοβόρες δουλειές. Μπορεί επίσης να δημιουργήσει CSV Ας δούμε λοιπόν μερικά παραδείγματα για την εκτύπωση του αρχείου excel ως PDF με το αυτόματο όνομα αρχείου.

1. Εκτύπωση βιβλίου εργασίας σε PDF & amp; Αποθήκευση ονόματος αρχείου αυτόματα στο Excel

Ας υποθέσουμε ότι θέλουμε να εκτυπώσουμε ολόκληρο το βιβλίο εργασίας και να αποθηκεύσουμε το όνομα του αρχείου, όπως βάζουμε το όνομα στον κώδικά μας. Τώρα, ας υποθέσουμε ότι θέλουμε να αποθηκεύσουμε ένα αρχείο PDF στον υπολογιστή μας Τοπικός δίσκος (E:) Όπως βλέπουμε στην παρακάτω εικόνα, η τοποθεσία δεν περιέχει κανένα αρχείο pdf. Μετά την εκτέλεση του κώδικα VBA, θα μπορέσουμε να δούμε το επιθυμητό μας PDF αρχείο σε αυτή τη θέση στον υπολογιστή μας.

Με Excel VBA , οι χρήστες μπορούν εύκολα να χρησιμοποιήσουν τον κώδικα που λειτουργεί ως μενού του excel από την κορδέλα. Για να χρησιμοποιήσετε το VBA κώδικα για να εκτυπώσετε pdf και να αποθηκεύσετε με ένα αυτόματο όνομα αρχείου, ας ακολουθήσουμε τη διαδικασία.

ΒΗΜΑΤΑ:

  • Πρώτον, μεταβείτε στο Προγραμματιστής από την κορδέλα.
  • Δεύτερον, από το Κωδικός κατηγορία, κάντε κλικ στο Visual Basic για να ανοίξετε το Visual Basic Editor . ή πατήστε Alt + F11 για να ανοίξετε το Visual Basic Editor .

  • Αντί να το κάνετε αυτό, μπορείτε απλά να κάνετε δεξί κλικ στο φύλλο εργασίας σας και να μεταβείτε στην επιλογή Προβολή κωδικού Αυτό θα σας μεταφέρει επίσης στο Visual Basic Editor .

  • Αυτό θα εμφανιστεί στο Visual Basic Editor όπου γράφουμε τους κώδικες μας για να δημιουργήσουμε έναν πίνακα από το εύρος.
  • Τρίτον, κάντε κλικ στο Ενότητα από το Εισαγωγή αναπτυσσόμενη γραμμή μενού.

  • Αυτό θα δημιουργήσει ένα Ενότητα στο βιβλίο εργασίας σας.
  • Και, αντιγράψτε και επικολλήστε το VBA κώδικα που φαίνεται παρακάτω.

Κωδικός VBA: 

 Sub Print_Workbook() Dim loc As String loc = "E:\Workbook.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Εκτελέστε τον κώδικα πατώντας το πλήκτρο F5 στο πληκτρολόγιό σας.

  • Τέλος, μπορείτε να δείτε ότι ένα όνομα αρχείου PDF, Βιβλίο εργασίας βρίσκεται πλέον σε αυτή τη διαδρομή στον υπολογιστή σας. Αυτό σημαίνει ότι το όνομα του αρχείου αποθηκεύεται αυτόματα.

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

Επεξήγηση κώδικα VBA 

 Υποπαράγραφος Print_Workbook()

Υπο είναι ένα μέρος του κώδικα που χρησιμοποιείται για να διεκπεραιώσει την εργασία στον κώδικα, αλλά δεν θα επιστρέψει καμία τιμή. Είναι επίσης γνωστό ως υποδιαδικασία. Έτσι ονομάζουμε τη διαδικασία μας Print_Workbook() . 

 loc = "E:\Workbook.pdf"

Αυτή η γραμμή είναι για την τοποθεσία και το όνομα του αρχείου pdf. Εδώ, αποθηκεύουμε το αρχείο μας στο E: στον υπολογιστή μας και ονομάζουμε το αρχείο Βιβλίο εργασίας . 

 ActiveWorkbook.ExportAsFixedFormat Τύπος:=xlTypePDF, όνομα αρχείου:=loc

Αυτή η γραμμή κώδικα είναι για την εξαγωγή του αρχείου excel ως PDF και την προετοιμασία του για εκτύπωση. 

 End Sub

Αυτό θα τερματίσει τη διαδικασία.

Διαβάστε περισσότερα: Εξαγωγή Excel σε PDF με υπερσυνδέσμους (2 γρήγορες μέθοδοι)

2. Αποθηκεύστε το ενεργό φύλλο εργασίας αυτόματα ως PDF

Ας δούμε ένα άλλο παράδειγμα εκτύπωσης ενός ενεργού φύλλου σε pdf και αυτόματης αποθήκευσης του ονόματος του αρχείου χρησιμοποιώντας Excel VBA .

ΒΗΜΑΤΑ:

  • Πρώτον, μεταβείτε στο Ανάπτυξη r από την κορδέλα.
  • Δεύτερον, κάντε κλικ στο Visual Basic για να ανοίξετε το Visual Basic Editor .
  • Ένας άλλος τρόπος για να ανοίξετε το Visual Basic Editor είναι απλά να πατήσετε Alt + F11 .
  • Ή, κάντε δεξί κλικ στο φύλλο και, στη συνέχεια, επιλέξτε Προβολή κωδικού .
  • Στη συνέχεια, μεταβείτε στο Εισαγωγή και επιλέξτε Ενότητα από το αναπτυσσόμενο μενού.
  • Και, αυτό θα ανοίξει το παράθυρο visual basic.
  • Μετά από αυτό, αντιγράψτε και επικολλήστε το Κώδικας VBA παρακάτω.

Κωδικός VBA: 

 Sub Print_Sheet() Dim loc As String loc = "E:\Worksheet.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Περαιτέρω, πατήστε το Πλήκτρο F5 ή κάντε κλικ στο Run Sub για να εκτελέσετε τον κώδικα.

  • Ομοίως με το προηγούμενο παράδειγμα, το αρχείο αποθηκεύεται ως PDF με το αυτόματο όνομα αρχείου.

Αν διαβάσετε του example1 εξήγηση του κώδικα, θα το καταλάβετε κι αυτό.

Διαβάστε περισσότερα: Μακροεντολή Excel: Αποθήκευση ως PDF με ημερομηνία στο όνομα αρχείου (4 κατάλληλα παραδείγματα)

3. Εκτύπωση αρχείου PDF από το Excel με VBA σε εύρος τιμών

Ας δούμε ένα άλλο παράδειγμα χρήσης του Excel VBA για την εκτύπωση ενός ενεργού φύλλου σε pdf και την αυτόματη αποθήκευση του ονόματος του αρχείου.

ΒΗΜΑΤΑ:

  • Για να ξεκινήσετε, κάντε κλικ στο Προγραμματιστής στην καρτέλα της κορδέλας.
  • Δεύτερον, ξεκινήστε το Visual Basic Editor κάνοντας κλικ στο Visual Basic .
  • Εναλλακτικά, μπορείτε να αποκτήσετε πρόσβαση στο Visual Basic Editor πατώντας Alt + F11 .
  • Ή, δεξί κλικ στο στο φύλλο και επιλέξτε Προβολή κωδικού από το μενού.
  • Στη συνέχεια, επιλέξτε το Ενότητα από το αναπτυσσόμενο πλαίσιο κάτω από Εισαγωγή .
  • Και θα εμφανιστεί το παράθυρο visual basic.
  • Γράψτε τον κώδικα εκεί.

Κωδικός VBA: 

 Sub PrntPDF() ActiveWindow.SelectedSheets.PrintOut Copies:=1, _ Collate:=True, ActivePrinter:="Adobe PDF" Dim fnam As String fnam = Range("B4").Value End Sub
  • Τέλος, πατήστε το πλήκτρο Πλήκτρο F5 για να εκτελέσετε τον κώδικα.

  • Στη συνέχεια, μπορείτε να δείτε ότι ένα αρχείο PDF με το όνομα Βιβλίο εργασίας έχει προστεθεί σε αυτή τη θέση στον υπολογιστή σας. Ως αποτέλεσμα, το όνομα του αρχείου διατηρείται αυτόματα.

Διαβάστε περισσότερα: Εκτύπωση περιοχής σε PDF με VBA στο Excel (5 ευκολότερα παραδείγματα)

4. Excel VBA για βρόχο σε επιλεγμένο φύλλο και εκτύπωση PDF

Ας ρίξουμε μια ματιά σε έναν άλλο τρόπο εκτύπωσης σε PDF και αυτόματης αποθήκευσης του ονόματος του αρχείου.

ΒΗΜΑΤΑ:

  • Για να ξεκινήσετε, ανοίξτε την κορδέλα και επιλέξτε το Προγραμματιστής επιλογή.
  • Στη συνέχεια, για να αποκτήσετε πρόσβαση στο Visual Basic Editor , κάντε κλικ στο Visual Basic .
  • Πιέζοντας Alt + F11 θα εμφανίσει επίσης το Visual Basic Editor .
  • Εναλλακτικά, δεξί κλικ στο το φύλλο και επιλέξτε Προβολή κωδικού από το μενού που εμφανίζεται.
  • Τώρα, από το Εισαγωγή drop-down επιλογή, επιλέξτε Ενότητα .
  • Στη συνέχεια, αντιγράψτε και επικολλήστε το VBA κώδικα που ακολουθεί.

Κωδικός VBA: 

 Sub PrntPDF1() Dim wrksht As Worksheet Dim sht As Variant Set sht = ActiveWindow.SelectedSheets For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht sht.Select End Sub
  • Εκτελέστε τον κώδικα πατώντας το πλήκτρο F5 κλειδί.

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

Αυτό θα αποθηκεύσει το αρχείο ως τον αριθμό φύλλου του βιβλίου εργασίας.

Επεξήγηση κώδικα VBA 

 For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht

Αυτή η γραμμή κωδικών του βρόχου for είναι για την εξαγωγή του αρχείου excel ως pdf και την εκτύπωση του αρχείου.

Διαβάστε περισσότερα: Excel VBA: ExportAsFixedFormat PDF με προσαρμογή στη σελίδα (3 παραδείγματα)

5. Εκτύπωση σε PDF και αποθήκευση του ονόματος αρχείου ενστικτωδώς στο Excel

Τώρα, ρίξτε μια ματιά σε μια άλλη μέθοδο Excel VBA για την αποθήκευση αρχείων Excel σε pdf και την ονομασία του αρχείου αυτόματου συστήματος.

ΒΗΜΑΤΑ:

  • Για να ξεκινήσετε, ανοίξτε την κορδέλα και επιλέξτε Προγραμματιστής από το αναπτυσσόμενο μενού.
  • Στη συνέχεια, επιλέξτε Visual Basic για να ανοίξετε το Visual Basic Editor .
  • Το Visual Basic Editor μπορείτε επίσης να έχετε πρόσβαση πατώντας το πλήκτρο Alt + F11 .
  • Εναλλακτικά, μπορείτε να δεξί κλικ στο το φύλλο και επιλέξτε Προβολή κωδικού από το αναδυόμενο μενού.
  • Μετά από αυτό, επιλέξτε Ενότητα από το Εισαγωγή αναπτυσσόμενο μενού.
  • Επιπλέον, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA.

Κωδικός VBA: 

 Sub PrntPDF2() Dim loc As String loc = "E:\Sheet6.pdf" ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ filename:=loc, _ OpenAfterPublish:=False, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ Quality:=xlQualityStandard, _ From:=1, To:=2 End Sub
  • Τέλος, εκτελέστε τον κώδικα πατώντας F5 στο πληκτρολόγιό σας και βλέπετε το αποτέλεσμα.

  • Στη συνέχεια θα δείτε ότι ένα Βιβλίο εργασίας PDF αρχείο είχε ήδη αποθηκευτεί σε αυτή τη θέση στον υπολογιστή σας. Ως αποτέλεσμα, το όνομα του αρχείου διατηρείται αυτόματα.

Ομοίως, όπως και στο προηγούμενο παράδειγμα, αυτό θα αποθηκεύσει επίσης το αρχείο pdf ως αριθμό φύλλου.

Επεξήγηση κώδικα VBA 

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=loc, OpenAfterPublish:=False, IncludeDocProperties:=True, IgnorePrintAreas:=False, Quality:=xlQualityStandard, From:=1, To:=2

Το μπλοκ κώδικα είναι για την εκτύπωση και την αποθήκευση του αρχείου excel ως pdf.

Διαβάστε περισσότερα: Εκτύπωση σε PDF και ηλεκτρονικό ταχυδρομείο με χρήση της VBA στο Excel (2 χρήσιμες περιπτώσεις)

6. Λειτουργία VBA για αυτόματη εκτύπωση PDF και αποθήκευση ονόματος αρχείου

Ας εξερευνήσουµε έναν άλλο τρόπο Excel VBA για την εκτύπωση σε PDF και την αυτόµατη αποθήκευση του ονόµατος του αρχείου. Σε αυτό το παράδειγµα θα χρησιµοποιήσουµε µια συνάρτηση και θα αποθηκεύσουµε το αρχείο σε PDF. Χρησιµοποιούµε επίσης την Msgbox για να μας δώσει ένα μήνυμα αν το αρχείο έχει αποθηκευτεί ή όχι.

ΒΗΜΑΤΑ:

  • Στην αρχή, πηγαίνετε στο Προγραμματιστής tab>, Visual Basic >, Εισαγωγή >, Ενότητα .
  • Ή, δεξί κλικ στο στο φύλλο εργασίας θα ανοίξει ένα παράθυρο. Από εκεί πηγαίνετε στο Προβολή κωδικού .
  • Και, αυτό θα σας μεταφέρει στο Visual Basic Editor πεδίο, όπου μπορούμε να γράψουμε Μακροεντολές VBA .
  • Από την άλλη πλευρά, πατώντας Alt + F11 θα ανοίξει επίσης το Visual Basic Editor .
  • Μετά από αυτό, πληκτρολογήστε το VBA κωδικός.

Κωδικός VBA: 

 Sub PrntPDF3() Dim wrks As Worksheet Dim wrkb As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim myFile As Variant Dim l As Long On Error GoTo errHandler Set wrkb = ActiveWorkbook Set wrks = ActiveSheet sloc = wrkb.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrks.Range("A1").Value & " Print " &,wrks.Range("A2").Value &? " PDF " & wrks.Range("A3").Value sf = snam & ".pdf" slocf = sloc & sf If PrintFile(slocf) Then l = MsgBox(vbQuestion + vbYesNo, "File Exists") If l vbYes Then myFile = Application.GetSaveAsFilename(InitialFileName:=slocf, FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Save File Name") If myFile "False" Then slocf = myFile Else GoTo exitHandler End IfEnd If End If wrks.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler End Sub Function PrintFile(rsFullPath As String) As Boolean PrintFile =CBool(Len(Dir$(rsFullPath))> 0) End Function
  • Και, εκτελέστε τον κώδικα για να δείτε το αποτέλεσμα πατώντας το πλήκτρο Πλήκτρο F5 .

  • Αυτό θα εμφανιστεί στο Msgbox και βεβαιωθείτε ότι το αρχείο PDF είναι πλέον έτοιμο για εκτύπωση.

  • Ομοίως, όπως και προηγουμένως, θα παρατηρήσετε ότι ένα αρχείο PDF του βιβλίου εργασίας έχει ήδη αποθηκευτεί σε αυτή τη θέση στον υπολογιστή σας. Ως αποτέλεσμα, το όνομα του αρχείου διατηρείται από προεπιλογή. Καθώς ορίζουμε το όνομα του αρχείου Εκτύπωση PDF , αποθήκευσε το όνομα του αρχείου Εκτύπωση PDF.

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

Διαβάστε περισσότερα: Μακροεντολή Excel για την αποθήκευση ως PDF με όνομα αρχείου από την τιμή κελιού (2 παραδείγματα)

7. Κώδικας VBA του Excel για εκτύπωση σε PDF και αυτόματη αποθήκευση του ονόματος αρχείου

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

ΒΗΜΑΤΑ:

  • Για να ξεκινήσετε, πλοηγηθείτε στο Προγραμματιστής στην καρτέλα της κορδέλας.
  • Δεύτερον, στην ενότητα Code, επιλέξτε Visual Basic για να ξεκινήσει το Visual Basic Editor Για να ανοίξετε το Visual Basic Editor , κάντε κλικ Alt + F11 .
  • Εναλλακτικά, μπορείτε απλά να κάνετε δεξί κλικ στο φύλλο εργασίας σας και να επιλέξετε Προβολή κωδικού Αυτό θα σας μεταφέρει στο Visual Basic Editor επίσης.
  • Αυτό θα εμφανιστεί στο Visual Basic Editor , όπου θα γράψουμε τον κώδικα για τη δημιουργία ενός πίνακα από ένα εύρος.
  • Τρίτον, από την αναπτυσσόμενη γραμμή μενού Insert, επιλέξτε Ενότητα .
  • Και, αντιγράψτε και επικολλήστε το VBA κώδικα που φαίνεται παρακάτω.

Κωδικός VBA: 

 Sub PrintPDF4() Dim wrksht As Worksheet Dim wrkbk As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim file As Variant On Error GoTo errHandler Set wrkbk = ActiveWorkbook Set wrksht = ActiveSheet sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrksht.Range("A1").Value & " - " &,wrksht.Range("A2").Value &- " - " &- wrksht.Range("A3").Value sf = snam &- ".pdf" slocf = sloc &- sf wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " &- vbCrLf &- strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" ResumeexitHandler End Sub
  • Στη συνέχεια, εκτελέστε τον κώδικα κάνοντας κλικ στο κουμπί RubSub ή πατώντας το κουμπί F5 συντόμευση πληκτρολογίου.

  • Ιδιαίτερα, λοιπόν, μια Msgbox θα εμφανιστεί.

  • Το αρχείο αποθηκεύεται ως PDF με το ίδιο αυτοματοποιημένο όνομα αρχείου όπως στο προηγούμενο παράδειγμα.

Επεξήγηση κώδικα VBA 

 sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrksht.Range("A1").Value & " - " & wrksht.Range("A2").Value &- " - " &- wrksht.Range("A3").Value

Αυτά είναι για να λαμβάνετε τον ενεργό φάκελο του βιβλίου εργασίας εάν το βιβλίο εργασίας αποθηκευτεί. 

 sf = snam & ".pdf" slocf = sloc & sf

Αυτό θα δημιουργήσει το προεπιλεγμένο όνομα για την αποθήκευση αρχείων. 

 wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Αυτό το μπλοκ απλώς εξάγει το αρχείο excel σε PDF στον τρέχοντα φάκελο. 

 MsgBox "Εκτύπωση PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler

Αυτό θα μας επιτρέψει να δούμε ένα μήνυμα επιβεβαίωσης με πληροφορίες αρχείου στο Microsoft Excel.

Διαβάστε περισσότερα: Εκτύπωση σε PDF χρησιμοποιώντας κουμπί μακροεντολών στο Excel (5 παραλλαγές μακροεντολών)

8. Εκτύπωση συγκεκριμένου φύλλου Excel με αυτόματο όνομα αρχείου

Ας δούμε μια διαφορετική μέθοδο Excel VBA για την εκτύπωση σε PDF και την αυτόματη αποθήκευση του ονόματος αρχείου.

ΒΗΜΑΤΑ:

  • Αρχικά, επιλέξτε το Προγραμματιστής από την κορδέλα.
  • Δεύτερον, σύμφωνα με το Κωδικός κατηγορία, επιλέξτε Visual Basic για να ξεκινήσει το Visual Basic Editor . Εναλλακτικά, πιέστε Alt + F11 για να ξεκινήσει το Visual Basic Editor .
  • Αντ' αυτού, κάντε δεξί κλικ στο φύλλο εργασίας σας και επιλέξτε Προβολή κωδικού .
  • Αυτό θα εμφανιστεί στο Visual Basic Editor , όπου θα γράψουμε τον κώδικά μας για να δημιουργήσουμε έναν πίνακα από ένα εύρος.
  • Τρίτον, επιλέξτε Ενότητα από την αναπτυσσόμενη γραμμή μενού Εισαγωγή.
  • Επιπλέον, αντιγράψτε και επικολλήστε το Κώδικας VBA παρακάτω.

Κωδικός VBA: 

 Sub PrintPDF5() Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13") rng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Επιπλέον, εκτελέστε τον κώδικα κάνοντας κλικ στο κουμπί RubSub ή χρησιμοποιώντας το κουμπί F5 συντόμευση πληκτρολογίου.

  • Αυτό το αρχείο αποθηκεύεται ως PDF με το ίδιο ακριβώς όνομα με το προηγούμενο παράδειγμα.

Επεξήγηση κώδικα VBA 

 Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13")

Αυτά τα τμήματα των κωδικών είναι για τη δημιουργία και την ανάθεση μεταβλητών. 

 rng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc

Αυτό θα αποθηκεύσει μια σειρά δεδομένων αρχείου ως PDF.

Διαβάστε περισσότερα: Πώς να μετατρέψετε το Excel σε PDF χωρίς να χάσετε τη μορφοποίηση (5 αποτελεσματικοί τρόποι)

9. Αποθήκευση ονόματος αρχείου με αυτόματο τρόπο κατά την εκτύπωση σε PDF στο Excel VBA

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

ΒΗΜΑΤΑ:

  • Αρχικά, επιλέξτε το Προγραμματιστής από την κορδέλα.
  • Δεύτερον, διαλέξτε Visual Basic από το Κωδικός περιοχή για να ανοίξετε το Visual Basic Editor . Alt + F11 για να ξεκινήσει το Visual Basic Editor .
  • Μπορείτε επίσης να κάνετε δεξί κλικ στο φύλλο εργασίας σας και να επιλέξετε Προβολή κωδικού Αυτό θα σας μεταφέρει επίσης στο Visual Basic Editor .
  • Τώρα, μπορούμε να δούμε το Visual Basic Editor , όπου θα γράψουμε τον κώδικα για να δημιουργήσουμε έναν πίνακα από ένα εύρος.
  • Επιπλέον, επιλέξτε Ενότητα από το Εισαγωγή αναπτυσσόμενη γραμμή μενού.
  • Στη συνέχεια, αντιγράψτε και επικολλήστε το VBA κώδικα που ακολουθεί.

Κωδικός VBA: 

 Sub Prnt_PDF() Call Automatic_Name End Sub Function Automatic_Name() As Boolean ' Αντιγράφει τα φύλλα σε νέο αρχείο PDF για αποστολή με e-mail Dim sht As String, file As String, loc As String Dim s As String Application.ScreenUpdating = False sht = ActiveSheet.Name file = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf" On Error Resume NextActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox "Αποθηκεύτηκε ως αρχείο .pdf: " & vbCrLf & vbCrLf & SvAs & _ "Αναθεώρηση του εγγράφου .pdf."Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Αδυναμία αποθήκευσης ως PDF." Automatioc_Name = False EndMacro: End Function
  • Ο κώδικας θα εκτελεστεί στη συνέχεια κάνοντας κλικ στο RubSub ή χρησιμοποιώντας το κουμπί F5 συντόμευση πληκτρολογίου.

Επεξήγηση κώδικα VBA 

 sht = ActiveSheet.Name file = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf"

Για να λάβετε το αρχείο ως pdf και να αποθηκεύσετε το όνομα του pdf. 

 On Error Resume Next ActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0

Αυτό ρυθμίζει μόνο την ποιότητα εκτύπωσης. 

 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox "Αποθηκεύτηκε ως αρχείο .pdf: " & vbCrLf & vbCrLf &- SvAs &- _ "Αναθεώρηση του εγγράφου .pdf." Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Αδύνατη η αποθήκευση ως.PDF." Automatioc_Name = False

Αυτές οι γραμμές θα καθοδηγήσουν τον χρήστη πώς να στείλει το αρχείο για να το εκτυπώσει ως pdf.

Διαβάστε περισσότερα: Πώς να αποθηκεύσετε το Excel ως PDF χωρίς αποκοπή (4 κατάλληλοι τρόποι)

Συμπέρασμα

Οι παραπάνω μέθοδοι θα σας βοηθήσουν να κάνετε αυτή τη δουλειά από Εκτύπωση σε PDF και αποθήκευση αυτόματου ονόματος αρχείου στο Excel VBA . ελπίζω ότι αυτό θα σας βοηθήσει! Αν έχετε οποιεσδήποτε ερωτήσεις, προτάσεις ή σχόλια, παρακαλούμε να μας ενημερώσετε στην ενότητα των σχολίων. Ή μπορείτε να ρίξετε μια ματιά στα άλλα άρθρα μας στην ενότητα ExcelWIKI.com blog!

Προηγούμενη ανάρτηση Πώς να ανακτήσετε την προηγούμενη έκδοση του αρχείου Excel (4 εύκολοι τρόποι)
Επόμενη ανάρτηση Πώς να πολλαπλασιάσετε σειρές στο Excel (4 ευκολότεροι τρόποι)

Ο Hugh West είναι ένας εξαιρετικά έμπειρος εκπαιδευτής και αναλυτής του Excel με πάνω από 10 χρόνια εμπειρίας στον κλάδο. Είναι κάτοχος πτυχίου Λογιστικής και Χρηματοοικονομικής και μεταπτυχιακού στη Διοίκηση Επιχειρήσεων. Ο Hugh έχει πάθος για τη διδασκαλία και έχει αναπτύξει μια μοναδική προσέγγιση διδασκαλίας που είναι εύκολο να ακολουθηθεί και να κατανοηθεί. Οι εξειδικευμένες γνώσεις του στο Excel έχουν βοηθήσει χιλιάδες φοιτητές και επαγγελματίες παγκοσμίως να βελτιώσουν τις δεξιότητές τους και να διαπρέψουν στην καριέρα τους. Μέσω του ιστολογίου του, ο Hugh μοιράζεται τις γνώσεις του με τον κόσμο, προσφέροντας δωρεάν μαθήματα Excel και διαδικτυακή εκπαίδευση για να βοηθήσει άτομα και επιχειρήσεις να αξιοποιήσουν πλήρως τις δυνατότητές τους.