Importējiet datus no piekļuves Excel (ADO), izmantojot Microsoft Excel VBA

Veicot tālāk norādīto procedūru, jūs varat importēt datus no piekļuves tabulas darblapā.

Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Piemērs: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn Kā ADODB.Conne Kā ADODB.Recordset, intColIndex kā vesels skaitlis Set TargetRange = TargetRange.Cells (1, 1) 'atver datu bāzi Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Datu avots =" & _ DBFullName & ";" Set rs = New ADODB.Recordset Ar rs 'atveriet ierakstu kopu. Atvērt TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable' visi ieraksti '. Atveriet "SELECT * FROM" & TableName & _ "WHERE [FieldName] =' MyCriteria '", cn ,,, lauku nosaukumi 'TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Nosaukums' Next 'TargetRange.Offset (1, 0). CopyFromRecordset rs' ierakstu kopas dati Beidzas ar rs.Close Set rs = Nothing cn. Aizvērt kopu cn = Nekas Beigu apakš

Makro piemēros tiek pieņemts, ka jūsu VBA projekts ir pievienojis atsauci uz ADO objektu bibliotēku.
To var izdarīt no VBE, izvēloties izvēlni Rīki, Atsauces un atlasot Microsoft
ActiveX datu objekti x.x objektu bibliotēka.
Izmantojiet ADO, ja datu importēšanai vai eksportēšanai varat izvēlēties starp ADO un DAO.