Daten aus access in Excel importieren

Mardoc · 2009-03-15T16:25:35+00:00

hallo zusammen ich habe ein mittelschweres problem und hoffe das mir wer weiter helfen kann bei uns auf dem server liegt ein access datenbank mit den "spalten" Datum, Start, End da der gesammte datensatz viel zu umfangreich ist möchte ich nur die zeilen eines bestimmten monats in eine Excel tabelle übertragen Problem 1: Das datum wird mir immer mit urhzeit in die tabelle eingetragen (nein in der Datenbank steht nur das datum keine zeiten) wie kann ich das verhindern? Problem 2: wie kann ich nur *zeilen* z.b. vom monat mai auslesen? die daten stehen im format dd.mm.yyyy in der acces datenbank. hoffe es kann mir wer helfen gruß Christian

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

hab noch was hinzufügen
der makro rekorder hat mir das teil ausgespuckt... leider habe nicht viel ahnung von access bzw davon datenbanken via script anzusprechen


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

ich habe versucht die select anweisung zu verändern nur bekomme ich es einfach nicht hin
Gruß Christian

Daten aus access in Excel importieren

Forumthread: Daten aus access in Excel importieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial