1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
procedure AddValues( poWorkSheet : TExcelWorkSheet )
var
Idx, Cpt: Integer;
var vMSExcel,vXLWorkbooks, vXLWorkbook, vWorksheet : variant ;
begin
Idx := 1;
for Cpt :=0 to form4.mouv.FieldCount-1 do
poWorkSheet.cells.item[Idx, Cpt+1].value:=form4.mouv.Fields[Cpt].FieldName;
while not form4.mouv.Eof And ( Idx <= 201 ) do
begin
Inc(Idx);
for Cpt :=0 to form4.mouv.FieldCount-1 do
poWorkSheet.cells.item[Idx, Cpt+1].value:=form4.mouv.Fields[Cpt].AsString;
form4.mouv.Next;
end;
end;
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
form4.mouv.First;
while not form4.mouv.Eof do
begin
if vWorksheet = NIL then
//acceder a la première feuillle
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
else
vWorksheet := vXLWorkbooks.Add;
AddValues( vWorksheet );
end; |
Partager