Τρόπος εξαγωγής δεδομένων από πίνακες του Word Χρήση του Excel VBA

Visual Basic for Applications ( VBA ) , scripting γλώσσα της Microsoft για το Excel και το Word , επιτρέπει στους χρήστες των προγραμμάτων αυτών γράψει σενάρια που επιταχύνουν κοινές εργασίες, όπως την πρόσβαση στα δεδομένα του πίνακα . Εκτός από την παροχή στους χρήστες του Excel τη δυνατότητα να διαχειρίζονται τα δεδομένα πίνακα του Excel , VBA παρέχει επίσης ένα μέσο για την πρόσβαση σε πίνακες σε έγγραφα του Word . VBA προγραμματιστές αναφέρονται σε αυτή την ικανότητα ενός προγράμματος του Office για να τρέξει άλλο ως "αυτοματισμού ". Ένα πλεονέκτημα που της αυτόματης άντλησης δεδομένων Word παρέχει είναι η εξοικονόμηση χρόνου . Χωρίς αυτοματισμού , οι χρήστες του Excel μπορεί να χρειαστεί να χρησιμοποιήσετε περισσότερο χρονοβόρες μεθόδους για την άσκηση των δεδομένων στο Excel από το Word . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έγγραφο στο Word πατώντας το πλήκτρο " Control- N . " Κάντε κλικ στο "Εισαγωγή" μενού και στη συνέχεια κάντε κλικ στο εικονίδιο " Ο πίνακας " στον "Πίνακα " πάνελ. Κάντε κλικ σε οποιοδήποτε εικονίδιο κελιού για να δημιουργήσετε έναν πίνακα και στη συνέχεια να πληκτρολογήσετε δεδομένα σε τουλάχιστον αριστερό κελί του επάνω σειρά του . Αποθηκεύστε το έγγραφο ως " C : \\ WordTableData.doc " και , στη συνέχεια, κλείστε το Word . Αυτό το βήμα δημιουργεί δείγματα δεδομένων που θα εξαγάγει με το Excel . 2

Δημιουργήστε ένα νέο έγγραφο στο Excel και στη συνέχεια πατήστε "Alt - F11 " για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) . Ο IDE παρέχει τα μέσα για μη αυτόματη εισαγωγή των προγραμμάτων VBA , σε αντίθεση με την καταγραφή μακροεντολών μέσα από το Excel .
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " Ενότητα " για να δημιουργήσετε μια νέα ενότητα για την εισαγωγή κώδικα του προγράμματος . Πληκτρολογήστε τον ακόλουθο κώδικα οπουδήποτε μέσα στη νέα λειτουργική μονάδα :

Public Sub accessTable ( )

Σετ appWD = CreateObject ( " Word.Application " )

appWD.Documents.Open αρχείου : = " C : \\ WordTableData.doc " , _

ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False , πώληση

PasswordDocument : = " " , PasswordTemplate : = " " , Επαναφορά : = False , _

WritePasswordDocument : = " " , WritePasswordTemplate : = " " , Format: = _

wdOpenFormatAuto

x = appWD.ActiveDocument.Tables ( 1 ) . Γραμμές ( 1 ) . κύτταρα ( 1 )

MsgBox ( x )

appWD.Quit

End Sub

αυτό υπορουτίνα δημιουργεί ένα κρυφό παράδειγμα, του Microsoft Word , τότε το χρησιμοποιεί για να ανοίξετε ένα έγγραφο του Word και να πάρει την τιμή ενός κελιού σε πρώτο πίνακα του εγγράφου .
Η 4

Κάντε κλικ στο " Αναφορές" σημείο του IDE είναι κάτω από το μενού "Εργαλεία" και συνέχεια, μετακινηθείτε προς τα κάτω στη λίστα των αντικειμένων , μέχρι να δείτε " Βιβλιοθήκη αντικειμένων του Microsoft Word. " Τοποθετήστε έναν έλεγχο στο πλαίσιο στα αριστερά αυτού του στοιχείου και , στη συνέχεια, κλείστε το παράθυρο διαλόγου " Αναφορές ". Για να εκτελέσετε , τον κωδικό σας θα πρέπει να συνδεθεί με εικονικά αντικείμενα του Word ( για παράδειγμα , πίνακες ) . Η "Αναφορές" παράθυρο διαλόγου σας επιτρέπει να δημιουργήσετε το σύνδεσμο .
5

Κάντε κλικ οπουδήποτε μέσα στο " accessTable " υπορουτίνα που γράψατε στο βήμα 3 και , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε την υπορουτίνα . Μετά από μια σύντομη παύση , το Excel θα εμφανίσει ένα παράθυρο διαλόγου με τα δεδομένα που αναφέρονται στον πίνακα του εγγράφου του Word στο Βήμα 1 .
Η

6 Πληκτρολογήστε τον ακόλουθο νέο κώδικα μετά την ανακοίνωση « Public Sub " στο " accessTable " υπορουτίνα :

αμυδρό someRow , someColumn

someRow = inputbox ( " . Εισάγετε τη σειρά που θέλετε να τραβάτε τα δεδομένα από το " )

someColumn = inputbox ( " Εισάγετε τη στήλη που θέλετε να τραβήξετε δεδομένα από ". )

οι νέες δηλώσεις , και το ένα στο επόμενο βήμα , σας επιτρέπουν να επιλέξετε το οποίο κελί του πίνακα για την εξαγωγή δεδομένων από .
Η 7

Αντικαταστήστε τη δήλωση που αρχίζει με το " x = appWD " με αυτή τη δήλωση : . .

x = appWD.ActiveDocument.Tables ( 1 ) Σειρές ( someRow ) κύτταρα ( someColumn )
Η 8

Εκτελέστε την υπορουτίνα όπως κάνατε στο Βήμα 5 . Απαντήστε για τη γραμμή και τη στήλη . Αναθεωρημένο πρόγραμμα σας θα εξάγει τα δεδομένα του πίνακα από το κελί που έχετε επιλέξει και να το εμφανίσετε σε ένα παράθυρο διαλόγου .
Η
εικόνων