Добрый день!
Я не программист, а экономист. Один добрый человек написал нам макрос, который загружает данные из подготовленных идентичных листов в книгах Excel в Access. Человек в декрете и помочь теперь некому, поэтому прошу помощи здесь.

Код привожу ниже.
Ошибка: "Невозможно найти установленный ISAM"
Что делать???

Sub getdirfiles()
Dim d, pth, strs, path
CurrentDb.Execute ("delete * from plan_v1")
path = "L:\Control\Planning & Forecast\2018 budget\Затраты\вспомогательное\для загрузки\"
pth = path & "*.xlsx"
d = Dir(pth)
Do While d <> ""
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
myOlApp.DisplayAlerts = False
Set MyWo = myOlApp.Workbooks.Open(path & d)
For Each mysheet In MyWo.Worksheets
strs = "Insert into business_plan select * from [" & mysheet.Name & "$A1:BA2000] IN '" & path & d & "'[Excel 14.0;HDR=YES;IMEX=2] Where Признак_загрузки <> 0 "
CurrentDb.Execute strs
Next mysheet
myOlApp.Workbooks.Close
d = Dir
Loop
End Sub