Πώς να χρησιμοποιήσετε VBA για να σώσει το Excel Ως PDF

Η μορφή αρχείου PDF σας επιτρέπει να δημοσιεύσετε ένα έγγραφο ή μια έκθεση , έτσι ώστε να φαίνεται το ίδιο σε οποιοδήποτε σύστημα και έτσι ώστε να μην μπορεί να αλλάξει από άλλους . Microsoft Office 2007 και το 2010 περιλαμβάνουν ένα " Δημοσίευση σε μορφή PDF " επιλογή σε κάθε εφαρμογή, έτσι ώστε να μπορείτε να αποθηκεύσετε έγγραφα , τα καταστρώματα διαφάνεια ή υπολογιστικών φύλλων ως αρχεία PDF . Αυτό το καθιστά πολύ πιο εύκολο να αποθηκεύσετε εκδόσεις PDF των υπολογιστικών φύλλων του Excel από το μενού και μέσα σε μακροεντολές . Τα πράγματα που θα χρειαστείτε για Microsoft Excel 2007 ή το 2010
2007 Microsoft Office " Αποθήκευση ως PDF ή XPS " πρόσθετο (χωρίς πρόσθετο απαιτείται για το Office 2010)
Η Εμφάνιση Περισσότερες οδηγίες
Φτηνές 1

κάντε διπλό κλικ στο όνομα του αρχείου Excel από τα έγγραφά μου ή την Εξερεύνηση των Windows ή την έναρξη του Excel και να χρησιμοποιήσετε το " Άνοιγμα" εντολή από το κουμπί έναρξης . Περιηγηθείτε στο αρχείο σας και κάντε κλικ στο "Άνοιγμα ". 2

Πιέστε το πλήκτρο " Alt " και τα πλήκτρα " F11 " ταυτόχρονα για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic . Χρησιμοποιήστε την Εξερεύνηση έργου για να περιηγηθείτε στη μονάδα όπου θα πρέπει να αυτοματοποιήσει τη διάσωση του φύλλων ως αρχείο PDF . Τοποθετήστε το δρομέα σε κώδικα της Visual Basic σας, όπου θέλετε να αποθηκεύσετε το να συμβεί .
Εικόνων 3

Χρησιμοποιήστε τη λειτουργία " ExportAsFixedFormat " για να εκτελέσει μια " Αποθήκευση σε PDF . " Μπορεί να γίνει επίκληση αυτή η λειτουργία από οποιοδήποτε φύλλο εργασίας ( π.χ. , ActiveSheet.ExportAsFixedFormat ) ή για το βιβλίο εργασίας ως σύνολο ( π.χ. , ActiveWorkbook.ExportAsFixedFormat )

Μπορείτε να ορίσετε μια σειρά από επιλογές με την εντολή ? . Οι τιμές επιλογή που φαίνονται παρακάτω είναι προεπιλεγμένες τιμές του Excel

[Υποχρεωτικό ] Τύπος : . = xlTypePDF

[Υποχρεωτικό ] όνομα : =

[ προαιρετικό ] Ποιότητα: = xlQualityStandard ( xlQualityStandard ή xlQualityMinimum )

[ προαιρετικό ] IncludeDocProperties : = True ( " True" σημαίνει ότι οι ιδιότητες του εγγράφου , όπως είναι το όνομα του συγγραφέα και τον τίτλο του εγγράφου , θα πρέπει να περιλαμβάνονται στο αρχείο PDF ? "False " σημαίνει ότι αυτές οι ιδιότητες δεν θα τεθεί στο αρχείο PDF )

[ προαιρετικό ] IgnorePrintAreas : . = False ( " True" σημαίνει ότι όλο το περιεχόμενο του υπολογιστικού φύλλου θα πρέπει να συμπεριληφθεί ? "False " υποδεικνύει ότι μόνο οι πληροφορίες εντός περιοχών σύνολο εκτύπωσης σας θα πρέπει να περιλαμβάνονται )

[ προαιρετικό ] Από : . = 1 ( Αυτός είναι ο αριθμός της σελίδας όπου το Excel θα πρέπει να ξεκινήσει το αποθηκεύσετε Αν παραλειφθεί , τότε το Excel ξεκινά το . . πρώτη σελίδα )

[ Προαιρετικό ] Προς: . . = 5 ( Αυτός είναι ο αριθμός της σελίδας όπου το Excel θα πρέπει να ολοκληρωθεί το αποθηκεύσετε Αν παραλειφθεί , τότε το Excel τελειώνει στην τελευταία σελίδα )

[ προαιρετικό ] OpenAfterPublish : = False ( . "True " δείχνει ότι το Excel θα πρέπει να ξεκινήσει προεπιλογή αναγνώστη σας για τα αρχεία PDF με το PDF αρχείο ανοιχτό? "False " υποδεικνύει ότι το νέο αρχείο PDF , δεν θα πρέπει να ανοίξει αυτόματα )
Η 4

Εκτελέστε τη λειτουργία κώδικα για να διασφαλιστεί ότι η "Αποθήκευση σε PDF " λειτουργεί σωστά . Αποθηκεύστε το αρχείο υπολογιστικού φύλλου .
Η
εικόνων