Pomocí níže uvedeného postupu můžete importovat data z tabulky aplikace Access do listu.
Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Příklad: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn As ADODB.Connection, rs Jako ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells (1, 1) 'otevřete databázi Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _ DBFullName & ";" Nastavit rs = New ADODB.Recordset Pomocí rs 'otevřete sadu záznamů. cn,,, adCmdText 'filtrovat záznamy RS2WS rs, TargetRange' zapisovat data ze sady záznamů do listu '' volitelný přístup pro Excel 2000 nebo novější (RS2WS není nutné) 'Pro intColIndex = 0 Do rs.Fields.Count - 1' názvy polí 'TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Name' Next 'TargetRange.Offset (1, 0) .CopyFromRecordset rs' sada záznamů End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub
Příklady maker předpokládají, že váš projekt VBA přidal odkaz na knihovnu objektů ADO.
Můžete to udělat z VBE výběrem nabídky Nástroje, Reference a výběrem Microsoft
Knihovna objektů ActiveX Data Objects x.x.
Použijte ADO, pokud si můžete vybrat mezi ADO a DAO pro import nebo export dat.