Όλες οι εφαρμογές γραφείου από τη Microsoft υποστηρίζουν αυτοματοποίηση. Μπορούν να εκτελεστούν ως διακομιστές COM και να χρησιμοποιηθούν από ενσωματωμένα έγγραφα ή εξωτερικά σενάρια. Έτσι, μπορείτε να γράψετε δεδομένα σε ένα έγγραφο του Excel από ένα σενάριο vba.
Απαραίτητη
- - εγκατεστημένη εφαρμογή Microsoft Excel.
- - Επεξεργαστής Visual Basic / πρόγραμμα επεξεργασίας κειμένου.
Οδηγίες
Βήμα 1
Δημιουργήστε ένα κοντέινερ για να φιλοξενήσετε τον κωδικό vba. Εάν το σενάριο πρόκειται να ενσωματωθεί σε ένα έγγραφο, ανεβάστε το κατάλληλο αρχείο στο Microsoft Excel. Ανοίξτε το πρόγραμμα επεξεργασίας της Visual Basic πατώντας Alt + F11. Εάν είναι απαραίτητο, δημιουργήστε μια νέα ενότητα (στοιχείο ενότητας στο μενού Εισαγωγή). Ανοίξτε μία από τις ενότητες ή τις φόρμες. Δημιουργήστε ένα πρόγραμμα χειρισμού για τον έλεγχο φόρμας ή απλώς προσθέστε μια διαδικασία σε μια ενότητα. Για παράδειγμα:
Υπο δοκιμή ()
Τέλος Υποτ
Εάν αναπτύσσετε ένα αυτόνομο σενάριο (δηλαδή, θα εκτελείται κάτω από το Windows Script Host), τότε απλώς δημιουργήστε ένα αρχείο με την επέκταση vbs σε ένα πρόγραμμα επεξεργασίας κειμένου.
Βήμα 2
Στο σενάριο που είναι ενσωματωμένο στο έγγραφο, προσθέστε μεταβλητές δηλώσεις στην αρχή της διαδικασίας:
Dim oWorkbook As Excel. Workbook
Dim oSheet As Excel. Φύλλο εργασίας
Το πρώτο είναι για την αποθήκευση μιας αναφοράς σε ένα αντικείμενο βιβλίου εργασίας του Excel και το δεύτερο για ένα φύλλο.
Βήμα 3
Αρχικοποιήστε μεταβλητές με αναφορές αντικειμένων. Στο σενάριο vbs, δημιουργήστε ένα αντικείμενο εφαρμογής Excel (θα ξεκινήσει το Excel ως διακομιστής COM):
Ορίστε oApplication = CreateObject ("Excel. Application").
Στο σενάριο που είναι ενσωματωμένο στο έγγραφο, θα χρησιμοποιηθεί το καθολικό αντικείμενο εφαρμογής αντί για τη μεταβλητή oApplication, η οποία αναφέρεται στο τρέχον αντικείμενο εφαρμογής. Επιλέξτε ένα υπάρχον ή ανοίξτε ένα νέο βιβλίο εργασίας του Excel. Για παράδειγμα:
Ορισμός oWorkbook = Application. Workbooks (1)
Ορισμός oWorkbook = Application. Workbooks ("Book1")
Ορισμός oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevan / tmp / test.xls")
Λάβετε έναν σύνδεσμο προς το επιθυμητό φύλλο του βιβλίου:
Ορισμός oSheet = oApplication. Sheets ("Sheet1")
Βήμα 4
Γράψτε δεδομένα στο Excel από το σενάριο vba. Χρησιμοποιήστε τη συλλογή κελιών, η οποία είναι μια ιδιότητα του αντικειμένου φύλλου βιβλίου εργασίας που αναφέρεται στο προηγούμενο βήμα, στη μεταβλητή oSheet. Ένα παράδειγμα γραφής μιας συμβολοσειράς σε ένα κελί μπορεί να μοιάζει με αυτό:
oSheet. Cells (1, 1) = "Η συμβολοσειρά θα γραφτεί στο κελί A1"
Βήμα 5
Στο σενάριο vbs, προσθέστε τον κωδικό για να αποθηκεύσετε τα δεδομένα και τερματίστε την εφαρμογή Excel:
oWorkbook. Save
oApplication. Quit
Βήμα 6
Αποθηκεύστε και εκτελέστε το σενάριο. Στον Επεξεργαστή Visual Basic, πατήστε Ctrl + S και στη συνέχεια τοποθετήστε τον κέρσορα στο σώμα της διαδικασίας και πατήστε F5. Αποθηκεύστε το σενάριο vbs στο δίσκο και, στη συνέχεια, εκτελέστε το ως κανονικό αρχείο.
