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.

Antworten auf die Frage(1)

Ihre Antwort auf die Frage