Excel schließen und speichern(!)

[Chemiker]

Hallo ImpCaligula,

Von Workbook muss ein Object erstellt werden.

Mit saveChanges:=True wird bestimmt das die Änderungen gespeichert werden.

Mit WBobj.saved := TRUE; wird die alte Datei mit den neuen Daten ohne Nachfragen überschrieben (Bei FALSE kommt ein Dialogbox und fragt ob die Datei überschrieben werden soll).

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Datei: string;
    WBobj: olevariant;

begin
  Datei:= 'F:\Excel-ProgammOrdner\Beispiel Daten\Test1.xls';
  if f_Excel(Excel)then   // Excel startet
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!')
   else
     ShowMessage('MSExcel konnte nicht gestartet werden!!');

  Excel.Visible := TRUE;  // TRUE = Excel sichtbar.

  WBobj:= Excel.Application.Workbooks.Add;  // Neue Arbeitsmappe öffnen in EXECL
  Excel.Worksheets ['Tabelle1'].Activate;
  Excel.Cells[1,1]:= 'Test';
  WBobj.saved := TRUE;          // ohne nachfragen Überschreiben
  WBobj.Close (saveChanges:=True, FileName:=Datei);
  Excel.Quit;

Bis bald Chemiker