Не понимаю, все книжки перечитала - и не работает
Excel закрываю, Quit и Nothing поставлен. А в процессах от все равно висит.

Dim FS As Variant
Dim MyFile As String
Dim XL As Object
Dim WS As Worksheet
Dim I as Long

Set FS = Application.FileSearch
Set XL = CreateObject("excel.application")
With FS
.LookIn = "C:\Получено"
.SearchSubFolders = True
.FileName = "*.xls"
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
MyFile = .FoundFiles(I) 'имя файла
XL.Workbooks.Open FileName:=MyFile
DoCmd.TransferSpreadsheet acImport, 8, "22_temp", MyFile, False, "A3:N120"
XL.ActiveWindow.Close SaveChanges:=False
Next I
End If
End With
XL.Quit
Set XL = Nothing

в начале кода объявим
xlaProd As Excel.Application
WrkBk As Excel.Workbook

потом присвоим
Set WrkBk = CreateObject("Excel.Sheet")
Set xlaProd = WrkBk.Parent

а в конце
WrkBk.Close
xlaProd.Quit 'вот то, что закроет. иначе прооблеммммммммм
Set WrkBk = Nothing
Set xlaProd = Nothing

Зачем вы вообще создаете Application и открываете Workbook?
Для выполнения DoCmd.TransferSpreadsheet это не нужно.

Простите, где там?.........

И добавила, и переставила - ничего.
А помогло - вот что:
в еконец цикла вставила Quit:
.................
XL.Quit
Next I
End If
End With
Set XL = Nothing
Теперь работает, правда, не очень понятно, как
Я просто сидела и на каждой строке отладки смотрела, сколько памяти забирает Excel.
Увеличиваться память стала после строки
MyFile = .FoundFiles(I) 'имя файла

Всем большое спасибо, но может еще варианты есть?

Нет, я другое имела в виду.