Πίνακας περιεχομένων
Ένα από τα κοινά προβλήματα που αντιμετωπίζουμε οι περισσότεροι από εμάς στην καθημερινή μας ζωή είναι πώς να εξάγουμε κάποια συγκεκριμένα δεδομένα από ένα PDF αρχείο σε ένα φύλλο εργασίας του Excel χρησιμοποιώντας VBA Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να το πετύχετε αυτό άνετα με κατάλληλα παραδείγματα και εικόνες.
Εξαγωγή συγκεκριμένων δεδομένων από PDF σε Excel χρησιμοποιώντας VBA (Γρήγορη προβολή)
Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc"SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub
Κατεβάστε το βιβλίο ασκήσεων
Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.
Εξαγωγή δεδομένων από PDF.xlsmΜια επισκόπηση για την εξαγωγή συγκεκριμένων δεδομένων από το PDF στο Excel χρησιμοποιώντας το VBA (ανάλυση βήμα προς βήμα)
Έτσι, χωρίς άλλη καθυστέρηση, ας πάμε στην κύρια συζήτησή μας σήμερα. Εδώ έχουμε μια PDF αρχείο που ονομάζεται standardnormaltable.pdf που περιέχει έναν πίνακα της κανονικής κατανομής.
Και έχουμε ανοίξει ένα φύλλο εργασίας που ονομάζεται Φύλλο1 σε ένα βιβλίο εργασίας του Excel όπου θα αντιγράψουμε τα δεδομένα από το PDF αρχείο.
Τώρα θα σας δείξω ότι μπορείτε να αντιγράψετε δεδομένα από το PDF στο φύλλο εργασίας του Excel μέσω ανάλυσης βήμα προς βήμα.
⧪ Βήμα 1: Δήλωση των απαραίτητων εισόδων
Πρώτα απ' όλα, πρέπει να δηλώσετε τις απαραίτητες εισροές. Αυτές περιλαμβάνουν το όνομα του φύλλου εργασίας, την περιοχή των κελιών, τη θέση της εφαρμογής μέσω της οποίας η PDF θα ανοίξει το αρχείο ( Adobe Reader σε αυτό το παράδειγμα), και η θέση του PDF αρχείο.
Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable"
⧪ Βήμα 2: Άνοιγμα του αρχείου PDF (με χρήση της εντολής VBA Shell)
Στη συνέχεια, πρέπει να καλέσουμε το VBA Λειτουργία κελύφους για να ανοίξετε το PDF αρχείο.
Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus)
⧪ Βήμα 3 (Προαιρετικό): Αναμονή για λίγα λεπτά
Αυτό είναι προαιρετικό, αλλά όταν έχετε μια μεγάλη σειρά εργασιών, είναι προτιμότερο να περιμένετε μερικά λεπτά για να επιτρέψετε στον υπολογιστή σας να ολοκληρώσει επιτυχώς την προηγούμενη εργασία και να ξεκινήσει μια νέα εργασία.
Application.Wait Now + TimeValue("0:00:03")
Εδώ, περιμένουμε 30 δευτερόλεπτα, αλλά αν θέλετε, μπορείτε να περιμένετε περισσότερο.
⧪ Βήμα 4: Χρήση του SendKeys για την αντιγραφή δεδομένων από το αρχείο PDF
Αυτή είναι ίσως η πιο σημαντική εργασία. Θα χρησιμοποιήσουμε το 3 SendKeys:
- ALT + V, P, C: Αυτό είναι κυρίως για να ενεργοποιήσετε την κύλιση στο PDF Για μικρά αρχεία, αυτό δεν είναι απαραίτητο. Αλλά για μεγαλύτερα αρχεία, αυτό καθίσταται απαραίτητο για την επιλογή ολόκληρου του αρχείου.
- CTRL + A: Αυτό είναι για την επιλογή ολόκληρου του αρχείου.
- CTRL + C : Για την αντιγραφή του επιλεγμένου αρχείου.
Επομένως, οι γραμμές κώδικα θα είναι:
SendKeys "%vpc" SendKeys "^a" SendKeys "^c"
⧪ Βήμα 5: Επικόλληση των δεδομένων στο αρχείο Excel
Έχουμε ανοίξει το συγκεκριμένο PDF Τώρα πρέπει να επικολλήσουμε τα δεδομένα αυτά στην επιθυμητή περιοχή του φύλλου εργασίας.
MyWorksheet.Range("A1").PasteSpecial Επικόλληση:=xlPasteAll
Εδώ, έχω επικολλήσει στο κελί A1 Φυσικά, μπορείτε να το επικολλήσετε οπουδήποτε αλλού σύμφωνα με την επιθυμία σας.
⧪ Βήμα 6 (Προαιρετικό): Κλείσιμο του αρχείου PDF (Τερματισμός της εφαρμογής)
Τέλος, είναι προτιμότερο να κλείσετε το πρόγραμμα που εκτελείται αφού ολοκληρώσετε την εξαγωγή δεδομένων.
Κλήση Shell("TaskKill /F /IM Acrobat.exe", vbHide)
Διαβάστε περισσότερα: Πώς να εξαγάγετε δεδομένα από το PDF στο Excel (4 κατάλληλοι τρόποι)
Παρόμοιες αναγνώσεις
- Πώς να εξαγάγετε δεδομένα από το PDF που μπορείτε να συμπληρώσετε στο Excel (με γρήγορα βήματα)
- Πώς να εξαγάγετε σχόλια PDF σε ένα φύλλο Excel (3 γρήγορα κόλπα)
Παράδειγμα εξαγωγής συγκεκριμένων δεδομένων από το PDF στο Excel χρησιμοποιώντας το VBA
Είδαμε τη διαδικασία βήμα προς βήμα για την εξαγωγή δεδομένων από ένα PDF αρχείο σε ένα φύλλο εργασίας του Excel χρησιμοποιώντας VBA .
Ως εκ τούτου, η πλήρης VBA κώδικα για την εξαγωγή δεδομένων από το PDF αρχείο που ονομάζεται standardnormaltable στο Φύλλο1 θα είναι:
⧭ Κωδικός VBA:
Sub Extract_Data_from_PDF() Set MyWorksheet = ActiveWorkbook.Worksheets("Sheet1") Application_Path = "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" PDF_Path = "E:\ExcelWIKI\standardnormaltable.pdf" Shell_Path = Application_Path & " """ & PDF_Path & """" Call Shell(pathname:=Shell_Path, windowstyle:=vbNormalFocus) Application.Wait Now + TimeValue("0:00:03") SendKeys "%vpc"SendKeys "^a" SendKeys "^c" MyWorksheet.Range("A1").PasteSpecial Paste:=xlPasteAll Call Shell("TaskKill /F /IM Acrobat.exe", vbHide) End Sub
⧭ Έξοδος:
Εκτελέστε αυτόν τον κώδικα. Και θα αντιγράψει τα δεδομένα από το PDF αρχείο που ονομάζεται "standardnormaltable" στο φύλλο εργασίας που ονομάζεται "Φύλλο1" στο ενεργό βιβλίο εργασίας.
Διαβάστε περισσότερα: Πώς να εξαγάγετε δεδομένα από πολλαπλά αρχεία PDF στο Excel (3 κατάλληλοι τρόποι)
Πράγματα που πρέπει να θυμάστε
- Το βιβλίο εργασίας στο οποίο θα αντιγράψετε τα δεδομένα από το PDF πρέπει να παραμείνει ανοιχτό κατά την εκτέλεση του κώδικα. Διαφορετικά, θα πρέπει να χρησιμοποιήσετε το όνομα του βιβλίου εργασίας στον κώδικα.
- Το όνομα της εφαρμογής που χρησιμοποιείτε μέσα στον κώδικα ( Adobe Acrobat DC εδώ) πρέπει να είναι εγκατεστημένο στον υπολογιστή σας. Διαφορετικά, θα λάβετε ένα σφάλμα.
- Για μεγάλα σύνολα δεδομένων PDF αρχείων, η διαδικασία μπορεί να πάρει κάποιο χρόνο για να αντιγράψει όλα τα δεδομένα και να τα επικολλήσει. Επομένως, κάντε υπομονή και περιμένετε μέχρι να ολοκληρωθεί επιτυχώς η διαδικασία.
Συμπέρασμα
Επομένως, πρόκειται για τη διαδικασία εξαγωγής ορισμένων συγκεκριμένων δεδομένων από ένα PDF αρχείο σε ένα φύλλο εργασίας του Excel χρησιμοποιώντας VBA Έχετε οποιεσδήποτε ερωτήσεις; Μη διστάσετε να μας ρωτήσετε. Και μην ξεχάσετε να επισκεφθείτε τον ιστότοπό μας ExcelWIKI για περισσότερες αναρτήσεις και ενημερώσεις.