comment créer un fichier excel sans tous les champs de ma table

**lila23** · 24/03/2009, 08h44

bonjour tout le monde ,
c'est encore moi hélas!!!

voila j'aimerais savoir comment créer un fichier excel a partir de ma table mais prendre certaine colonne de ma table et non pas tous les champs

moi j'ai fait ce code qui crée le fichier excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
var
vMSExcel,vXLWorkbooks, vXLWorkbook,  vWorksheet : variant ;
i,j:integer;
begin
// demarrer excel
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;
end;

sauf que pour certaine fiche je n'ai pas besoins de tous les champs de ma table mais de certains bien spécifique !!!!!

merci de votre aide

**Just-Soft** · 24/03/2009, 08h57

Salut;

voici deux propositions différentes :

si tes champs sont reconnus au préalable alors faut tester le nom du champ à exporter comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i:=0 to mouv.FieldCount-1 do
begin
   if (taTable.FieldName = 'Nom') or (...) or (..) then
   vworksheet.cells.item[1,i+1].value:=mouv.Fields[i].FieldName;
end;
//ecrire les données

si tu veux laisser la main à l'utilisateur faudrait sélectionner les champs les mettre dans une liste puis faire le test.

Bonne chance.

**lila23** · 24/03/2009, 10h28

j'ai essayé ce que tu ma di mais fielname n'existe pas je c'est pas comment on récupére le nom du champ!!!

Et j'aimerais essayé de le faire d'aprés ce que j'ai dans le dbgrid!!!!!

merci

**lila23** · 24/03/2009, 10h41

bon j'ai essayé ca pour le dbgrid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
var
vMSExcel,vXLWorkbooks, vXLWorkbook,  vWorksheet : variant ;
i,j:integer;
begin
// demarrer excel
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
dbgrid1.DataSource.DataSet.First;
for j := 1 to dbgrid1.DataSource.DataSet.RecordCount do
begin
for i:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 do
begin   vworksheet.cells.item[j+1,i+1].value:=mouv.Fields[i].AsString;
end;
dbgrid1.DataSource.DataSet.Next;
end;