Экспорт листа Excel в таблицу доступа (.accdb)

У меня есть макрос в Excel, связанный с командной кнопкой на одном из моих листов. При нажатии яя пытаюсь получить данные из моего листаFeedSamples» быть экспортированы в таблицу базы данных Access под названием "ImportedData».

Кто-нибудь может мне помочь? Я'Я попробовал несколько примеров из сети, но не повезло. Это то, что я сейчас имею, но продолжаю получатьОшибка выполнения '3343': Нераспознанный формат базы данных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

Когда я это сделаю, мне нужно написать код, чтобы таблица доступа экспортировала данные в файл dBase.

Ответы на вопрос(1)

Ваш ответ на вопрос