Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по сохранению 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 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.222 c
3-20915
Sergey-ZZZ
2002-09-17 14:12
2002.10.07
MSSQL2000


3-20906
tormozzz
2002-09-16 15:41
2002.10.07
ADO


14-21198
ZZ
2002-09-10 09:33
2002.10.07
Где взять StarCraft


14-21262
отчет
2002-09-13 11:25
2002.10.07
Когда день ламера?


1-21073
123456789
2002-09-24 23:33
2002.10.07
Как правильно сворачивать программу в TrayBar?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский