Uvozite podatke iz programa Access v Excel (ADO) z uporabo VBA v programu Microsoft Excel

S spodnjim postopkom lahko uvozite podatke iz Accessove tabele na delovni list.

Pod ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Primer: ADOImportFromAccessTable "C: \ Ime mape \ DataBaseName.mdb", _ "Ime_tabele", Obseg ("C1") Naslov cn As Kot ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells (1, 1) 'odprite bazo podatkov Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _ 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 ,, imena polj 'TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Ime' Next 'TargetRange.Offset (1, 0) .CopyFromRecordset rs' Podatki nabora zapisov se končajo z rs.Close Set rs = Nothing cn.Close Set cn = Nič Končaj Sub

Primeri makrov predpostavljajo, da je vaš projekt VBA dodal sklic na knjižnico objektov ADO.
To lahko storite znotraj VBE tako, da izberete meni Orodja, Reference in izberete Microsoft
Knjižnica predmetov ActiveX Data Objects x.x Object.
Uporabite ADO, če lahko izbirate med ADO in DAO za uvoz ali izvoz podatkov.