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 delphi 2.0 : 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 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
Partager