Πώς να Program Excel VBA Από την Access

Η κατανόηση του πώς να προγραμματίσετε Excel VBA από την Access σας επιτρέπει να γράφετε προγράμματα που ανταλλάσσουν δεδομένα μεταξύ των δύο εφαρμογών . Κάθε αίτηση διαθέτει το άλλο δεν το κάνει , αλλά με τη χρήση αυτό που η Microsoft αποκαλεί " Αυτοματισμού ", μπορείτε να δώσετε σε κάθε πρόγραμμα τα εργαλεία VBA και εικονικά αντικείμενα του άλλου . Βασικά στοιχεία της αυτοματοποίησης περιλαμβάνουν τα εικονικά αντικείμενα VBA της αίτησης , όπως το Excel " Τετράδια " συλλογή και την " ActiveCell " ιδιοκτησίας. Η δήλωση VBA που κάνει τα αντικείμενα του Excel είναι διαθέσιμο στην Access είναι " CreateObject . " Οδηγίες Αποστείλετε δεδομένων στο Excel
Η 1

Ανοικτής Πρόσβασης , στη συνέχεια, κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού Visual Basic . 2

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

Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο . Αυτό το πρόγραμμα δημιουργεί ένα βιβλίο εργασίας του Excel , στη συνέχεια, εισάγει κείμενο σε ένα από τα κελιά του βιβλίου εργασίας .

Δημόσια MadeByAccess Sub ( )

Dim aplExcel Όπως Excel.Application

Set aplExcel = CreateObject ( " Excel.Application " )

aplExcel.Workbooks.Add

aplExcel.ActiveCell = " Γεια σας από την Access . "

aplExcel.ActiveWorkbook.SaveAs ( "c : \\ MadeByAccess.xlsx " )

aplExcel.Quit

End Sub
Η

4 Κάντε κλικ στο κουμπί του " " μενού " Run Run "εντολή για να εκτελέσει το πρόγραμμα , στη συνέχεια, χρησιμοποιήστε το Windows Explorer για να περιηγηθείτε στο φάκελο " C : \\. "
5

κάντε διπλό κλικ στο αρχείο " MadeByAccess.xlsx " για να φορτώσετε το αρχείο στο Excel . Παρατηρήστε το πρώτο κελί στο πρώτο φύλλο εργασίας εμφανίζει το κείμενο από το " Γεια σας από την Access ", η οποία εμφανίστηκε στο πρόγραμμά σας .
Εικόνων Διαβάστε μια τιμή από το Excel
Η 6

Ανοίξτε το Excel , στη συνέχεια, πληκτρολογήστε το κείμενο στο κελί " A1" του πρώτου φύλλου εργασίας . Πιέστε το πλήκτρο " Control" και "S" ταυτόχρονα , στη συνέχεια, πληκτρολογήστε " C : \\ ForAccess.xlsx " στο " Όνομα " κουτί κειμένου . Κάντε κλικ στο κουμπί " Αποθήκευση " και στη συνέχεια πατήστε το πλήκτρο " Control" και " F4 " ταυτόχρονα για να κλείσετε το Excel .
Η 7

Ανοικτής Πρόσβασης , στη συνέχεια, κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να εισάγετε τον προγραμματισμό της Visual Basic περιβάλλον .
8

Κάντε κλικ στο "Εργαλεία" " αναφοράς " εντολή μενού , στη συνέχεια, κάντε κλικ στο πλαίσιο ελέγχου του στοιχείου "Microsoft Excel " για να επιτρέψει το πρόγραμμά σας για τον έλεγχο του Excel .
Η 9

Κάντε κλικ στο "Εισαγωγή " " ενότητα " εντολή μενού , στη συνέχεια, επικολλήστε το ακόλουθο πρόγραμμα στο νέο παράθυρο που εμφανίζεται . Αυτό το πρόγραμμα ανοίγει το βιβλίο εργασίας του Excel που δημιουργήσατε στο βήμα 1 και διαβάζει κελί " A1 " από αυτό το βιβλίο εργασίας .

Public Sub ForAccess ( )

Dim aplExcel Όπως Excel.Application

Ορισμός aplExcel = CreateObject ( " Excel.Application " )

aplExcel.Workbooks.Open ( "c : \\ ForAccess.xlsx " )

MsgBox aplExcel.ActiveCell

aplExcel . ActiveWorkbook.Close

aplExcel.Quit

End Sub

10

Κάντε κλικ στο μενού " Run " του " Run " εντολή για να εκτελέσετε το πρόγραμμα . Η Access θα εμφανίσει ένα πλαίσιο μηνύματος εμφανίζει το κείμενο που πληκτρολογήσατε στο κελί του φύλλου εργασίας του Excel σε ένα βήμα .
Η
εικόνων