Вопрос по сохранению Excel файла

← →
SZap (2002-09-26 15:48) [0]

Пишу програмку которая открывает файл Excel, изменяет его содержимое и сохраняет под темже именем...

ExcelApp: Variant;
Template: OleVariant;
...
Template := GetCurrentDir+"\tmp.xls";
ExcelApp.WorkBooks[1].SaveAS(Template, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Так вот, перед сохранением спрашивает "Файл уже существует. Заменить?"
Как ее научить самой говорить "Да"

← →
qube (2002-09-26 15:51) [1]

Я не помню точно, давно дело было, но попробуй поискать свойство типа DisplayAlerts или в таком духе.

← →
andrey_pst (2002-09-26 16:11) [2]

можно втупую:
if FileExists(fPath + filename + ".xls") then
DeleteFile(fPath + filename + ".xls");
можно, как советует qube, отключить у Excel реакцию на ошибки:
ExcelApp.DisplayAlerts := false;

советую первое - чем меньше трогаешь сервер, тем меньше появляется проблем (личный опыт :) ).

← →
Jack128 (2002-09-26 17:49) [3]

>andrey_pst
>if FileExists(fPath + filename + ".xls") then
> DeleteFile(fPath + filename + ".xls");
Щас попробовал удалить Файл открытый Екселем - нифига
"Ошибка при совместном доступе к файлу так что скорее всего этот
вариант не пройдет"

← →
SZap (2002-09-26 19:19) [4]

Спасибо использую
ExcelApp.DisplayAlerts := false;

← →
Drin (2002-09-26 22:38) [5]

2All
ExcelApp.WorkBooks[1].Save;
And nothing else!

Во избежание глупих вопросов про работе с объектами Ole нужно узнать все их методы, ф-ии... В данном случае можно используя редактор Visual Basic(установленый с офисом и привязаный к ниму, он ещё используется для написания макросов для приложений офиса), там отлично интегрированы абсолютно все методы, ф-ии... для работы с офисными приложениями.

Вопрос по сохранению Excel файла Найти похожие ветки