Delphi und Excel

[MaM]

Delphi-Quellcode:

procedure TForm_ExcelF.Button1Click(Sender: TObject);
var Excel: Variant;
begin
try
  // Ole Objekt erstellen und öffnen
  Excel:=CreateOleObject('Excel.Application');
  // Excel Fenster sichtbar machen
  Excel.Visible:=True;
  // Neue Arbeitsmappe erstellen
  Excel.Workbooks.Open('C:\Excel.xls');
  // In Zelle A1 schreiben
  Excel.Cells[1,1].Value:='Text!';

except

end;
end;


procedure TForm_ExcelF.BB_SchliessenClick(Sender: TObject);
var Excel : Variant;
begin
  Excel.ActiveWorkbook.SaveAs('C:\Excel.xls');
  Excel.Quit; //Beendet Excel
  Excel := Unassigned;
end;

So oben stehend der Code, ist vielleicht das Einfachste.


MaM