Access VBA: ошибка времени выполнения «13» Несоответствие типов

Question

Set wb = xl.Workbooks.Open(fileName)
Set ws = wb.Sheets("Sheet1")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"";"
Set rs = db.OpenRecordset("Tracking", dbOpenTable)
ws.Cells.ClearFormats

Триггер ошибки в соответствии с доступом:

Set rs = db.OpenRecordset("Tracking", dbOpenTable)

как "Несоответствие типов".Я уже создал имя таблицы как «Отслеживание» в своем приложении доступа, поэтому я был озадачен, почему он не обрабатывается.

PS.Я пытаюсь добавить новые записи из Excel в таблицу Access через набор записей.

Заранее спасибо!

Answer 1

Кажется, что проблема не имеет ничего общего с Excel. Чтобы как-то помочь, должен быть способ сделать MVCE , которого на самом деле хватило бы для всех, чтобы скопировать, вставить его и повторить ошибку.

Что-то вроде этого в Access вполне достаточно:

Sub TestMe()

    Dim rs As Recordset
    Dim db As Database: Set db = CurrentDb
    Set rs = db.OpenRecordset("Tracking", dbOpenTable)

End Sub

Если у вас все еще есть проблемы даже с этим кодом, то это хорошее начало.