VBA Profi Problem
07.10.2005 08:36:24
kerstin
ich nehme eine volle access DB habe nachfolgenden code in die VBA umgebung von excel geschrieben und den haken bei microsoft active x data objekts 2.8 library gesetzt!
und nun erhalte ich einen unbekanten laufzeitfehler!!!!
kann mir jem. sagen was ich falsch mache? 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\db1.mdb"
'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* FROM Tabelle1" '
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