Von |
Tyler |
Am |
27. März 2008 um 14:23:00 |
Frage |
Hi zusammen! Ich hab ein VBA-Problem, es sind meine ersten Gehversuche in Access und VBA, daher ist die Lösung vielleicht ganz einfach!?
Ich will über einen Button in der Excel Tabelle ein Makro starten, dass alle Zeilen der Excel Tabelle in einer Access DB anfügt.
Das Makro hab ich und auch die Access DB, nur bekomme ich mit meinem Code noch Fehlermeldungen beim kompilieren.
Folgende sieht mein Code aus:
_____________________________
Sub DatenAnfügen() On Error GoTo ErrorHandling
Dim Datenbank As Database, Tabelle As Recordset
Set Datenbank = dbengine.Workspaces(0).OpenDatabase("C:\DATA_DB.md b") Set Tabelle = Datenbank.TableDefs("C:\DATA.xls").OpenRecordset Worksheets("DATA").Select letztezeile = Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To letztezeile Tabelle.MoveLast Tabelle.AddNew Tabelle!Woche = Range("Woche" & i).Value Tabelle!Produkt = Range("Produkt" & i).Value Tabelle!PIs = Range("PIs" & i).Value Tabelle!Klicks = Range("Klicks" & i).Value Tabelle!CTR = Range("CTR" & i).Value Tabelle.Update Next i
Datenbank.Close
Exit Sub
ErrorHandling: MsgBox "Fehler " & Err.Number & vbCrLf & Err.Description Resume Next
End Sub _____________________________
Die Fehler sind folgende:
In der Zeile: "Set Tabelle = Datenbank.TableDefs("C:\DATA.xls").OpenRecordset" Fehler 3265: Element in der Auflistung nicht gefunden...
In der Zeile: "Tabelle.MoveLast" (und allen folgenden Zeilen) Fehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Ich suche da seit zwei Tagen nach Antworten im Netz, finde aber leider nichts passendes.
Danke für Eure Hilfe! Tyler |
|