Obsah
Nasledujúcim postupom môžete importovať údaje z tabuľky programu Access do pracovného hárka.
Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Príklad: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn As ADODB.Connection, rs Ako ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells (1, 1) 'otvorí databázu Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Source Data =" & _ DBFullName & ";" Nastaviť rs = New ADODB.Recordset Pomocou rs 'otvorte sadu záznamov. Otvorte TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable' všetky záznamy '. Otvorte "VYBRAŤ * Z" & TableName & _ "WHERE [FieldName] =' MyCriteria '", cn,,, adCmdText 'filtračné záznamy RS2WS rs, TargetRange' zapisujú údaje zo sady záznamov do pracovného hárka '' voliteľný prístup pre Excel 2000 alebo novší (RS2WS nie je potrebné) 'pre intColIndex = 0 až rs.Fields.Count - 1' názvy polí „TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Názov„ Next “TargetRange.Offset (1, 0) .CopyFromRecordset rs 'údaje zo súboru záznamov Koniec s rs.Close Set rs = Nič cn.Close Set cn = Nothing End Sub
Príklady makier predpokladajú, že váš projekt VBA pridal odkaz na knižnicu objektov ADO.
Môžete to urobiť z VBE tak, že vyberiete ponuku Nástroje, Referencie a vyberiete položku Microsoft
Knižnica objektov ActiveX Data Objects x.x.
Použite ADO, ak si môžete vybrať medzi ADO a DAO na import alebo export údajov.
