Importuj dane z programu Access do Excela (DAO) za pomocą VBA w programie Microsoft Excel

CopyFromRecordset to prawdopodobnie najłatwiejsza metoda pobierania danych z tabeli programu Access do arkusza programu Excel.

Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) ' Przykład: DAOCopyFromRecordSet "C:\FolderName\DataBaseName.mdb", _ "TableName", "FieldName", Range("C1") Dim db As Database, rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records 'Set rs = db. OpenRecordset("SELECT * FROM " & TableName & _ " WHERE " & FieldName & _ " = 'MyCriteria'", dbReadOnly) ' filter records ' wpisz nazwy pól For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset( 0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' zapisz zestaw rekordów TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nic db.Close Set db = Nic End Sub

Jeśli chcesz mieć większą kontrolę nad importem danych, możesz dostosować poniższe makro:

Sub DAOFromAccessToExcel(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) ' Przykład: DAOFromAccessToExcel "C:\FolderName\DataBaseName.mdb", _ "TableName", "FieldName", Range("B1") Dim db As Database, rs As Recordset Dim lngRowIndex As Long Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records 'Set rs = DB. OpenRecordset("SELECT * FROM " & _ TableName & " WHERE " & FieldName & _ " = 'MyCriteria'", dbReadOnly) ' filter records lngRowIndex = 0 With rs If Not .BOF Then .MoveFirst While Not .EOF TargetRange.Offset( lngRowIndex, 0).Formula = .Fields(FieldName) .MoveNext lngRowIndex = lngRowIndex + 1 Wend End With Set rs = Nic db.Close Set db = Nic End Sub

W przykładach makr założono, że projekt VBA dodał odwołanie do biblioteki obiektów DAO.
Możesz to zrobić z poziomu VBE, wybierając menu Narzędzia, Referencje i wybierając bibliotekę obiektów Microsoft DAO x.xx.
Użyj ADO, jeśli możesz wybrać między ADO i DAO do importu lub eksportu danych.