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

fedotxxl

Well-known member
09.11.2005
614
0
#1
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")
Что получаю:
error2.jpg
error1.jpg
 

Вложения

fedotxxl

Well-known member
09.11.2005
614
0
#2
"Залочивание" происходит после
.Workbooks.open folder+"/MacrosFile.xls"
и
Call xls.ActiveWorkbook.SaveAs(folder+"\Report For "+Cstr(Date)+".xls")
Возможно OLE-объект необходимо специльным образом закрывать?

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