Exporter des données vers Excel

Question

Posez votre question Signaler

Exporter des données vers Excel

kam_2006

Messages postés: 49
Date d'inscription: vendredi 13 janvier 2006
Dernière intervention: 29 novembre 2010

- 2 févr. 2008 à 15:42 - Dernière réponse : nj18

Messages postés: 2
Date d'inscription: mardi 25 décembre 2018
Dernière intervention: 25 décembre 2018

- 25 déc. 2018 à 11:21

Delphi / Pascal Posez votre question Signaler

Bonjour à tous

J'ai une base de données sur Interbase et l'interface que j'ai utilisé est Delphi 7. j'aimerai créer un boutton qui me permettra d'exporter les données de ma table vers Excel. Ya t-il quelqu'un qui peux m'aider?

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

13 réponses

Votre réponse

Répondre au sujet

Posez votre question

cs_cantador · Answer 1 · 2008-02-02T18:03:21+0100

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 2 févr. 2008 à 18:03

0

Merci

Exporter ?

directement au fomat .xls ou
au fomat .csv ?

cantador

HAFTARIFOUAD · Answer 2 · 2008-02-02T21:47:28+0100

Signaler Commenter la réponse de HAFTARIFOUAD

HAFTARIFOUAD

Messages postés: 298
Date d'inscription: mercredi 5 septembre 2007
Dernière intervention: 6 janvier 2011

3 2 févr. 2008 à 21:47

0

Merci

Bonjour ;-)

Je t'invite de voir a source déposée sur le site: http://www.delphifr.com/codes/GESTIONNAIRE-SOUCHOTHEQUE_44958.aspx

Bon courage et bonne programmation.

haftari.fouad

cs_cantador · Answer 3 · 2008-02-02T23:17:49+0100

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 2 févr. 2008 à 23:17

0

Merci

Ton export est disons "inspiré" de la source de JodeQa, ce qui n'enlève rien à ton travail effectué sur ton gestionnaire HAFTARIFOUAD.
Mais, c'est bien aussi de citer les auteurs..

cantador

kam_2006 · Answer 4 · 2008-02-03T18:06:18+0100

Signaler Commenter la réponse de kam_2006

kam_2006

Messages postés: 49
Date d'inscription: vendredi 13 janvier 2006
Dernière intervention: 29 novembre 2010

3 févr. 2008 à 18:06

0

Merci

je veux les exporter directement au fomat .xls

Merci de m'aider.

cs_cantador · Answer 5 · 2008-02-03T22:23:30+0100

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 3 févr. 2008 à 22:23

0

Merci

cantador

cs_cantador · Answer 6 · 2008-02-03T22:29:49+0100

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 3 févr. 2008 à 22:29

0

Merci

Lors d'un export, il faut s'assurer que le fichier pourra être lu par le plus grand nombre et resté compatible avec les outils du moment (Excel, OpenOffice, etc..)
Dans cette optique, le format .csv est idéal.
Le fichier est petit et rapidement constitué.
Si tu le souhaites je te passerai des liens pour le code.

cantador

Signaler Commenter la réponse de nj18

nj18

Messages postés: 2
Date d'inscription: mardi 25 décembre 2018
Dernière intervention: 25 décembre 2018

- 25 déc. 2018 à 11:21

moi aussi j besoin de ces liens merci

cs_ibrahimakhalil · Answer 7 · 2008-09-21T16:06:18+0200

Signaler Commenter la réponse de cs_ibrahimakhalil

cs_ibrahimakhalil

Messages postés: 28
Date d'inscription: samedi 29 avril 2006
Dernière intervention: 11 mars 2011

21 sept. 2008 à 16:06

0

Merci

salut cher contador, je suis interesse par la maniere de faire cet export au format csv, je compte sur votre bonne comprehension

cs_cantador · Answer 8 · 2008-09-21T16:51:14+0200

@:ibrahimakhalil :

Bonjour,

procedure TFom1.DatasetToTextFile(ds: TDataSet; nomFichier: string; separateur: string ';'; delimiteur: char #0);
var
i: integer;
fichier: TextFile;
bm: TBookmark;
sCursor: TCursor;
valeur: string;
openDS: boolean;

begin
try
    { Création du fichier de sortie }
    AssignFile(fichier, nomFichier);
    Rewrite(fichier);
except
    on e: exception do
      raise Exception.Create('Erreur pendant la création du fichier [' + nomfichier + '] : ' +
        sLineBreak + e.message);
end;

sCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
    ds.DisableControls;
    openDS := not ds.Active;
    bm := nil;
    try
      with ds do
      begin
        if openDS then
          Open
        else
        begin
          bm := ds.GetBookmark;
          First;
        end;
        for i := 0 to FieldCount - 1 do
        begin
          if (i > 0) then
            write(fichier, separateur + ds.Fields[i].FieldName)
          else
            write(fichier, ds.Fields[i].FieldName);
        end;
        writeln(fichier);
        while not Eof do
        begin
          for i := 0 to FieldCount - 1 do
          begin
            { ajout du délimiteur si le champ est de type texte }

            if (delimiteur <> #0) and
              (Fields[i].DataType in [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString]) then

              valeur := AnsiQuotedStr(Fields[i].AsString, delimiteur)

            else
              valeur := Fields[i].Text;

//            if (Fields[i].DataType = ftMemo) or (Fields[i].DataType = ftFmtMemo) then
//              valeur := Fields[i].AsString;

            { à partir du second champ, on ajoute le séparateur }
            if (i > 0) then
              write(fichier, separateur + valeur)
            else
              write(fichier, valeur)
          end;
          writeln(fichier);
          Next;
        end;
      end;
    finally
      if openDS then
        ds.Close
      else
      begin
        ds.GotoBookmark(bm);
        ds.FreeBookmark(bm);
      end;
      ds.EnableControls;
      CloseFile(fichier);
    end;
finally
    Screen.Cursor := sCursor;
end;
end;

cantador

cs_cantador · Answer 9 · 2008-09-21T16:54:28+0200

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 21 sept. 2008 à 16:54

0

Merci

@Nix :

Bonjour,

A quand la balise de code ?

cantador

cs_ibrahimakhalil · Answer 10 · 2008-09-22T22:45:18+0200

Signaler Commenter la réponse de cs_ibrahimakhalil

cs_ibrahimakhalil

Messages postés: 28
Date d'inscription: samedi 29 avril 2006
Dernière intervention: 11 mars 2011

22 sept. 2008 à 22:45

0

Merci

Merci pour la réponse, je vais executer et vous tenir informer du résultat dont j'obtinedrai
merci d'avance

cs_cantador · Answer 11 · 2008-09-23T17:07:02+0200

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 23 sept. 2008 à 17:07

0

Merci

de rien ibrahimakhalil...

cantador

leo1982 · Answer 12 · 2009-07-29T12:24:19+0200

Signaler Commenter la réponse de leo1982

leo1982

Messages postés: 2
Date d'inscription: samedi 2 août 2008
Dernière intervention: 13 juin 2016

29 juil. 2009 à 12:24

0

Merci

léo
merci pour votre aide

cs_cantador · Answer 13 · 2009-07-29T14:51:07+0200

Signaler Commenter la réponse de cs_cantador

cs_cantador

Messages postés: 4996
Date d'inscription: dimanche 26 février 2006
Dernière intervention: 27 mars 2018

15 29 juil. 2009 à 14:51

0

Merci

ibrahimakhalil serait devenu leo1982 ?

cantador

Exporter des données vers Excel

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !