Με την παρακάτω διαδικασία μπορείτε να εισαγάγετε δεδομένα από έναν πίνακα Access σε ένα φύλλο εργασίας.
Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Παράδειγμα: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn As ADODB.Con Ως ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells (1, 1) 'ανοίξτε τη βάση δεδομένων Σετ cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Πηγή δεδομένων =" & _ DBFullName & ";" Set rs = New ADODB.Recordset With rs 'open the recordset .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable "all records". Open "SELECT * FROM" & TableName & _ "WHERE [FieldName] =' MyCriteria '", cn,,, adCmdText 'φίλτρο καταγράφει RS2WS rs, TargetRange' γράφει δεδομένα από το σύνολο εγγραφών στο φύλλο εργασίας '' προαιρετική προσέγγιση για Excel 2000 ή νεότερη έκδοση (το RS2WS δεν είναι απαραίτητο) 'Για intColIndex = 0 Προς rs.Fields.Count - 1' τα ονόματα πεδίων 'TargetRange.Offset (0, intColIndex). Value = rs.Fields (intColIndex). Όνομα' Επόμενο 'TargetRange.Offset (1, 0). CopyFromRecordset rs' τα δεδομένα εγγραφής τελειώνουν με rs. Κλείσιμο συνόλου rs = Τίποτα cn. Κλείσιμο Σετ cn = Τίποτα Τέλος Υπο
Τα παραδείγματα μακροεντολών υποθέτουν ότι το έργο VBA σας έχει προσθέσει μια αναφορά στη βιβλιοθήκη αντικειμένων ADO.
Μπορείτε να το κάνετε αυτό μέσα από το VBE επιλέγοντας το μενού Εργαλεία, Αναφορές και επιλέγοντας τη Microsoft
Βιβλιοθήκη αντικειμένων ActiveX Data Objects x.x.
Χρησιμοποιήστε το ADO εάν μπορείτε να επιλέξετε μεταξύ ADO και DAO για εισαγωγή ή εξαγωγή δεδομένων.