Πώς να χρησιμοποιήσετε VBA για την εισαγωγή δεδομένων από το Excel στο Access

Μαθαίνοντας πώς να χρησιμοποιούν Visual Basic for Applications για την εισαγωγή δεδομένων στην Access μπορεί να κάνει την εφαρμογή της βάσης δεδομένων σας πιο δυναμική . Στην VBA , μπορείτε να χρησιμοποιήσετε ένα συνδυασμό των αντικειμένων για να ανοίξετε ένα υπάρχον βιβλίο εργασίας του Excel και να εισάγουν ορισμένα δεδομένα σε έναν πίνακα στην Access . Χρησιμοποιήστε τη βιβλιοθήκη αντικειμένων του Microsoft Excel σε VBA για να ανοίξετε το βιβλίο εργασίας . Το αντικείμενο εγγραφών χρησιμοποιείται για να ανοίξει έναν υπάρχοντα πίνακα στην Access και να αποθηκεύσετε δεδομένα από το Excel σε αυτό . Χρησιμοποιώντας VBA για την εισαγωγή δεδομένων μπορεί να μειώσει σημαντικά την ποσότητα του χρόνου που ξοδεύετε την εισαγωγή δεδομένων με μη αυτόματο τρόπο . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel και πληκτρολογήστε " data1 " στην Α2 , και « δεδομένων αυτών2 " στο Β2 . Πατήστε το πλήκτρο " Ctrl " και " S" για να ανοίξετε το "Save As " διαλόγου Παράθυρο και να αποθηκεύσετε το βιβλίο εργασίας σε " C : \\ Temp \\ " " . DataToImport.xlsx ", όπως Κάντε κλικ στο κουμπί "Αποθήκευση" και κοντά Excel . 2

την εφαρμογή Microsoft Office Access , κάντε κλικ στην επιλογή " Κενή βάση δεδομένων " και κάντε κλικ στο κουμπί " Δημιουργία " . Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το VB Παράθυρο του Επεξεργαστή . Κάντε κλικ στο "Εισαγωγή" μενού και στη συνέχεια κάντε κλικ στο κουμπί " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . Κάντε κλικ στο μενού "Εργαλεία" , κάντε κλικ στην επιλογή "Αναφορές " και επιλέξτε το πλαίσιο δίπλα στο " Microsoft Excel Object Library".
Εικόνων 3

Ξεκινήστε πληκτρολογώντας τον ακόλουθο κώδικα VBA να δημιουργήσουν νέα διαδικασία υπο :

Private Sub importExcelData ( )
Η 4

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

Dim xlApp Όπως Excel . Εφαρμογή

Dim xlBk Όπως Excel.Workbook

Dim xlSht Όπως Excel.Worksheet
5

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

Dim dbRst Όπως εγγραφών

Dim dbs Όπως Database

Dim SQLStr Όπως String
Η 6

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

Set dbs = CurrentDb

Set xlApp = Excel.Application

Set xlBk = xlApp.Workbooks.Open ( " C : \\ Temp \\ dataToImport.xlsx " )

Σετ xlSht = xlBk.Sheets ( 1 )
Η 7

Δημιουργήστε ένα νέο πίνακα με δύο στήλες στην Access για την εισαγωγή δεδομένων από το Excel . Πληκτρολογήστε τον ακόλουθο κώδικα VBA για να δημιουργήσετε τον πίνακα χρησιμοποιώντας το " DoCmd " αντικείμενο :

SQLStr = " CREATE TABLE excelData ( columnOne ΚΕΙΜΕΝΟ , columnTwo ΚΕΙΜΕΝΟ ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLStr )
8

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

Set dbRst = dbs.OpenRecordset ( " excelData " )

dbRst.AddNew
Η 9

Τύπος τα παρακάτω για να πάρει τιμές από το βιβλίο εργασίας του Excel , αποθηκεύστε τα στο τραπέζι σας και να ενημερώσετε την εγγραφή :

xlSht.Range ( " A2 " ) Επιλέξτε

dbRst.Fields ( 0 ) Value. . = xlSht.Range ( " A2 " ) . Value

xlSht.Range ( " B2 " ) . Επιλέξτε

dbRst.Fields ( 1 ) . Value = xlSht.Range ( " B2 " ) . Αξία

dbRst.Update
Η 10

End τη διαδικασία σας , πληκτρολογώντας τον ακόλουθο κώδικα VBA :

dbRst.Close

dbs.Close

xlBk.Close

End Sub
Η 11

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία . Τα δεδομένα στο βιβλίο εργασίας του Excel έχει μόλις εισαχθεί σε πίνακα της Access .
Η
εικόνων