Daten aus Excel in Access einfügen
23.09.2004 09:39:11
Christian
ich habe folgendes Problem:
Ich will die Daten A2:A20 im Worksheet "Ausgabe" per Knopfdruck
als neuen Datensatz in der Tabelle "Sheet1" der Datenbank "Kennzahlen.mdb" anfügen. Folgenden Code habe ich bereits, er funktioniertaber wegen "anwendungs- und objektdefinierter Fehler" nicht und ich bin völlig ratlos...
Vielen Dank im Voraus
Hier mein Code:
Private Sub CommandButton4_Click()
Dim Datenbank As Database
Dim Tabelle As Recordset
Set Datenbank = dbengine.Workspaces(0).OpenDatabase("Z:\Ad_pt6\DTP_ALLG_Info\TWC_allgemein\Kennzahlen\Einlesen_von_Daten\Kennzahlen.mdb")
Set Tabelle = Datenbank.TableDefs("Sheet1").OpenRecordset
Worksheets("Ausgabe").Select
letztezeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To letztezeile
Tabelle.MoveLast
Tabelle.AddNew
Tabelle!Analysedatum = Range("A" & i).Value
Tabelle!ÜbNummer = Range("B" & i).Value
Tabelle!Art_des_Dokuments = Range("C" & i).Value
Tabelle!Ausgangssprache = Range("D" & i).Value
Tabelle!Zielsprache = Range("E" & i).Value
Tabelle!Xtranslated = Range("F" & i).Value
Tabelle!Repetitions = Range("G" & i).Value
Tabelle!Matches = Range("H" & i).Value
Tabelle!aMatches = Range("I" & i).Value
Tabelle!bMatches = Range("J" & i).Value
Tabelle!noMatches = Range("K" & i).Value
Tabelle!Summe_Worte = Range("L" & i).Value
Tabelle!Xtranslated_p = Range("M" & i).Value
Tabelle!Repetitions_p = Range("N" & i).Value
Tabelle!Matches_p = Range("O" & i).Value
Tabelle!aMatches_p = Range("P" & i).Value
Tabelle!bMatches_p = Range("Q" & i).Value
Tabelle!noMatches_p = Range("R" & i).Value
Tabelle!Verhältnis_Match_zu_NoMatch = Range("S" & i).Value
Tabelle.Update
Next i
Datenbank.Close
End Sub