Sub ImportFromExcel() Dim objExl As Object, i As Integer Dim d, pth, Path Dim rst As Recordset, rst2 As Recordset Set rst = CurrentDb.OpenRecordset("stoimost2") Set rst2 = CurrentDb.OpenRecordset("qMaxDate") Path = "C:\Fonds\vtb\" pth = Path & "*.xls" d = Dir(pth) Do While d <> ""     Set objExl = GetObject(Path & d)     objExl.Parent.Windows(1).Visible = True     i = 1     'MsgBox objExl.Name     Do While objExl.Application.Cells(3 + i, 2) <> rst2!MaxDate         rst.AddNew         rst!Код = CInt(Left(objExl.Name, 2))         rst!Дата = objExl.Application.Cells(3 + i, 2)         rst!Сумма1 = objExl.Application.Cells(3 + i, 3)         rst!Сумма2 = objExl.Application.Cells(3 + i, 4)         rst.Update         'MsgBox objExl.Application.Cells(3 + i, 3)         i = i + 1     Loop     d = Dir     'objExl.Application.Quit     Set objExl = Nothing Loop End Sub

подробнее:
импортируются только те записи из десятка excel файлов, которых нет в таблице stoimost2. Запрос qMaxDate выбирает последнию дату, потом сравнивается с датой в excel файле, если нет такой даты то идет добавление в таблицу stoimost2.

проблема:
GetObject(Path & d) все работает прекрасно, перебирает каждый xls файл в каталоге. Выборка и добавление нужных записей по "Дата" также работает прекрасно. Выбирает именно те записи которые нужны. НО происходит следующее:
-начало обработки 1-го xls в каталоге. Правильно.
-выборка записей по дате. Правильно
-добавление записей из 1-го xls. Правильно.
-конец обработки 1-го xls файла в каталоге. Правильно.

-начало обработки 2-го xls в каталоге. Правильно.
-выборка записей по дате. Правильно
-добавление записей из 1-го xls. Неправильно
-конец обработки 2-го xls файла в каталоге. Правильно.

я добавлял строчку objExl.Application.Quit, с ней ВСЁ становится правильно. Но выдает ошибку потому что при закрытии xls файла, Excel выдает сообщение "Сохранять файл. Да/Нет". Насколько я понял все проблемы отсюда. Что сделать можно?