ник: willy-nilly
Не понимаю, все книжки перечитала - и не работает
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