Hallo zusammen,

bin schon ziemlich verzweifelt. Ich versuche, Daten zu einer Excel Datei hinzuzufügen, bekomme aber immer einen Laufzeitfehler. Die Datei wird gefunden, die Daten aber nicht eingefügt. Das ist mein code. Weiß jemand, was hier falsch sein könnte?

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\...\....xls;" & _
"Extended Properties=""Excel 8.0;HDR:=YES;"";"
.CursorLocation = adUseClient
.Open
End With

With rs
.ActiveConnection = cnn
.Source = "[Liste$]"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Options:=adCmdTable
End With

rs.AddNew
rs!Name = "..."
rs.Update (LAUFZEITFEHLER)
End Sub

Danke und Gruß
Elli

Steht da wirklich rs!Name? Name ist in Access ein reservierter Ausdruck.

Nein, sorry, das ist beim zusammenkürzen des codes passiert. Es heißt NName!

Gruß, Elli