Daten aus access in Excel importieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich mache dies in Access oft über diese Abfragen,
weil diese mir viel Vorarbeit abnehmen können.
Beispiel Sortieren oder Vorfilter, je nach Anwendungsfall.
Für dieses Beispiel wäre dies nicht unbedingt nötig gewesen,
man könnte auch direkt auf die Tabelle zugreifen.
z. Bsp. so

Sub TestBeispiel()
Dim meDB As Database, DBTab As Recordset
Dim vonDatum As Long, bisDatum As Long
Dim sPath As String
Dim A As Long

vonDatum = CDate("02.05.2009") 'von Datum 
bisDatum = CDate("03.5.2009") 'bis Datum 
A = 2 'erste Zelle 

'Zellen leer machen 
Range("A2", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 2)).ClearContents
sPath = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")

'öffne Datenbank 
Set meDB = OpenDatabase(sPath & "DB.mdb")
'öffne Recordset 
Set DBTab = meDB.OpenRecordset("SELECT * FROM Tabelle1")
'Filter Recordset 
DBTab.Filter = "Tabelle1.Datum >= " & vonDatum & " And Tabelle1.Datum <= " & bisDatum & ""
Set DBTab = DBTab.OpenRecordset

'Alle Daten lesen 
With DBTab
  Do While Not .EOF
   Cells(A, 1) = CDate(!Datum)
   Cells(A, 2) = CVar(!Wert)
   A = A + 1
  .MoveNext
  Loop
End With
DBTab.Close

Set DBTab = Nothing: Set meDB = Nothing
End Sub

Gruß Tino

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _ "ODBC;DSN=Microsoft Access-Datenbank;DBQ=C:\testdb\test.mdb;DefaultDir=C:" _ ), Array( _ "\testdb\;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _ )), Destination:=Range("E20")) .CommandText = Array( _ "SELECT test.Datum, dSpace.Beschreibung" & Chr(13) & "" & Chr(10) & "FROM test test" & _ Chr(13) & "" & Chr(10) & "WHERE (test.Datum like '%01%')" & Chr(13) & "" & Chr(10) & "ORDER BY test.Datum" _ ) .Name = "Abfrage von Microsoft Access-Datenbank_39" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With End Sub

Hallo Mardoc,
diese Zugriffs-Art auf Access-Datenbanken ist sehr netzwerklastig, da Access die Where-Klausel nicht auswertet, sondern alle Datensätze zurückschickt , und erst der Client (also Excel das Filtern übernimmt).
Eine Abfrage entgegennehmen und nur die ermittelten Datensätze zurückschicken, sowas können nur die SQL-Server-Programme.
Tinos Lösung sieht dagegen ganz vernünftig aus, muß aber noch mal testen, ob hier wirklich nur die gewünschten Ergebnisse Excel erreichen.
Ich mach es da wie folgt:
- in einem Formular die Wunschdatensätze (Bedingungen) abfragen
- daraus den SQL-Text für die Abfrage zusammenstoppeln
- per ADOX in einer Access-DB-Abfrage diesen SQL-Text schreiben
- per ADODB diese manupulierte Abfrage starten und die Ergebnisse in die Exceltabelle schreiben.
Zu dieser Methodik bin ich gekommen, als bei einem Kunden mit einem langsamen Netzwerk der von Dir aufgezeichnete Programm-Code einfach viel zu lange dauerte und der Anwender viele Abfragen dieser Art am Tag starten wollte.
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Daten aus access in Excel importieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus access in Excel importieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread