[Filen]

Здравствуйте уважаемые.
Проблема такая...

Создаю книгу exel (экспорт из БД) , далее сохраняю с заданным именем ..

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

const Fnn= 'Test'; XLApp.WorkBooks[1].SaveAs(ExtractFilePath(Application.ExeName)+Fnn);   в нужный момент открываю книгу на другой форме в oleconteiner.. OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+Fnn,False); OleContainer1.DoVerb(ovShow);   затем при закрытии формы удаляю созданный файл ..   procedure TForm23.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   If  FileExists(ExtractFilePath(ParamStr(0))+'Test.xlsx') Then Begin   DeleteFile('Test.xlsx'); OleContainer1.Close; OleContainer1.DestroyObject;     end;   end;   все прекрасно работает что и требовалось.   Но иногда нужно сохранить книгу с другим именем делаю так..   procedure TForm23.N3Click(Sender: TObject); begin if SaveDialog1.Execute then begin OleContainer1.OleObject.SaveAs(SaveDialog1.FileName);  ShowMessage('Отчет сохранён в файл:'#10+SaveDialog1.FileName+'xlsx'); end; end;

Админ: Пользуемся тегами при оформлении кода!

тоже все нормально сохраняет.

Но теперь код при закрытии формы FormCloseQuery не удаляет первоначально созданный файл Test.xlsx, в чем проблема?
Буду благодарен за потраченое на меня время.

[lmikle]

Ну сохрани имя файла при сохранении и используй его для удаления. У тебя в OnCloseQuery жестко прописано имя файла. Кстати и там у тебя ошибка - в услови проверки имени ты проверяешь полное имя, я в команде удаления - короткое.
Еще одна причина, по которой файл может не удаляться - он может быть заблокирован экселем. Тогда надо перед удалением файла также освоболить созданный объект экселя.

[Filen]

Сообщение от lmikle

Ну сохрани имя файла при сохранении и используй его для удаления. У тебя в OnCloseQuery жестко прописано имя файла. Кстати и там у тебя ошибка - в услови проверки имени ты проверяешь полное имя, я в команде удаления - короткое.
Еще одна причина, по которой файл может не удаляться - он может быть заблокирован экселем. Тогда надо перед удалением файла также освоболить созданный объект экселя.

Спасиб уважаемый, чтоб без тебя делал.
Я не волшебник , я только учусь..

[xDriver]

я извиняюсь, вы тегом "code" не умеете пользоваться?