Eksportuj arkusz programu Excel do tabeli dostępu (accdb)

Mam makro w Excelu powiązane z przyciskiem polecenia w jednym z moich arkuszy. Po kliknięciu próbuję wyeksportować dane z mojego arkusza „FeedSamples” do tabeli bazy danych Access o nazwie „ImportedData”.

Czy ktoś może mi pomóc? Próbowałem wielu przykładów z sieci bez powodzenia. Właśnie to mam teraz, ale otrzymuję „Błąd czasu wykonywania„ 3343 ”: Nierozpoznany format bazy danych„ 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

Kiedy już to osiągnę, muszę zakodować, aby tabela dostępu wyeksportowała dane do pliku dBase.

questionAnswers(1)

yourAnswerToTheQuestion