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