Discussion :

[tarmo57]

salut tous
un petit conseil je ne trouve rien sur l'export paradox ver excel (fichier XLS)
vous avez un tuto ou un petit exemple svp.
voila j'ai une table client paradox et j'aimerais faire deux choses
exporter le nom et prenom de mes adhérants dans un fichier XLS
et
exporter le nom et prenom de mes adhérants dans un fichier TXT

merci de votre aide

[philnext]

La même chose, dont tu peux t'inspirer, à partir d'un fichier MDB :

http://sourceforge.net/projects/axbase

[tarmo57]

La même chose, dont tu peux t'inspirer, à partir d'un fichier MDB :

http://sourceforge.net/projects/axbase

merci mais cela ne correspond pas a se que je voudrais et le stable paradox sont extension .DB

[philnext]

Le principe est exactement le même quelque soit la base de données !
Tu as une fonction SaveAsExcelFile qui exporte en XLS un TDataSet.
Si ce n'est pas ce que tu recherches...

[sam83]

voilà tu peut utiliser ça

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TForm1.Button1Click(Sender: TObject);
var rangeE: variant;
    i,row:integer;
    bookmark:Tbookmarkstr;
    table:tdataset;
 
begin
   //créer et rendre visible excel
   table:=dbgrid1.datasource.dataset;
   ExcelApplication1.Visible[0]:=true;
   excelapplication1.workbooks.add(NULL,0);
   //remplir la première ligne avec les noms des champs
   rangeE:=ExcelApplication1.ActiveCell;
   for i:=0 to table.Fields.Count-1 do
   begin
   rangeE.Value:=table.Fields[i].DisplayLabel;
   rangeE:=rangeE.Next;
   end;
   rangeE.AutoFormat(10,NULL,NULL,NULL,NULL,NULL,NULL);
   //remplir les lignes suivantes avec les enregts.
   table.DisableControls;
   try
    bookmark:=table.Bookmark;
    try
     table.First;
     row:=2;//table.RecordCount+1;
     while not table.Eof do
     begin
       rangeE:=ExcelApplication1.Range['A'+inttostr(Row), 'A'+inttostr(Row)];
       for i:=0 to table.Fields.Count-1 do
       begin
         rangeE.Value:=table.Fields[i].AsString;
         rangeE:=RangeE.Next;
       end;
       table.Next;
       Inc(row);
     end;
     finally
      table.Bookmark:=bookmark;
     end;
     finally
      table.EnableControls;
     end;
     //formater le tableau pour que  cela fasse joli
     //rangeE:=ExcelApplication1.Range['A1','E'+inttostr(row-1)];
    // rangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
 
 
 
end;
 
end.

[philnext]

voilà tu peut utiliser ça

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TForm1.Button1Click(Sender: TObject);
var rangeE: variant;
    i,row:integer;
    bookmark:Tbookmarkstr;
    table:tdataset;
 
begin
   //créer et rendre visible excel
   table:=dbgrid1.datasource.dataset;
   ExcelApplication1.Visible[0]:=true;
   excelapplication1.workbooks.add(NULL,0);
   //remplir la première ligne avec les noms des champs
   rangeE:=ExcelApplication1.ActiveCell;
   for i:=0 to table.Fields.Count-1 do
   begin
   rangeE.Value:=table.Fields[i].DisplayLabel;
   rangeE:=rangeE.Next;
   end;
   rangeE.AutoFormat(10,NULL,NULL,NULL,NULL,NULL,NULL);
   //remplir les lignes suivantes avec les enregts.
   table.DisableControls;
   try
    bookmark:=table.Bookmark;
    try
     table.First;
     row:=2;//table.RecordCount+1;
     while not table.Eof do
     begin
       rangeE:=ExcelApplication1.Range['A'+inttostr(Row), 'A'+inttostr(Row)];
       for i:=0 to table.Fields.Count-1 do
       begin
         rangeE.Value:=table.Fields[i].AsString;
         rangeE:=RangeE.Next;
       end;
       table.Next;
       Inc(row);
     end;
     finally
      table.Bookmark:=bookmark;
     end;
     finally
      table.EnableControls;
     end;
     //formater le tableau pour que  cela fasse joli
     //rangeE:=ExcelApplication1.Range['A1','E'+inttostr(row-1)];
    // rangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
 
 
 
end;
 
end.

Oui mais il me semble que pour ça tu as besoin d'Excel sur la machine, non ?

[tarmo57]

voilà tu peut utiliser ça

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TForm1.Button1Click(Sender: TObject);
var rangeE: variant;
    i,row:integer;
    bookmark:Tbookmarkstr;
    table:tdataset;
 
begin
   //créer et rendre visible excel
   table:=dbgrid1.datasource.dataset;
   ExcelApplication1.Visible[0]:=true;
   excelapplication1.workbooks.add(NULL,0);
   //remplir la première ligne avec les noms des champs
   rangeE:=ExcelApplication1.ActiveCell;
   for i:=0 to table.Fields.Count-1 do
   begin
   rangeE.Value:=table.Fields[i].DisplayLabel;
   rangeE:=rangeE.Next;
   end;
   rangeE.AutoFormat(10,NULL,NULL,NULL,NULL,NULL,NULL);
   //remplir les lignes suivantes avec les enregts.
   table.DisableControls;
   try
    bookmark:=table.Bookmark;
    try
     table.First;
     row:=2;//table.RecordCount+1;
     while not table.Eof do
     begin
       rangeE:=ExcelApplication1.Range['A'+inttostr(Row), 'A'+inttostr(Row)];
       for i:=0 to table.Fields.Count-1 do
       begin
         rangeE.Value:=table.Fields[i].AsString;
         rangeE:=RangeE.Next;
       end;
       table.Next;
       Inc(row);
     end;
     finally
      table.Bookmark:=bookmark;
     end;
     finally
      table.EnableControls;
     end;
     //formater le tableau pour que  cela fasse joli
     //rangeE:=ExcelApplication1.Range['A1','E'+inttostr(row-1)];
    // rangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
 
 
 
end;
 
end.

j'ai une erreur ici
ExcelApplication1.Visible[0]:=true;
identificateur non déclarer ?

[sam83]

Oui effectivement;
mais a ce que vous voulez exporter vers excel sans que ce dernier soit installé sur la machine?

[sam83]

a ce que l'ajouté le composant ExcelApplication sur ta form sinon tu peut nous donnés l'erreur complète

[tarmo57]

a ce que l'ajouté le composant ExcelApplication sur ta form sinon tu peut nous donnés l'erreur complète

une derniere petite chose si je veux uniquement le nom et prenom je fais comment ?

[sam83]

bon pour remplir la première ligne avec les noms des champs en fait ça

rangeE:=ExcelApplication1.ActiveCell;
for i:=0 to table.Fields.Count-1 do
begin
rangeE.Value:=table.Fields[i].DisplayLabel;
rangeE:=rangeE.Next;
end;
rangeE.AutoFormat(10,NULL,NULL,NULL,NULL,NULL,NULL);

donc pour remplir tout les champs la variable "i" va aller de 0 jusqu'à "table.Fields.Count-1" maintenant pour remplir quelque champs il suffit d'ajust le compteur
exemple:pour remplir les deux premier champs en fait

for i:=0 to 1 do