Πώς να Τοποθετήστε ένα ρεκόρ στη βάση δεδομένων VBA

VBA είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft για χρήση μέσα σε μια σειρά προϊόντων της Microsoft , συμπεριλαμβανομένου του Microsoft Office . Οι προγραμματιστές μπορούν να δημιουργήσουν βάσεις δεδομένων σε ένα πρόγραμμα , όπως η Access , και στη συνέχεια εισαγωγή δεδομένων στη βάση δεδομένων από μια άλλη εφαρμογή , όπως το Excel . Πρόσβαση σε μια βάση δεδομένων για να εισαγάγετε ένα αρχείο σε αυτό από VBA απαιτεί μια σύνδεση με τη βάση δεδομένων στον κωδικό VBA σας? Ίδρυση και εισαγωγή εγγραφών σε μια βάση δεδομένων στην VBA είναι αρκετά εύκολο για έναν αρχάριο προγραμματιστή να επιτευχθεί σε λίγα βήματα . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Αυτό θα ανοίξει το περιβάλλον προγραμματισμού VBA .
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή" και " ενότητα ". Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού
Η 4

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τις παρακάτω subprocedures στην μονάδα κώδικα : .

Sub ADOFromExcelToAccess ( )

«εξαγωγές δεδομένα από το ενεργό φύλλο εργασίας σε έναν πίνακα σε μια βάση δεδομένων της Access

« η διαδικασία αυτή πρέπει να τροποποιηθεί πριν από τη χρήση

Dim cn Όπως ADODB.Connection , rs Όπως ADODB.Recordset , r Όπως Long

« σύνδεση με τη βάση δεδομένων της Access

Set cn = Νέα ADODB.Connection

cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ? " & _

"Πηγή δεδομένων = C : \\ Όνομα_φακέλου \\ DataBaseName.mdb ? "

' ανοίξει ένα σύνολο εγγραφών

Set rs = Νέα ADODB.Recordset

rs.Open " TableName » , cn , adOpenKeyset , adLockOptimistic , adCmdTable

« όλα τα αρχεία σε έναν πίνακα

r = 3 ' η σειρά εκκίνησης στο φύλλο εργασίας

κάνετε Ενώ Len ( Range ( " A " & r ) . Formula) > 0

' επανάληψη μέχρι πρώτο κενό κελί στη στήλη A

Με rs

. AddNew » δημιουργήσετε μια νέα εγγραφή

' προσθέσετε τιμές σε κάθε πεδίο της εγγραφής

. πεδία ( " FieldName1 " ) = Range ( "A" & r ) . Value

. πεδία ( " FieldName2 " ) = Range ( " B " & r ) . Value

. πεδία ( " FieldNameN " ) = Range ( " C " & r ) . Αξία

' προσθέσετε περισσότερα πεδία , αν είναι απαραίτητο ...

Ενημέρωση » καταστήματα της νέο ρεκόρ

End With

r = r + 1 ' επόμενη σειρά

Loop

rs.Close .

Set rs = Τίποτα

cn.Close

Set cn = Τίποτα

End Sub

το πρότυπο κώδικα δημιουργεί μια σύνδεση με μια βάση δεδομένων Access VBA και εισάγει διάφορα αρχεία μέσα σε αυτό . Σιγουρευτείτε για να αντικαταστήσει το όνομα του φακέλου και το όνομα της βάσης δεδομένων με την πραγματική βάση δεδομένων σας και το όνομα του φακέλου για να δουλέψει αυτό .
Η
εικόνων