Exceldatei als Html-Datei speichern - störender Dialog

[capo]

Hallo,
ich versuche eine Exceldatei als Html-Datei zu speichern, klappt auch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    ExcelApp,Sheet  :variant;
    Workbook:_Workbook;
  begin
     ExcelApp:=createoleobject('excel.application');
     ExcelApp.Workbooks.open(ExtractFilePath(Application.ExeName)+'1.xls',EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam);
     ExcelApp.ActiveWorkBook.SaveAs('c:\filename.html',FileFormat:=xlHtml,ReadOnlyRecommended:=false,CreateBackup:=False);
     ExcelApp.DisplayAlerts := False; 
     ExcelApp.:=Unassigned;
     ExcelApp.Quit;
  end;

Mein Problem ist, ist c:\filename.html schon vorhanden gibt's einen Dialog den ich nicht haben möchte

Zitat:

---------------------------
Microsoft Excel
---------------------------
Eine Datei mit dem Namen 'c:\filename.html' existiert schon an diesem Platz. Soll sie ersetzt werden?
---------------------------
Ja Nein Abbrechen
---------------------------

Wie bekomme ich diesen Dialog weg?

gruss vom capo

[mkinzler]

Datei vorher Löschen.

[marabu]

Hi,

ich würde DisplayAlerts auf False setzen, bevor ich die Methode Save() aufrufe.

Gute Nacht

[capo]

Hallo marabu...

genau das war es.
Vielen Dank für die Antworten.

gruss capo