Πώς να αποκτήσετε πρόσβαση πίνακες του Word Χρήση του Excel VBA

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

Ξεκινήστε το Microsoft Office Word , επιλέξτε από το μενού "Εισαγωγή" και κάντε κλικ στο " τραπέζι" . Επιλέξτε έναν πίνακα με δύο στήλες και δύο γραμμές .

Κάντε κλικ στο κελί στο πάνω αριστερά και πληκτρολογήστε " Στήλη1 " , πατήστε το πλήκτρο " Tab " για να προχωρήσουμε στη δεύτερη στήλη και πληκτρολογήστε " στήλη2 " .

Κάντε κλικ στο πρώτο κελί στην δεύτερη σειρά και πληκτρολογήστε " Datq1 " . Πατήστε το πλήκτρο " Tab " για να προχωρήσουμε στη δεύτερη στήλη και πληκτρολογήστε " χαρακτήρα2 "

Αποθηκεύστε το έγγραφο σε " C : \\ " . " . MyTableDoc.doc ", όπως 2

Ξεκινήστε τη Microsoft Office Excel , επιλέξτε την καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " Ενότητα ".

Επιλέξτε από το μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ... " . Επιλέξτε το πλαίσιο δίπλα στο " Microsoft Word βιβλιοθήκη αντικειμένων . " Κάντε κλικ στο " OK".
Εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " getWordTableData " υπορουτίνα :

Private Sub getWordTableData ( )

Πατήστε "Enter . "
Η 4

Πληκτρολογήστε το παρακάτω για να δημιουργήσετε νέες μεταβλητές :

Dim clmnCnt As Integer

Dim rowCnt As Integer
5

Τύπος τα ακόλουθα για να δημιουργήσετε το Word αντικείμενα :

Set wrdApp = CreateObject ( " Word.Application " )

Set wrdDoc = wrdApp.Documents.Open ( " C : \\ myTableDoc.doc " )

6

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω του πίνακα σε " myTableDoc.doc " και να εμφανίσετε τα περιεχόμενά του μέσα από ένα πλαίσιο μηνύματος :

για clmnCnt = 1 Για να wrdDoc.Tables ( 1 ) Στήλες . . Count

Για rowCnt = 1 Για να wrdDoc.Tables ( 1 ) . Rows.Count

MsgBox wrdDoc.Tables ( 1 ) . τηλέφωνα ( rowCnt , clmnCnt ) . Range.Text

Επόμενο rowCnt

Επόμενο clmnCnt
Η 7

Πληκτρολογήστε την ακόλουθη μεταβλητή για την απελευθέρωση σας από τη μνήμη :

Set wrdApp = Τίποτα

Set wrdDoc = Τίποτα

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας .
Η
εικόνων