Daten von Access Excel nach Access überschreiben
09.03.2018 10:37:22
Access
ich würde gerne mehrere Zeilen von Excel nach Access übertragen.
Ich habe folgenden Code geschrieben:
Set Db = OpenDatabase(DbPath)
Set rs = Db.OpenRecordset(ZielTab)
Name_Spalte = Range("A1").Value
Do Until Name_Spalte = "Vorgang"
Name_Spalte = Cells(1, 1 + Spalte_Vorgang).Value
Spalte_Vorgang = Spalte_Vorgang + 1
Loop
Do Until IsEmpty(Cells(1 + Anzahl_Vorgaenge, Spalte_Vorgang))
Anzahl_Vorgaenge = Anzahl_Vorgaenge + 1
rs.AddNew
rs!Vorgang = Cells(1 + Anzahl_Vorgaenge, Spalte_Vorgang)
rs!Ressource = Cells(1 + Anzahl_Vorgaenge, Spalte_Vorgang + 1)
rs.Update
Loop
Zur Begriffserklärung: ZielTab = "tbl_Vorgaenge_Excel" = Name der Tabelle in Access
Vorgang = Name einer Spalte in Access
Ressoruce = Name einer Spalte in Access.
DbPath = eine Globale Konstante, der Pfad, wo die Access Datenbank liegt
Ich kenne mich leider noch zu wenig aus, um zu erkennen, wo der Fehler liegt.
Ich würde mich riesig freuen, wenn mir jemand helfen könnte.
Das ganze muss mit VBA passieren, da es später mehrere Benutzer dieser Datei gibt, die nur auf eine Access zugreifen und ich gerne hätte, dass keiner außer ich Zugriff auf die Access Datenbank hat.
Die Datei läuft durch, ohne eine Fehlermeldung zu zeigen, jedoch kommt auch nichts in Access an.
Liebe Grüße
Ein Access Neuling