Exceldaten nach Access senden.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo selli,
ich möchte doch die Daten von Excel nach Access senden.
ich habe im Archiv ein Makro gefunden, aber es läuft nicht, beim Start
kommen direkt Fehlermeldungen. Kannst Du mal den Grund finden?
' Anbei ein Quellcode, mit dem Du Excel-Daten in eine Access-Tabelle schreiben kannst.
' Aktiviere vorher die Bibliothek ADO unter Extras/Verweise.


Sub DatenübernahmeNachAccess()           'Beim Start kommen diese Meldungen
Dim ADOC As New ADODB.Connection      'Benutzerdefinierter Typ nicht definiert
Dim DBS As New ADODB.Recordset           'Benutzerdefinierter Typ nicht definiert
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\KGV\Mitglieder.mdb;"
DBS.Open "Mitglieder", ADOC, adOpenKeyset, _
adLockOptimistic
Sheets("Mitglieder").Activate     'Exceldatei
Range("A2").Select
On Error GoTo fehler
Do Until ActiveCell.Value = ""
DBS.AddNew
DBS!Garten_Nr = ActiveCell.Value
DBS!Anrede = ActiveCell.Offset(0, 1).Value
DBS!Vorname = ActiveCell.Offset(0, 2).Value
DBS!Nachname = ActiveCell.Offset(0, 3).Value
DBS!Strasse = ActiveCell.Offset(0, 4).Value
DBS!Ort = ActiveCell.Offset(0, 5).Value
DBS!Telefon = ActiveCell.Offset(0, 6).Value
DBS!Geburtstag = ActiveCell.Offset(0, 7).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

Hi Adi
(auch ICH bin NICHT Selli)
Ich hab auch mal sowohl eine Access-Datenbank als auch eine Excel-Datei erstellt - genau so, wie im Code "vorgegeben".
Und nach Start des Makros wurden die Daten aus A2-H2 als neuen Datensatz in die Access-DB übertragen.
Damit du weißt, in welcher Codezeile der Fehler auftritt, musstdu die On Error-Zeile löschen, oder deaktivieren.
Nun erscheint bei dem Fehler die Exceleigene Fehlermeldung, die dir die Möglichkeit zum Debuggen gibt - da kannst du dann auch sehen, welche Codezeile den Fehler verursacht.
In der 4. Zeile von oben muss der korrekte Pfad und Dateiname für deine Accessdatei stehen.
Eine Angabe zur Exceldatei ist an dieser Stelle falsch.
Hier noch mal ne Zusammenfassung:
1. In der 4. Zeile von oben muss der richtige Pfad+Name zur Accessdatei stehen
2. In der 7. Zeile von oben muss der richtige Sheetname stehen, aus dem die Daten zur Access-DB übertragen werden sollen
3. In den Zeilen 12 - 19 müssen die richtigen Feldnamen eingetragen werden, die in der Access-DB verwendet werden
Wenn du also Punkt 1-3 beachtest und die richtigen Verweise gesetzt hast, müsste es eigtl funktionieren (tut es bei mir ja auch)
Bei dir nun auch?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread