28. März 2024, 14:49
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0406
  A02: Excel Tabellendaten -> Access DB
 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
[ VB-/VBA-Forum | Archiv 0406 | Archiv-Übersicht ]
 Antworten
A02: Excel Tabellendaten -> Access DB - Tyler 27. März 2008 um 14:23:00
Re: Excel Tabellendaten -> Access DB - Alex 30. März 2008 um 17:15:01

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum