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

Вниз

вопрос по Excel   Найти похожие ветки 

 
hom   (2006-10-17 18:40) [0]

Добрый день всем!
при создании отчетов на Еxcel есть такое такое дело как
DisplayAlerts
если ему присвоить False, то при работе с Excel не будут отображаться
всякие сообщения от Excel(типа подтверждения на сохранение или на перезапись), а как можно к таким сообщениям обратиться через Delphi?
например программно выбирать Yes или No на таких сообщениях?


 
EvS ©   (2006-10-17 19:27) [1]

А нафига?


 
ян   (2006-10-17 19:44) [2]

дело в том, что после создания отчета надо решить, оставить его или нет.
если я в конце программы пишу

E.WorkBooks.SavaAs("filename");
E := Unassigned;

то при закрытии Excel появляется сообщение заменить имеющийся файл или нет?
нажимаешь да - он сохраняет, освобождает память, но
если нажимаешь "нет" - всё : метод SaveAs завершен неверно и уже он не освобождает память.
Пробовал отключать Alerts, и сделать с помощью MessageBox,
но ничего внятного так не получилось...


 
umbra ©   (2006-10-17 20:28) [3]

а не проще ли сохранять под именем, которого точно нет?


 
YurikGL ©   (2006-10-17 20:35) [4]


> то при закрытии Excel появляется сообщение заменить имеющийся
> файл или нет?

Проще использовать функцию

Delphi syntax:

function FileExists(const FileName: string): Boolean;

C++ syntax:

extern PACKAGE bool __fastcall FileExists(const AnsiString FileName);

Description

FileExists returns true if the file specified by FileName exists. If the file does not exist, FileExists returns false.


 
EvS ©   (2006-10-17 20:51) [5]

If FileExists(filename) then
XLAp.Workbooks[1].Save
else
XLAp.WorkBooks[1].SaveAs (filename);
XLAp.Workbooks[1].Close;
XLAp.Quit;


 
EvS ©   (2006-10-17 20:56) [6]

[5] EvS ©   (17.10.06 20:51) это если нужно сохранять именно под таким именем
чтобы не было вопросов от Excelя можно написать
XLAp.Workbooks[1].Close(0);



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

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

Наверх




Память: 0.45 MB
Время: 0.042 c
2-1161421545
Atrix
2006-10-21 13:05
2006.11.05
TcpClient и TcpServer


15-1160782877
ИА
2006-10-14 03:41
2006.11.05
Бесплатный софт


15-1160902603
Verg
2006-10-15 12:56
2006.11.05
Клиент форума под Symbian ни кто не пишет?


8-1143548552
Nik2006
2006-03-28 16:22
2006.11.05
DSPack


15-1160607272
Бабай
2006-10-12 02:54
2006.11.05
Google Code Search не ищет по Паскалю !





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский