1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

unit haupt1;

interface

uses Variants, ComObj ...

procedure cxGridDBTableView4DBWKZAenderungerledigtProperties EditValueChanged(Sender: TObject);
begin

//*********** Excel füllen
Excel := CreateOleObject('Excel.Application');

// Open the Workbook
//Excel.Workbooks.Open(Pfad);

pfad := 'c:\temp\test.xls' ;
Excel.Workbooks.Open(Pfad);

Excel.Sheets[1].Name := 'Sheetname'; //Hierbei ist 1 das erste Sheet 2 das zweite usw.
Excel.Sheets['Übersicht'];
Excel.Sheets['Freigabe'].Cells[5,9].value := 'irgendein Wert' ;
end ;					

1:
2:

var
Excel: Variant;