exportation DBgrid vers EXcel

Question

bonjour à tous

je veux exporter mon dbgrid vers MSExcel, bon j'ai réussi de faire ça dans une seule feiulle Excel mais j'arrive pas à exporter dans différentes feuilles excel selon un critér donné

par exemple :
je fais une requets SQL sur une table ado PUIS j'exporte le contenu de DBGrid qui correspond à la requete dans une feuille EXcel et ainsi de suite (chaque critére de la requete SQl sera affiché dans une feuille Excel)

merci pour votre aide

tiaret2005 · Answer

meri

cs_MohInfo · Answer

bonsoir
j'ai pas compris votre réponse monsieur tiaret 2005

l'essentiel moi j'ai réussi d'exporter la DBGrid vers excel avec le composant TJVExelExport (exportation simple )mais j'arrive pas à faire cette procédure dans différentes feuilles excel

merci pour votre aide

giorhof · Answer

Bonsoir
Mohinfo, Etant un débutant dans la programmation, pourriez vous me décrire comment paramétrer le TJVExelExport pour générer le fichier excel avec les données dans la base?
merci d'avance
giorhof

laoubiadel · Answer

procedure TForm1.Button2Click(Sender: TObject);
var Tab: _workbook;
    Feuil: _worksheet;
    i,j:Integer;
    S:shortstring;

begin

try
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=False;
Tab:=ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
ExcelApplication1.Visible[0]:=true;
feuil:=Tab.Worksheets[1] as _worksheet;
 case RadioGroup1.ItemIndex of
 0:begin
      For i:=0 to DBGrid1.Columns.Count-1 do begin
        with Feuil.Range[A[i+1]+'1',A[i+1]+'1'] do begin
        Value[xlRangeValueDefault]:= DBGrid1.Columns.Items[i].Title.Caption;
        Font.Name:='times new roman';
        Font.Size:=10;
        Font.Bold:=True;
         With Interior do begin
              ColorIndex := 15;
              Pattern := xlSolid;
              PatternColorIndex := xlAutomatic;
          End;
        With Borders do begin
              LineStyle := xlContinuous;
              Weight := xlThin;
              ColorIndex := xlAutomatic;
          End;
          end;
       end;
         j:=2;
      Table1.First;
      While not Table1.Eof do begin
      For i:= 1 To  DBGrid1.Columns.Count Do begin
         s:=A[i]+inttostr(j);
       Feuil.Range[s,s].Value[xlRangeValueDefault] :=DBGrid1.Fields[i-1].AsString;
       end;
       Table1.Next;
       j:=j+1;
      end;
  end;
  1: begin
      For i:=0 to Table1.FieldCount-1 do begin
          with Feuil.Range[A[i+1]+'1',A[i+1]+'1'] do begin
          Value[xlRangeValueDefault]:= Table1.Fields.Fields[i].FieldName;
          Font.Name:='times new roman';
          Font.Size:=10;
          Font.Bold:=True;
           With Interior do begin
                ColorIndex := 15;
                Pattern := xlSolid;
                PatternColorIndex := xlAutomatic;
            End;
          With Borders do begin
                LineStyle := xlContinuous;
                Weight := xlThin;
                ColorIndex := xlAutomatic;
            End;
            end;
          end;
        j:=2;
        Table1.First;
       While not Table1.Eof do begin
        For i:= 1 To  Table1.FieldCount Do
         begin
         s:=A[i]+inttostr(j);
         Feuil.Range[s,s].Value[xlRangeValueDefault] :=Table1.Fields.Fields[i-1].AsString;
         end;
         Table1.Next;
         j:=j+1;
        end;
   end;
   end;     
 finally
    ExcelApplication1.Cells.Select;
    ExcelApplication1.Columns.AutoFit;
    ExcelApplication1.Range['A1','A1'].Select;
    ExcelApplication1.Disconnect;
   end;

end;
--------------------------
button pour spécifier la translation dbgrid ver excel
-----------------------------------------

Exportation DBgrid vers EXcel

4 réponses

Votre réponse

Discussions similaires