PROFI PROBLEM access nach excel
06.10.2005 14:46:03
kerstin
ich nehme eine volle access DB habe nachfolgenden code in die VBA umgebung von excel geschrieben db pfad und db name geändert und den haken bei microsoft active x data objekts 2.8 library gesetzt!
und? es tun sich nichts!!!! meine excel DB bleibt leer! was mach ich denn falsch? kann mir bitte jem. helfen? hier der code:
Sub DBZugriff()
Dim cn As Connection
Dim rs As Recordset
Dim SQLString As String
Dim xx As Worksheet
Dim i As Integer, j As Integer
Set xx = Worksheets("Tabelle1")
Const DBPfad = "D:\Meinordner\MeineDatenbank.mdb" '<-- Hier den DBPfad und DBname !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'Die datenbank öffnen
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0" 'für Access 2000 und höher
.ConnectionString = "Data Source=" & DBPfad
.Open
End With
'Definieren was geholt werden soll - hier alles
SQLString = "SELECT MeineDBTab.* FROM MeineDBTab" '<-- Hier die Datenbanktabelle !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Set rs = New ADODB.Recordset
rs.Open SQLString, cn, adOpenDynamic, adLockReadOnly
'Die Feldnamen der Datenbanktabelle in die erste Zeile der Exceltabelle "Tabelle1" schreiben
For j = 0 To rs.Fields.Count - 1
xx.Cells(1, j + 1) = rs.Fields.Item(j).Name
Next
'Jetzt alle Sätze holen und in die Exceltabelle schreiben
i = 1
rs.MoveFirst
Do While rs.EOF = False
i = i + 1
For j = 0 To rs.Fields.Count - 1
If IsNull(rs.Fields.Item(j).Value) = False Then
xx.Cells(i, j + 1) = rs.Fields.Item(j).Value
End If
Next
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub