AW: Daten aus access in Excel importieren
15.03.2009 18:37:11
Tino
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