Πώς να Απόσπασμα Πίνακες από πολλαπλά έγγραφα του Word και την εισαγωγή τους στο Excel

Excel δεν μπορεί να εισάγει πίνακες του Word τόσο εύκολα όσο μπορεί άλλα δεδομένα . Ένας τρόπος για να πάρει τους πίνακες του Word στο Excel είναι να μετατρέψει πρώτα τα δεδομένα στους πίνακες του Word σε τιμών διαχωρισμένων με κόμματα , περισσότερο γνωστή ως CSV . Αλλά αυτό είναι ένα έργο χρονοβόρα . Μια άλλη λύση είναι να χρησιμοποιούν τη γλώσσα προγραμματισμού του Excel , Visual Basic for Applications , για να διαβάσει τα δεδομένα ενός πίνακα του Word και να το αντιγράψετε σε ένα υπολογιστικό φύλλο του Excel . Χρησιμοποιώντας την προσέγγιση αυτή περιλαμβάνει τη χρήση των εικονικών αντικειμένων του Word , συμπεριλαμβανομένου του " Πίνακα " αντικείμενο . Οδηγίες
Η 1

Χρησιμοποιήστε την Εξερεύνηση των Windows για να αντιγράψετε ένα αρχείο του Word που περιέχει τουλάχιστον έναν πίνακα στο φάκελο " C : \\. " Μετονομάστε το αρχείο ως " table.docx . " Θα γράψετε ένα εισαγωγικό πρόγραμμα που θα διαβάσει ένα κελί πίνακα από το αρχείο αυτό . 2

Κάντε κλικ στην καρτέλα "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο κουμπί " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού Visual Basic προγραμματισμού . Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο κώδικα της VB . Αυτό το πρόγραμμα δημιουργεί μια σύνδεση με το Word , το Excel το οποίο επιτρέπει να χρησιμοποιούν εικονικά αντικείμενα του Word ακριβώς όπως κι αν το πρόγραμμα ήταν σε λειτουργία μέσα σε ένα έγγραφο του Word . Αυτή η διαδικασία ονομάζεται " Αυτοματισμού ".

Public Sub LoadWordTablebak ( )

Dim pgmWord Όπως Word.Application

Set pgmWord = CreateObject ( " Word.Application " )

pgmWord.Documents.Open . ( "c : \\ table.docx " )

MsgBox pgmWord.ActiveDocument.Tables ( 1 ) τηλέφωνα ( 1 , 1 )

pgmWord.ActiveDocument . Κλείσιμο

pgmWord.Quit

End Sub
εικόνων 3

Κάντε κλικ στο μενού "Εργαλεία" και, στη συνέχεια , κάντε κλικ στο "Αναφορές " εντολή . Μετακινηθείτε μέσα από το παράθυρο που εμφανίζεται για να εντοπίσετε το στοιχείο " Microsoft Word " , στη συνέχεια, κάντε κλικ στο πλαίσιο ελέγχου για το στοιχείο αυτό . Η δράση αυτή επιτρέπει Excel πρόσβαση στα οπτικά αντικείμενα σε ένα έγγραφο του Word .
Η 4

Κάντε κλικ σε οποιαδήποτε δήλωση στο πρόγραμμα , στη συνέχεια, κάντε κλικ στο κουμπί του μενού " Run " του " Run " εντολή . Το πρόγραμμα θα εμφανίσει ένα πλαίσιο μηνύματος που δείχνει τα περιεχόμενα ενός κελιού πίνακα σε ένα έγγραφο του Word . Θα επεκτείνει τώρα το πρόγραμμα για να φορτώσει σε ένα πλήρες τραπέζι από οποιοδήποτε έγγραφο του Word .
5

Επικολλήστε τον ακόλουθο αναθεωρημένο πρόγραμμα κάτω από το " End Sub" δήλωση του αρχικού προγράμματος . Το πρόγραμμα ζητά από το χρήστη για το όνομα αρχείου ενός εγγράφου του Word . Ο χρήστης πρέπει να πληκτρολογήσετε τον αριθμό του πίνακα μέσα στο έγγραφο . Το πρόγραμμα χρησιμοποιεί τη μέθοδο αυτοματοποίησης του πρώτου προγράμματος για να φορτώσει αντιγράψετε το συγκεκριμένο πίνακα ανά κελί σε ένα υπολογιστικό φύλλο του Excel .

Public Sub LoadWordTable2 ( )

Dim docname Όπως String

Dim αναγνωριστικό πίνακα As Integer

Δημ. c , r , StartRow As Integer

Δημ. curCell

Dim pgmWord Όπως Word.Application

Set curCell = ActiveCell

Set pgmWord = CreateObject ( " Word.Application " )

docname = InputBox ( " Πληκτρολογήστε το όνομα του εγγράφου του Word " )

docname = InputBox ( " Πληκτρολογήστε το όνομα του εγγράφου του Word " )

Ενώ ( docname <> "" )

αναγνωριστικό πίνακα = InputBox ( " Εισάγετε τον αριθμό του πίνακα " )

pgmWord.Documents.Open ( "c : \\ πίνακα . docx " )

Με pgmWord.ActiveDocument.Tables ( αναγνωριστικό πίνακα )

StartRow = ActiveCell.Row

Για c = 1 Για να . Columns.Count

για r = 1 Για να . Rows.Count

curCell.Value = . τηλέφωνα ( r , c )

«Μετακίνηση στην επόμενη γραμμή

Set curCell = curCell.Offset ( 1 , 0 )

Επόμενο r
«

Μετακίνηση στην επόμενη στήλη

Set curCell = Cells ( StartRow , curCell.Column + 1 )

Επόμενο c

End With

pgmWord.ActiveDocument.Close

docname = InputBox ( " Πληκτρολογήστε το όνομα του εγγράφου του Word " )

Wend

pgmWord . Κλείστε

End Sub
Η

6 Κάντε κλικ στο " Excel " εικονίδιο της εφαρμογής στη γραμμή εργασιών των Windows για να επιστρέψετε στο Excel , κάντε κλικ στο κουμπί " Μακροεντολές " της καρτέλας "Προγραμματιστής " . Κάντε διπλό κλικ στο " LoadWordTable " macro για να τρέξει αυτό το macro .
Η

7 Πληκτρολογήστε το όνομα ενός εγγράφου του Word που περιέχει έναν πίνακα , όταν σας ζητηθεί να το πράξουν εμφανίζεται. Πληκτρολογήστε τον αριθμό του πίνακα που θέλετε, όταν εμφανιστεί η προτροπή για αυτόν τον πίνακα . Για παράδειγμα , αν θέλετε το δεύτερο πίνακα στο έγγραφο , πληκτρολογήστε " 2 . " Το Excel θα φορτώσει τον πίνακα στο τρέχον φύλλο .
8

Συνέχεια φόρτωση πίνακες του Word με το πρόγραμμα , όπως απαιτείται . Πατήστε το πλήκτρο " Enter" στο " όνομα του εγγράφου " προτροπή να τερματίσει το πρόγραμμα .
Η
εικόνων