Πώς να γράψετε μια μακροεντολή στο Word που διαβάζει δεδομένα από το Excel

Γνωρίζοντας πώς να γράφουν ένα μακροεντολών του Word που διαβάζει δεδομένα από το Excel σας εισάγει σε μια προσέγγιση για τον έλεγχο μιας εφαρμογής του Office με το άλλο . Microsoft αποκαλεί αυτό το είδος του ελέγχου " αυτοματισμού ". Αυτοματοποίηση αφήνει κάποιο από τα προγράμματα του Office , όπως το Word , Excel , Access και PowerPoint , να καταρτίσει ένα link, στη συνέχεια, χρησιμοποιήστε τα εικονικά αντικείμενα μιας άλλης εφαρμογής του Office . Για να γράψετε μια μακροεντολή Word που διαβάζει τα δεδομένα από το Excel , χρησιμοποιήστε το " CreateObject " δήλωση της Visual Basic για να δημιουργήσετε μια σύνδεση με το Excel . Στη συνέχεια, χρησιμοποιήστε αυτό το σύνδεσμο για να διαβάσετε τα δεδομένα από το " τηλέφωνο " αντικείμενο του Excel . Οδηγίες
Η

1 Ανοίξτε το Excel , στη συνέχεια, πληκτρολογήστε οποιαδήποτε τιμή στο πρώτο κελί της πρώτης φύλλο . Κάντε κλικ στο κουμπί " Αποθήκευση " εντολή του κουμπιού Υπηρεσίας , στη συνέχεια, πληκτρολογήστε "c : \\ ReadFromExcel.xlsx " για το όνομα του αρχείου . Κάντε κλικ στο κουμπί " Αποθήκευση" για να αποθηκεύσετε το βιβλίο εργασίας , στη συνέχεια, κλείστε το Excel . 2

Κάντε κλικ στο κουμπί Office Word, στη συνέχεια, κάντε κλικ στο κουμπί " Επιλογές" . Κάντε κλικ στο " Developer " κουτάκι για να εμφανιστεί η καρτέλα "Προγραμματιστής " , η οποία κατέχει μακροεντολές του Word .
Εικόνων 3

Κάντε κλικ στο κουμπί της καρτέλας "Προγραμματιστής " του " Visual Basic" για να εισάγετε το Visual Basic ανάπτυξη περιβάλλον .
Η

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

Πληκτρολογήστε το ακόλουθο πρόγραμμα στο παράθυρο κώδικα . Αυτό το πρόγραμμα δημιουργεί μια σύνδεση με την εφαρμογή του Excel , στη συνέχεια, κλείστε το σύνδεσμο . Το πρόγραμμα δεν έχει ακόμα κάνει τίποτα με την καθιερωμένη σύνδεσμο . Θα χρησιμοποιήσει τώρα τη σύνδεση για να ανοίξετε το βιβλίο εργασίας του Excel που δημιουργήσατε στο βήμα 1 .

Public Sub ReadExcelData ( )

Dim pgmExcel Όπως Excel.Application

Set pgmExcel = CreateObject ( " Excel.Application " )

pgmExcel.Quit

End Sub
Η 6

Πληκτρολογήστε τις ακόλουθες νέες δηλώσεις μετά το "Set" δήλωση. Οι δηλώσεις αυτές ανοίγουν το βιβλίο εργασίας του Excel που δημιουργήσατε στο βήμα 1 , στη συνέχεια, κλείστε το βιβλίο εργασίας . Το αναθεωρημένο πρόγραμμα δεν έχει ακόμη διαβάσει πληροφορίες από το βιβλίο εργασίας . Η επόμενη δήλωση θα γράψετε θα διαβάσει τις πληροφορίες από το βιβλίο εργασίας

PgmExcel.Workbooks.Open "c : \\ ReadFromExcel.xlsx " .
Η 7

Πληκτρολογήστε τις ακόλουθες δηλώσεις μετά το " Ανοίξτε το " δήλωση. Αυτή η δήλωση χρησιμοποιεί το αντικείμενο pgmExcel να διαβάσετε την τιμή της πρώτης κελί στο βιβλίο εργασίας από το βήμα 1 . Η " MsgBox" δήλωση προβάλλει αυτήν την τιμή .

MsgBox pgmExcel.ActiveWorkbook.Sheets ( 1 ) . Cells ( 1 , 1 )
8

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