Wie in Excel nur 1 Sheet speichern?

[Andidreas]

aloha...

kannst du das nächste mal bitte denn qt alls delphi code posten


du kannst im delphi die worksheets angeben die du erstellen willst und ihnen auch namen geben...
ich machs z.b. so:

Delphi-Quellcode:

//Create .xls / Set Column Format / Create Header
  oleExcelApp := CreateOleObject('Excel.Application');
  oleExcelWorkb := oleExcelApp.Workbooks.Add;
  oleExcelSheets1 := oleExcelWorkb.WorkSheets.Add;                               
  oleExcelSheets1.Name := 'test sheet 1';

oleExcelApp, oleExcelWorkb, oleExcelSheets1 sind alles variablen vom typ olevariant

edit
natürlich nicht das speicher vergessen ^^
das kann man so machen

Delphi-Quellcode:

  //Save as .xls File
  sXlsFile := ChangeFileExt(sFile, '.xls');

  Try
    oleExcelWorkb.Close(true, sXlsFile, False);
  Except
    ShowMessage('Save To File Error');
  End;

/edit
´
dann kann deine normale verarbeitung erfolgen die du mit dem excel machen willst...
am schluss muss halt alles wieder freigegeben werden

Delphi-Quellcode:

  //Excel freigeben
  oleExcelSheets1 := Unassigned;                                                
  oleExcelWorkb := Unassigned;
  oleExcelApp.Quit;
  oleExcelApp := Unassigned;