Hallo!
Habe ein kleines Problem. Hoffentlich kann mir jemand weiterhelfen.
Ich möchte eine Verbindung von Excel zu einer Access DB erstellen.
Dazu habe ich folgenden Code eingegeben (über Extras/Verweise wurden die richtigen Libraries eingebunden):
Sub DatenübernahmeNachAccess()
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
ADOC.Open „Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\VBA\Datenbank\Datenbank.mdb;“
DBS.Open „Blatt“, ADOC, adOpenKeyset, adLockOptimistic
Sheets(„Blatt“).Activate
Range(„A2“).Select
On Error GoTo Fehler
Do Until ActiveCell.Value = „“
DBS.AddNew
DBS!Name = ActiveCell.Value
DBS!Vorname = ActiveCell.Offset(0, 1).Value
DBS.Update
ActiveCell.Offset(1, 0).Select
Loop
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
Exit Sub
Fehler:
MsgBox („Es trat ein Fehler auf!“)
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
End Sub
Nun bringt er mir bei Ausführung folgende Fehlermeldung(an der Stelle Dim ADOC As New ADODB.Connection):
Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert
Wo liegt denn hier das Problem? Den Code habe ich korrekt aus einem Buch abgetippt.
Vielen Dank für Eure Hilfe!
Andreas
) musst du folgende Library einbinden. Setze ein verweis darauf und es sollte klappen.