Объединение данных из нескольких связанных таблиц excel в главную таблицу доступа

самый простой способ я могу предложить вам обновить запрос.

Так как ваши листы Excel идентичны доступа к таблице базы данных, то запрос на обновление будет работать быстрее, и ваш лист Excel будет отображаться как любая прикрепленная таблица в Access.

Я надеюсь, что у вас нет пустой строки между заголовками и данными в Excel.

другое решение-код VBA, вы можете попробовать это.

Private Sub UpdateAccess()

Dim db As Database
Dim rs As RecordSet
Dim sql As String
Dim dbLocation As String

dbLocation = Workbook.Path & "\database\data.accdb"
Set db = OpenDatabase(dbLocation)
sql = "Select * FROM [Main Table]"
Set rs = db.OpenRecordSet(sql, dbOpenSnapshot)

If Not rs.EOF Then
   Worksheets("Sheet1").Range("A1").CopyFromRecordset rs
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

NB: этот код VBA будет работать успешно, когда слияние является безусловным.