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

zusammenfalten · markieren

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

Datei vorher Löschen.

Hi,

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

Gute Nacht

Hallo marabu...

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

gruss capo