Πώς να ανοίξετε ένα αρχείο PDF με VBA

Η κατασκευή ή τη χρήση ενός εγγράφου του Microsoft Office , υπολογιστικών φύλλων ή βάσεων δεδομένων συχνά απαιτεί αναφορά των δεδομένων που υπάρχει σε ένα άλλο αρχείο . Η μορφή Portable Document File ( PDF ) χρησιμοποιείται για την κοινοποίηση πληροφοριών σε όλες τις πλατφόρμες υπολογιστών και μπορούν να χρησιμοποιηθούν ως στοιχεία αναφοράς για τα προαναφερθέντα αρχεία του Office . Χρήση της Visual Basic for Applications ( VBA ) , μπορείτε να δημιουργήσετε μακροεντολές μέσα από τις εφαρμογές του Office για να δημιουργήσετε μια στενογραφία μέθοδος για το άνοιγμα ενός αρχείου PDF , ενώ εξακολουθεί να εργάζεται μέσα από την εφαρμογή . Οδηγίες
Η 1

δημιουργήσετε μια νέα μακροεντολή στην εφαρμογή του Office που θέλετε να χρησιμοποιήσετε κατά το άνοιγμα του αρχείου PDF . Το παράδειγμα που εμφανίζεται στο εξής βήματα δημιουργήθηκε στο Excel . Επιλέξτε το "Προβολή " καρτέλα στο μενού Κορδέλα και κάντε κλικ στο μικρό βέλος κάτω από το εικονίδιο " Μακροεντολές " . Επιλέξτε "Προβολή μακροεντολών " από το μενού . 2

Πληκτρολογήστε ένα όνομα για τη μακροεντολή στο " Όνομα μακροεντολής " κουτί κειμένου . Αυτό το παράδειγμα ονομάζεται " OpenPDFFile . " Κάντε κλικ στο κουμπί " Δημιουργία " για να ανοίξετε το πρόγραμμα επεξεργασίας VBA .
Εικόνων 3

Πληκτρολογήστε τις δηλώσεις VBA μεταξύ της « Υπο OpenPDFFile " και " End Sub" οδηγίες για να επιλέξετε και να ανοίξετε το αρχείο PDF . Αρχίστε με την οποία μια μεταβλητή συμβολοσειράς για να κρατήσει το όνομα του αρχείου PDF .

Δημ. strPDF_File_Name Όπως String
4

Ορίστε ένα όνομα αρχείου PDF και την επέκταση στη μεταβλητή . Ένα σταθερό όνομα αρχείου αποδίδεται στον κώδικα VBA :

strPDF_File_Name = " C : \\ users \\ myName \\ My Documents \\ somePDF.pdf "

Μπορείτε επίσης να ορίσετε το όνομα του αρχείου με βάση την αξία επέστρεψε από το "Open File " παράθυρο διαλόγου . Για να είναι δυνατή η χρήση του File Explorer για να εντοπίσετε το αρχείο , χρησιμοποιήστε την ακόλουθη δήλωση αντί της προηγούμενης χρήσης :

strPDF_File_Name = Application.GetOpenFilename ( " . . Αρχεία PDF , * pdf , τα αρχεία , * * " , 1 , " Open File" , , False )
5

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

ActiveWorkbook.FollowHyperlink strPDF_File_Name
Η

6 Πατήστε το πλήκτρο " Alt + Q " για να κλείσετε το πρόγραμμα επεξεργασίας και να επιστρέψετε στο βιβλίο εργασίας του Excel . Αποθηκεύστε το βιβλίο εργασίας για να αποθηκεύσετε τη μακροεντολή .
Η
εικόνων