Excel-Arbeitsblatt in Zugriffstabelle exportieren (.accdb)
In Excel ist ein Makro an eine Befehlsschaltfläche in einem meiner Arbeitsblätter gebunden. Beim Klicken versuche ich, die Daten aus meinem Arbeitsblatt "FeedSamples" in eine Access-Datenbanktabelle mit dem Namen "ImportedData" zu exportieren.
Kann mir jemand weiterhelfen? Ich habe mehrere Beispiele aus dem Netz ohne Glück versucht. Dies ist, was ich im Moment habe, aber weiterhin "Laufzeitfehler '3343': Nicht erkanntes Datenbankformat 'filePath \ FeedSampleResults.accdb
Dim db As Database
Dim rs As Recordset
Dim r As Long
Set db = OpenDatabase("filePath\FeedSampleResults.accdb")
Set rs = db.OpenRecordset("ImportedData", dbOpenTable)
r = 2
Do While Len(Worksheets("FeedSamples").Range("A" & r).Formula) > 0
With rs
.AddNew
.Fields("REPTNO") = Worksheets("FeedSamples").Range("B" & r).value
.Update
End With
r = r + 1
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Sobald ich dies erreicht habe, muss ich Code eingeben, damit die Zugriffstabelle die Daten in eine dBase-Datei exportiert.