Uvezite podatke iz programa Access to Excel (ADO) pomoću VBA u programu Microsoft Excel

Anonim

Pomoću donjeg postupka možete uvesti podatke iz Accessove tablice na radni list.

Pod ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Primjer: ADOImportFromAccessTable "C: \ Ime mape \ DataBaseName.mdb", _ "Naziv tablice", Opseg ("C1") B.C. Kao ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells (1, 1) 'otvorite bazu podataka Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _ DBFullName & ";" Postavite rs = Novi ADODB.Recordset S rs 'otvorite skup zapisa. Otvorite TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable' svi zapisi '. Otvorite "SELECT * FROM" & TableName & _ "WHERE [FieldName] =' MyCriteria '", cn,,, adCmdText 'filtrira zapise RS2WS rs, TargetRange' zapisuje podatke iz skupa zapisa na radni list '' izborni pristup za Excel 2000 ili noviji (RS2WS nije potreban) 'Za intColIndex = 0 Za rs.Fields.Count - 1' nazivi polja 'TargetRange.Offset (0, intColIndex) .Value = rs.Fields (intColIndex) .Naziv' Next 'TargetRange.Offset (1, 0) .CopyFromRecordset rs' podaci skupa podataka završavaju s rs.Close Set rs = Ništa cn.Zatvori skup cn = Ništa Kraj Sub

Primjeri makroa pretpostavljaju da je vaš VBA projekt dodao referencu na biblioteku objekata ADO.
To možete učiniti iz VBE -a odabirom izbornika Alati, Reference i odabirom Microsofta
ActiveX Data Objects x.x Knjižnica objekata.
Upotrijebite ADO ako možete birati između ADO -a i DAO -a za uvoz ili izvoz podataka.