Поскольку вы используете раннее связывание, возможно, вам не хватает ссылки на библиотеку объектов Microsoft Excel (Tools > References
), или, возможно, эта библиотека была отображена как MISSING
в результате открытия ваша база данных в более ранней версии MS Access.
Тем не менее, чтобы полностью избежать ссылок и исключить это как возможную причину, вы можете попробовать использовать позднее связывание, например ::100100
Dim XL As Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open(ourPath)