Entwickler-Ecke :: Thema anzeigen - excel ole datei ersetzen abfrage unterdrücken

Boldar - Mo 04.08.08 23:23
Titel: excel ole datei ersetzen abfrage unterdrücken

Hallo,
beim steuern von excel über ole speichere ich mit

Delphi-Quelltext

1:	Excel.ActiveWorkbook.SaveAs(filename);

Wenn die datei aber schon existiert, soll sie ohne Abfrage einfach ersetzt werden. Sicher geht dass mit

Delphi-Quelltext

1:
2:

if fileexists (filename) then deletefile (filename);
Excel.ActiveWorkbook.SaveAs(filename);

Aber es muss doch wohl noch eine Schönere Lösung geben? Weil Wenn der nun bei

Delphi-Quelltext

1:	Excel.ActiveWorkbook.SaveAs(filename);

abstürtzt, ist keine Version der Datei mehr da.

Narses - Mo 04.08.08 23:41
Titel: Re: excel ole datei ersetzen abfrage unterdrücken

Moin!

Boldar hat folgendes geschrieben:

Aber es muss doch wohl noch eine Schönere Lösung geben?

Delphi-Quelltext

1:
2:
3:
4:
5:

if fileexists(filename) then begin
  deletefile(backup_filename);
  RenameFile(filename, backup_filename);
end;
Excel.ActiveWorkbook.SaveAs(filename);

:nixweiss:

cu
Narses

Chemiker - Mo 11.08.08 23:48

Hallo Boldar,

einfach die Excel – Meldungen abstellen.

Delphi-Quelltext

1:
2:
3:

Excel.DisplayAlerts := FALSE; // Meldungen  abstellen
Excel.ActiveWorkbook.SaveAs(filename);
Excel.DisplayAlerts := TRUE; // Meldungen wieder anstellen.

Wenn die Datei schon existiert wird sie ohne Nachfragen überschrieben.

Bis bald Chemiker

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!