excel ole datei ersetzen abfrage unterdrücken

Boldar · Verfasst: Mo 04.08.08 23:23

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

markieren

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

markieren

Delphi-Quelltext

1:	Excel.ActiveWorkbook.SaveAs(filename);

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

Narses · Verfasst: Mo 04.08.08 23:41

Moin!

Boldar hat folgendes geschrieben:

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

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

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

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Chemiker · Verfasst: Mo 11.08.08 23:48

Hallo Boldar,

einfach die Excel – Meldungen abstellen.

markieren

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme