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