Andmete importimine juurdepääsust Excelisse (ADO), kasutades Microsoft Excelis VBA -d

Alltoodud protseduuri abil saate andmeid Accessi tabelist töölehele importida.

Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Näide: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn As ADODB.Conne Nagu ADODB.Recordset, intColIndex täisarvuna Määra TargetRange = TargetRange.Cells (1, 1) 'avab andmebaasi Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Andmeallikas =" & _ DBFullName & ";" Set rs = New ADODB.Recordset Mis rs 'avab kirjete komplekti. Ava TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable' kõik kirjed '. Ava "SELECT * FROM" & TableName & _ "WHERE [FieldName] =' MyCriteria '", cn,,, adCmdText 'filter salvestab RS2WS rs, TargetRange' kirjutab andmeid kirjekomplektist töölehele '' valikuline lähenemine Excel 2000 või uuemale versioonile (RS2WS pole vajalik) 'jaoks intColIndex = 0 To rs.Fields.Count - 1' väljade nimed 'TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Nimi' Järgmine 'TargetRange.Offset (1, 0) .CopyFromRecordset rs' cn. Sule komplekt cn = Nothing End Sub

Makronäited eeldavad, et teie VBA projekt on lisanud viite ADO objektiteekile.
Seda saate teha VBE -s, valides menüü Tööriistad, Viited ja valides Microsoft
ActiveX andmeobjektid x.x objektide kogu.
Kasutage ADO -d, kui saate andmete importimiseks või eksportimiseks valida ADO ja DAO vahel.