manipuler excel avec delphi ( gestion des feuilles)

Version imprimable

bonjour tout le monde , voila dans mon application j'ai un bouton vers excel qui est programmé comme ceci :
Code:

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 vMSExcel := CreateOleObject('Excel.Application'); vMSExcel.Visible := true; //creer un nouveau fichier xls vXLWorkbooks := vMSExcel.Workbooks; vXLWorkbook := vXLWorkbooks.Add; //acceder a une feuil vWorksheet := vXLWorkbook.WorkSheets['feuil1']; //ecrire les titres des champs for i:=0 to mouv.FieldCount-1 do vworksheet.cells.item[1,i+1].value:=mouv.Fields[i].FieldName; //ecrire les données mouv.First; for j := 1 to mouv.RecordCount do begin for i:=0 to mouv.FieldCount-1 do begin vworksheet.cells.item[j+1,i+1].value:=mouv.Fields[i].AsString; end; mouv.Next; end;
ce que j'aimerais faire si de limiter le nombre d'enregistrement par feuille genre je met 200 lignes dépassé cette limite je passe a la feuille suivante

j'aimerais aussi savoir si je peux moi meme (par programmation) donner le nom aux feuilles selon mes besoins et remplir ces feuilles selon des critéres par exemple selon le département pour les employés

merci infiniment

Bonjour, déjà votre boucle pour parcourir le DataSet me semble douteuse, il vaudrait mieux la remplacer par un while not Eof... Next.

Ensuite il suffit de modifier le code comme ceci :

Code:

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
38
procedure AddValues( poWorkSheet : WorkSheet )
var
 Idx, Cpt: Integer;
begin
  Idx := 1;
  //ecrire les titres des champs
  for Cpt :=0 to mouv.FieldCount-1 do 
    poWorkSheet.cells.item[Idx, Cpt+1].value:=mouv.Fields[Cpt].FieldName;
 
  while not mouv.Eof And ( Idx <= 201 ) do
  begin
    Inc(Idx);
    for Cpt :=0 to mouv.FieldCount-1 do
      poWorkSheet.cells.item[Idx, Cpt+1].value:=mouv.Fields[Cpt].AsString;
    mouv.Next;
  end;
end;
 
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
 
//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
 
 
 
mouv.First;
while not 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;

Enfin pour changer le nom d'une feuille tu dois avoir une propriété Name au niveau du Worksheet pour pouvoir modifier son nom.

01/04/2009, 13h17
lila23
bonjour

tout d'abord merci de votre aide
j'ai essayé votre code j'ai ajouté un Tworksheet sur ma fiche le probléme c'est que j'ai un probléme avec les variables alors j'ai le message d'erreur incompatible type : worksheet and TExcelapplication je ne vois pas comment faire !!!
si je laisse ca en variant ce ne marche pas j'ai : incompatible type : worksheet and varaiant si je remet les varaibles en worksheet j'ai le premier message d'erreur a cause de ce code la :
Code:

1 2 3 4 5 6 7 vMSExcel := CreateOleObject('Excel.Application'); vMSExcel.Visible := true; //creer un nouveau fichier xls vXLWorkbooks := vMSExcel.Workbooks; vXLWorkbook := vXLWorkbooks.Add;
encore merci
01/04/2009, 13h33
ero-sennin

Salut lila,

Peux-tu nous poster un peu plus de code, car là, j'avoue ne pas comprendre :roll:
Je suppose que tu t'aides de ce tutoriel ?

bonjour ero enfin tu es venus j'ai essayé d'apaté ce que l'on ma montré jsute avant comme ceci

Code:

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;

mais j'ai eut une 10aine de message d'erreur surtout sur l'incompatibilié des types de mes variables!!
merci