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