Επιλέξτε "Αρχείο ", κάντε κλικ στο " Νέο " και επιλέξτε "Project ... " από το μενού για να εμφανιστεί το παράθυρο διαλόγου " New Project" . 2
Επιλέξτε το " Windows φόρμας " του έργου ως το είδος . Κάντε κλικ στο " OK " για να ξεκινήσει το έργο .
Εικόνων 3
Σύρετε ένα στοιχείο ελέγχου κουμπιού από την εργαλειοθήκη στη κενή φόρμα στο έργο σας . Το κουμπί περιλαμβάνεται σε αυτό το παράδειγμα για να παρέχει ένα πρόγραμμα χειρισμού συμβάντων για να επισυνάψετε τον κώδικα αυτοματοποίησης του Excel σε . Ο κωδικός που μπορεί να ενσωματωθεί σε μια ποικιλία από άλλα μέρη στο έργο σας .
Η
4 Επιλέξτε " Project" και κάντε κλικ στο " Add Reference ... " στο μενού για να εμφανιστεί το " Add Reference " παράθυρο διαλόγου .
5
Κάντε κλικ στην καρτέλα " COM " και μετακινηθείτε προς τα κάτω μέχρι να βρείτε το "Microsoft Excel 14 Object Library". Ο αριθμός έκδοσης ( XX) θα διαφέρει ανάλογα με την έκδοση του Microsoft Office είναι εγκατεστημένο στον υπολογιστή σας . Κάντε κλικ στο " OK" .
Η 6
Εισαγωγή δύο χώρους εργασίας στο πρόγραμμα για να εκθέσει τις τάξεις του Office . Πληκτρολογήστε τις δύο εισαγωγές δηλώσεις στο επάνω μέρος του παραθύρου κώδικα , πριν από οτιδήποτε άλλο :
Εισαγωγές Microsoft.Office.Interop
Εισαγωγές Microsoft.Office.Core
Η 7
κάντε διπλό κλικ στο κουμπί για να προσθέσετε ένα event-handler για το "κλικ" event του κουμπιού . Προσθέστε δύο δηλώσεις μεταβλητών μεταξύ του " Private Sub Button_Click " και " End Sub " δηλώσεις :
Dim objExcelApp Όπως Excel.Application
Dim objExcelWkBk Όπως Excel.Workbook
8
Προσθέστε τις οδηγίες για την υπόσταση του αντικειμένου Application και να εμφανίσει ένα νέο, κενό βιβλίο εργασίας :
objExcelApp = CreateObject ( " Excel.Application " )
objExcelApp.Visible = True
objExcelWkBk = objExcelApp.Workbooks.Add
Η
9 Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας . Κάντε κλικ στο κουμπί της φόρμας για να ενεργοποιήσετε το Excel .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα