exporte table ver excel avec delphi

[mimate]

كود يستغمل في دلفي لوضع محتويات ملف table في ملف أكسل


procedure TForm2.Button1Click(Sender: TObject);
var
MonClasseur : _workbook;
MaFeuille :_Worksheet;
begin
MonClasseur:=ExcelApplication1.Workbooks.Add(xlWBA TWorksheet,0);
MaFeuille:=MonClasseur.Worksheets['feuil1'] as _worksheet;
table1.first;
while not (table1.eof) do
begin
MaFeuille.Cells.Item[table1.RecNo,1].Value:=Table1LAST_NAME.text;
MaFeuille.Cells.Item[table1.RecNo,2].Value:=Table1FIRST_NAME.text;
table1.next;
end;
ExcelApplication1.Visible[0]:=true;

end;