ich will Daten aus Access in Excel importieren
mein code sieht so aus:
Sub ImportAccess()
Dim objConnection As ADODB.Connection
Dim objRecSet As ADODB.Recordset
'Verbindung
Set objConnection = New ADODB.Connection
Set objRecSet = New ADODB.Recordset
'Datenbank öffnen
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;"
'Daten nach Excel übertragen
With objRecSet
objRecSet.Open "gesamt", objConnection, adOpenKeyset, adLockOptimistic
Data.[A1].CopyFromRecordset objRecSet
End With
'Verbindung schließen
objRecSet.Close
objConnection.Close
'Verweise freigeben
Set objRecSet = Nothing
Set objConnection = Nothing
MsgBox "Übertragung beendet"
End Sub
Bekomme aber "Laufzeitfehler 424: Objekt erforderlich"