После работы Ls с файлами, файл остается все ещё "открытым"

[fedotxxl]

1) Какие действия произвожу с файлами

Выгрузка из аттачмента на диск - rtItem.EmbeddedObjects(0).extractFile(folder+"/MacrosFile.xls")
Создание OLE объекта из файла на диске

Call rtItem.EmbeddedObjects(0).extractFile(folder+"/MacrosFile.xls")
Set xls = CreateObject("Excel.Application")
With xls
.Workbooks.Add
.Workbooks.open folder+"/MacrosFile.xls"
.visible = False
End With

Сохранение OLE файла на диск - Call xls.ActiveWorkbook.SaveAs(folder+"\Report For "+Cstr(Date)+".xls")
Загрузка файла с диска в аттачмент - Call rtItem.EmbedObject(EMBED_ATTACHMENT, "", folder+"\Report For "+Cstr(Date)+".xls", "Report For "+Cstr(Date)+".xls")

Что получаю:

 

[fedotxxl]

"Залочивание" происходит после

.Workbooks.open folder+"/MacrosFile.xls"

и

Call xls.ActiveWorkbook.SaveAs(folder+"\Report For "+Cstr(Date)+".xls")

Возможно OLE-объект необходимо специльным образом закрывать?

В памяти компьютера остаются процессы EXCEL.EXE
Только после их убития можно удалить файлы... оно и понятно... но почему эти процессы сами не убиваются?

 

[fedotxxl]

Проблема решена - xlApp.Quit