Подтверждение SaveAs для Word и Excel

← →
Kostafey © (2007-01-14 18:00) [0]

При сохранении в Word и Excel данных из DBGrid (в фоновом режиме) столкнулся со следующим.
После вызова диалога сохранения разумно было бы проверить существование файла, а затем уже спросив пользователя разрешение
на перезапись производить экспорт и сохранять в файл.

Для экспорта в Word все так и получилось. Делаю то же самое (почти один к одному) для Excel происходит следующее.
Программа проверяет существование файла, спрашивает у пользователя, пролучает согласие производит экспорт (из сетки)
после чего при попытке сохраниея файла сам Excel еще раз переспрашивает пересохранять ли файл.
Нехорошо получается, Word вот не спрашивает.

if FileExists(FileName) then if MessageDlg("Файл " + FileName + " уже существует в данном месте. Заменить ?", mtConfirmation, [mbOk, mbCancel], 0) = mrOk then begin Result := ExportToExcel(DBGrid, Header, footer); XL.ActiveWorkbook.SaveAs(FileName,true); XL.ActiveWorkbook.close(false); XL.Quit; XL := UnAssigned; end;
Изучил параметры SaveAs - ничего не дало.
Как погасить подтверждение на сохранение ?

Есть другой вариант. Убираем if FileExists(FileName) then...
Все оставляем на откуп самих Word и Excel.
(Хотя это и не слишком красиво, т.к. сначала происходит экспорт, что занимает время, потом попытка
сохранения, а что если пользователя не устраивает перезапись - словом, не лучший вариант)
Что выходит. Word опять не спрашивая просто производит перезапись.
Excel спрашивает. Если согласиться с перезапись, то все хорошо, если нет, то вылетает ошибка на строке SaveAs,
конечно ее тоже можно погасит try...except, но тогда уж слишком все притягивается за уши.

← →
Kostafey © (2007-01-14 19:39) [1]

Хм. как вариант: (удалять предварительно перезаписываемый файл)
function DBGridToExcelFile(DBGrid: TDBGridEh; FileName: string; Header: string = ""; footer: string = ""): boolean; begin Result := true; if FileExists(FileName) then begin if MessageDlg("Файл " + FileName + " уже существует в данном месте. Заменить ?", mtConfirmation, [mbOk, mbCancel], 0) = mrOk then DeleteFile(FileName) else exit; end; Result := ExportToExcel(DBGrid, Header, footer); XL.ActiveWorkbook.SaveAs(FileName); XL.ActiveWorkbook.close(true); XL.Quit; XL := UnAssigned; end;

← →
Kostafey © (2007-01-15 15:22) [2]

Пока остановился на решении
[1] (14.01.07 19:39)
но может кто-то знает как это сделать более правильно ?

← →
Kostafey © (2007-01-19 22:28) [3]

Верну, пожалуй, вопрос к обсуждению.
Интересно услышать другие варианты решения.

← →
iXT © (2007-01-19 22:42) [4]

EL.DisplayAlerts[locale_user_default]:=False;

> locale_user_default

это константа на сколько я понимаю. Что-то я ее в справке не нашел.
Что это за заначение ?

> [4] iXT © (19.01.07 22:42)

А впрочем и так все работает:
EL.DisplayAlerts:=False;

Внес изменения в свой вариант. Спасибо.

Подтверждение SaveAs для Word и Excel Найти похожие ветки