Tuo tietoja Accessista Exceliin (ADO) käyttämällä VBA: ta Microsoft Excelissä

Alla olevan menettelyn avulla voit tuoda tietoja Access -taulukosta laskentataulukkoon.

Sub ADOImportFromAccessTable (DBFullName As String, _ TableName As String, TargetRange As Range) 'Esimerkki: ADOImportFromAccessTable "C: \ FolderName \ DataBaseName.mdb", _ "TableName", Range ("C1") Dim cn ADODB.Conne ADODB.Recordsetina intColIndex kokonaislukuna Aseta TargetRange = TargetRange.Cells (1, 1) 'avaa tietokanta Set cn = New ADODB.Connection cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Tietolähde =" & _ DBFullName & ";" Aseta rs = Uusi ADODB.Recordset Kun rs 'avaa tietuejoukon .Avaa TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable' all records '. cn,,, adCmdText 'suodattaa tietueet RS2WS rs, TargetRange' kirjoittaa tietoja tietuejoukosta laskentataulukkoon '' valinnainen lähestymistapa Excel 2000 tai uudempi (RS2WS ei ole välttämätön) 'For intColIndex = 0 To rs.Fields.Count - 1' kenttien nimet 'TargetRange.Offset (0, intColIndex) .Arvo = rs.Fields (intColIndex) .Nimi' Seuraava 'TargetRange.Offset (1, 0). cn.Sulje joukko cn = Nothing End Sub

Makroesimerkit olettaa, että VBA -projektisi on lisännyt viittauksen ADO -objektikirjastoon.
Voit tehdä tämän VBE: stä valitsemalla valikon Työkalut, Viitteet ja Microsoft
ActiveX -tietoobjektit x.x -objektikirjasto.
Käytä ADO: ta, jos voit valita ADO: n tai DAO: n tietojen tuonnin tai viennin välillä.