Discussion :

[lila23]

bonjour à tous et à toutes,

voila j'aimerais avoir un bouton qui me permet de récupérer un ensemble de données et que je puisse récupérer toutes ces données et les mettre dans un fichier excel

est ce que quelqu'un peut me dire comment on procéde

merci

[Invité1]

bonjour

si j'ai bien compris, il y a bien un composant qui recupere des données du BDE vers EXCELL

telecharges "exportpdoxceldlg" c'est gratuit

bonne chance

[lila23]

oui j'aimerais pr programmation récupérer les données qui sont dans un dbgrid les envoyer vers un fichier excel le remplir ligne aprés ligne (dans l'excel) et enregistrement aprés enregistrement dans ma BD qui est fait avec SQL serveur

merci

[Invité1]

regardes ici peut etre que tu y trouveras ton bonheur

http://www.jcolibri.com/articles/off...el_delphi.html

bonne chnace

[lila23]

bon alors j'ai vu kelkes codes sur internet j'ai essayé de faire comme ca :

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
 
procedure TForm3.Button6Click(Sender: TObject);
var vMSExcel: Variant;
var i,j:integer;
begin
ExcelApplication1.Connect ;
vMSExcel:=CreateOleObject('Excel.Application');
try
    vMSExcel := GetActiveOleObject('Excel.Application');
except
    vMSExcel := CreateOleObject('Excel.Application');
end;
ExcelApplication1.Visible[0]:=true;
vMSExcel.Workbooks.Add;
for i:=1 to dbgrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to dbgrid1.Columns.Count do
begin
//vMSExcel.Workbooks.open('C:\Program Files\Borland\Delphi7\Projects\rapport\employes.xls');
vMSExcel.visible:=true;
vMSExcel.Workbooks[1].WorkSheets[1].Cells[i+1,j].Value:=dbgrid1.DataSource.DataSet.Fields.Fields[j].Text ;
end;
end;
 
end;

sauf que la premiére ligne se rempli et c'est tout aprés j'ai un message d'erreur :List index out of bounds (20)

merci

[BuzzLeclaire]

Salut

tu peux d'inspirer de cela pour mieux comprendre.

http://www.developpez.net/forums/d67...id-vers-excel/

A plus

[Invité1]

j'espere que ça va t'aider

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
 
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 table1.FieldCount-1 do
vworksheet.cells.item[1,i+1].value:=table1.Fields[i].FieldName;
 
//ecrire les données
table1.First;
for j := 1 to table1.RecordCount do
begin
for i:=0 to table1.FieldCount-1 do
begin
vworksheet.cells.item[j+1,i+1].value:=table1.Fields[i].AsString;
end;
table1.Next;
end;  
 
end;

bonne chance

[lila23]

merci bcp samy ca marche trés bien

est ce que je peux faire la meme choz mais aprés une recherche et aussi comment faire la meme chose pour les envoyer non vers un document excel mais vers un document texte (bloc note)

encore merci

[sam83]

Bonjour lila voilà un code que je l'utilise pour exporter des données vers 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
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 vMSExcel: 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
   vMSExcel:=ExcelApplication1.ActiveCell;
   for i:=0 to table.Fields.Count-1 do
   begin
   vMSExcel.Value:=table.Fields[i].DisplayLabel;
   vMSExcel:=vMSExcel.Next;
   end;
   vMSExcel.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
       vMSExcel:=ExcelApplication1.Range['A'+inttostr(Row), 'A'+inttostr(Row)];
       for i:=0 to table.Fields.Count-1 do
       begin
         vMSExcel.Value:=table.Fields[i].AsString;
        vMSExcel:=vMSExcel.Next;
       end;
       table.Next;
       Inc(row);
     end;
     finally
      table.Bookmark:=bookmark;
     end;
     finally
      table.EnableControls;
     end;
     //formater le tableau pour que  cela fasse joli
     //vMSExcel:=ExcelApplication1.Range['A1','E'+inttostr(row-1)];
    //vMSExcel.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
 
 
 
end;
 
end.

[lila23]

merci sam83 c'est gentil je vais essayer ton code

heuresement que vous etes tous la pour m'aider sinon je deviendrais comme ca

[Invité1]

salut

est ce que je peux faire la meme choz mais aprés une recherche et aussi comment faire la meme chose pour les envoyer non vers un document excel mais vers un document texte (bloc note)
encore merci

quand tu dis recherche tu veux dire "filtrage" si c'est le cas oui tu peux

pour envoyer vers un document texte j'ai jamais essayé mais je pense c'est faisable

bonne chance