Скачать: CL | DM;

Вопрос по сохранению 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(установленый с офисом и привязаный к ниму, он ещё используется для написания макросов для приложений офиса), там отлично интегрированы абсолютно все методы, ф-ии... для работы с офисными приложениями.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c