Exporter en excel sauf que les champs sélectionnés via un DBgrid

Version imprimable

1 pièce(s) jointe(s)

bonjour a touts ,

je travaile avec delphi 2.0 et Paradox
j'utilise Dataset et un tableau et je voudrai exporter mon dbgrid sauf que les chmps a selectione vers un ficher excel
j'utilise la biblioteque OleAuto our l'exportation Excel

cette code exporter tous les champs sélectionné ou non sélectionné
elle est en marche :

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
39
40
41
42
43
44
45
46
47
procedure TFSaiPFE.ExporterClick(Sender: TObject);
var
 ExcelApplication : variant;
 Sheet : variant;
 column, row : integer;
 I,J: Integer ;
begin
 try
  begin
   ExcelApplication := CreateOleObject('Excel.Application');
   ExcelApplication.Visible := true;
  end;
 except
  Showmessage('Cannot create an Excel file, make sure that MS Excel is installed on your system');
  Application.Terminate;
 end;
     ExcelApplication.WorkBooks.Add(-4167);
     ExcelApplication.WorkBooks[1].WorkSheets[1].Name := 'my data';
     Sheet := ExcelApplication.WorkBooks[1].WorkSheets['my data'];
  for I:=1 to DBGrid1.DataSource.DataSet.FieldCount do
    begin
    Sheet.Cells[1,I]:=PFE_List.Fields[I-1].FieldName;
    End;
 column:=0;
  if (DBGrid1.Datasource.Dataset.EOF) then
  begin
 MessageDlg('Erreur : Votre tableau est vide '
                +#10#13+''+DecimalSeparator, mtError, [mbOk], 0);
 
  ExcelApplication.Visible := false;
  Application.Terminate;
 
end
else
begin
DBGrid1.Datasource.Dataset.First;
 while not DBGrid1.DataSource.DataSet.EOF do
         begin
           for row :=0 to DBGrid1.DataSource.DataSet.FieldCount -1 do
            begin
            Sheet.Cells[column+2,row+1]:=DBGrid1.DataSource.DataSet.Fields[row].Value;
            end;
                PFE_List.next;
                column:=column+1;
         end;
           end ;
              end;

merci d'avance

22/07/2019, 11h27
SergioMaster

Bonjour,

Citation:

Envoyé par Nechba

je travaile avec delphi 2.0 et Paradox

Et moi qui croyais être obsolète avec mes programmes D3 :ptdr:

Citation:

j'utilise Dataset et un tableau et je voudrai exporter mon dbgrid sauf que les chmps a selectione

Je présume que vous voulez dire les lignes sélectionnées, auquel cas la question serait plutôt : "Comment savoir si ma ligne est sélectionnée ou non ?"
si c'est le cas, un petit tour dans la FAQ https://delphi.developpez.com/faq/?p...-sur-un-DBGrid vous donne la réponse
22/07/2019, 11h48
Nechba

2 pièce(s) jointe(s)

Merci SergioMaster
mais tu n'a pas compris j'aime Exporter sauf que le champs selectionne ver Excel
j'aime pas conne est ce que Comment savoir si ma ligne est sélectionnée ou non
voila un exsemple :

Pièce jointe 492717 Pièce jointe 492719

Au contraire, et l'image me le confirme, j'ai bien compris et la faq indiquée y répond.

Au lieu de faire une boucle sur l'ensemble des lignes de votre DataSet while not DBGrid1.DataSource.DataSet.EOF doil vous faut appliquer ce qui est indiqué dans la FAQ
Code:

1 2 3 4 5 6 7 8 With DBGrid1 Do Begin for i:=0 to SelectedRows.Count-1 do begin DataSource.DataSet.GotoBookmark(pointer(SelectedRows.Items[i])); // se positionne sur l'enregistrement // ajouter ici le code pour mettre dans les cellules end; end;

1 pièce(s) jointe(s)

je creér un autre button et je le nome ExporteselcClicket voila le code mais il ne marche pas .
Il sauvgarde sauf que le ligne 1 de Titre

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
39
40
41
42
 
procedure TFSaiPFE.ExporteselcClick(Sender: TObject);
var
 ExcelApplication : variant;
 Sheet : variant;
 column, row : integer;
 I,J: Integer ;
begin
 try
  begin
   ExcelApplication := CreateOleObject('Excel.Application');
   ExcelApplication.Visible := true;
  end;
 except
  Showmessage('Cannot create an Excel file, make sure that MS Excel is installed on your system');
  Application.Terminate;
 end;
     ExcelApplication.WorkBooks.Add(-4167);
     ExcelApplication.WorkBooks[1].WorkSheets[1].Name := 'my data';
     Sheet := ExcelApplication.WorkBooks[1].WorkSheets['my data'];
  for I:=1 to DBGrid1.DataSource.DataSet.FieldCount do
    begin
    Sheet.Cells[1,I]:=PFE_List.Fields[I-1].FieldName;
    End;
 column:=0;
 
 
begin
DBGrid1.Datasource.Dataset.First;
 With DBGrid1 Do
  Begin
    for i:=0 to SelectedRows.Count-1 do
    begin
      DataSource.DataSet.GotoBookmark(pointer(SelectedRows.Items[i])); // se positionne sur l'enregistrement
      // ajouter ici le code pour mettre dans les cellules
                PFE_List.next;
                column:=column+1;
   end;
 end;
 
            end;
           end;

2 pièce(s) jointe(s)

bon je modifier le code et j'ajoute un ligne mais le résultat n'est pas atteint :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
DBGrid1.Datasource.Dataset.First;
 With   DBGrid1 Do
  Begin
    for i:=0 to SelectedRows.Count-1 do
    begin
      DataSource.DataSet.GotoBookmark(pointer(SelectedRows.Items[i]));
     // se positionne sur l'enregistrement
      // ajouter ici le code pour mettre dans les cellules
       Sheet.Cells[column+2,row+1]:=DBGrid1.DataSource.DataSet.Fields[row].Value;
 
         column:=column+1;
         PFE_List.next;
 
   end;
 
 end;
      PFE_List.next;
       column:=column+1;
 
            end;

Parce que vous ne prenez pas en compte le fait qu'il faut le faire pour chaque champ d'une ligne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
var l,c : integer;   // l pour ligne, c pour colonne 
begin 

DBGrid1.Datasource.Dataset.First; // inutile
 With   DBGrid1 Do
  Begin
    for l:=0 to SelectedRows.Count-1 do
    begin
      DataSource.DataSet.GotoBookmark(pointer(SelectedRows.Items[l]));
      for c:=0 to DBGrid1.DataSource.DataSet.FieldCount -1 do Sheet.Cells[l+2,c+1]:=DBGrid1.DataSource.DataSet.Fields[c].Value;
    end;

22/07/2019, 14h53
Nechba

un très grand merci à vous. SergioMaster
merci Bien
22/07/2019, 16h35
SergioMaster

Citation:

Envoyé par Nechba

un très grand merci à vous.

un petit :plusser: sur le post qui a permis de vous en sortir c'est encore mieux qu'un merci puisque cela donne une piste pour les futurs lecteurs de la discussion