Excel: Format-Fehlermeldung bei selbst erstellter Excel-Datei

[Helmi]

Hallo,

ich beschreibe mit folgendem Code eine Excel-Tabelle und speichere sie dann.

Delphi-Quellcode:

  //Excel öffnen, bei Fehler Procedure beenden
  try
    Excel := CreateOleObject('Excel.Application');
  except
    exit;
  end;

  //neue Arbeitsmappe öffnen
  Excel.Workbooks.Add;

  //Excel verstecken
  Excel.Visible := false;

  //in 1. Spalte schreiben, beginnend bei 1. Zeile
  for i := 0 to Pred(StringList.Count) do
    begin
      Nummer := StringList.Names[i];
      Text   := 'de-DE=' + StringList.ValueFromIndex[i];

      Excel.Cells[i + 1, 1].Value := Nummer;
      Excel.Cells[i + 1, 3].Value := Text;
    end;

  //In Datei sichern
  Excel.ActiveWorkbook.SaveAs(Datei);

  //Excel schliessen
  Excel.Quit;

Die Datei wird auch erstellt und ich kann sie auch öffnen.
Nur wenn ich sie öffne, dann erhalte ich von Excel eine Meldung, siehe Bild.

Was für ein Format könnte da nicht stimmen und wie kann ich Excel das richtige Format beibringen?

[Bummi]

hast Du eine xlsx Datei als xls gespeichert?

[Helmi]

Zitat:

Zitat von Bummi (Beitrag 1190760)

hast Du eine xlsx Datei als xls gespeichert?

stimmt - du hast recht - das ist eine xlsx-Datei.
Wenn ich den Dateinamen in Meldungen.xlsx umbenenne, dann gibt Excel keine Fehlermeldung mehr aus.

Nur, ich will ja gar nicht die Datei als eine xlsx-Datei speichern.
Das Programm ist für mein Notebook in der Arbeit und da hab ich nur Excel 2003 drauf - also kann
ich xlsx nicht nutzen.

Kann ich Excel beibringen ein anderes Format zu nutzen und falls ja, wie?

[Bummi]

http://www.delphipraxis.net/77933-fe...speichern.html

geht zwar um ein anderes Format, das Prinzip sollte das gleiche sein ...

[Helmi]

Zitat:

Zitat von Bummi (Beitrag 1190762)

http://www.delphipraxis.net/77933-fe...speichern.html

geht zwar um ein anderes Format, das Prinzip sollte das gleiche sein ...

Theopraktisch ja - aber es mag mir einfach nicht für xls gelingen

[edit]
so gehts:

Delphi-Quellcode:

  Excel.ActiveWorkbook.SaveAs(FileFormat := OleVariant(39), Filename := Datei,
    CreateBackup := false);

Für Excel 97-2003

[Bummi]

:thumb: