ОБСУЖДЕНИЕ

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

2 ответов 4,6 тыс.
AI-выжимка обсуждения скоро
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
 
"Залочивание" происходит после
.Workbooks.open folder+"/MacrosFile.xls"
и
Call xls.ActiveWorkbook.SaveAs(folder+"\Report For "+Cstr(Date)+".xls")
Возможно OLE-объект необходимо специльным образом закрывать?

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

Статистика тем

Создано
fedotxxl,
Последний ответ от
fedotxxl,
Ответы
2
Просмотры
4 578