Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по сохранению Excel файла [D5, Win95/98]

SZap © (2002-09-26 15:48:00)
Пишу програмку которая открывает файл Excel, изменяет его содержимое и сохраняет под темже именем...

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

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

Drin (2002-09-26 22:38:00) [1]
2All
ExcelApp.WorkBooks[1].Save;
And nothing else!

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

SZap (2002-09-26 19:19:00) [2]
Спасибо использую
ExcelApp.DisplayAlerts := false;

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

andrey_pst (2002-09-26 16:11:00) [4]
можно втупую:
if FileExists(fPath + filename + ".xls") then
DeleteFile(fPath + filename + ".xls");
можно, как советует qube, отключить у Excel реакцию на ошибки:
ExcelApp.DisplayAlerts := false;

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

qube (2002-09-26 15:51:00) [5]
Я не помню точно, давно дело было, но попробуй поискать свойство типа DisplayAlerts или в таком духе.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »