Экспорт листа 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.