Exporter des données vers Excel
kam_2006
- Messages postés
- 49
- Date d'inscription
- vendredi 13 janvier 2006
- Statut
- Membre
- Dernière intervention
- 29 novembre 2010
- Messages postés
- 2
- Date d'inscription
- mardi 25 décembre 2018
- Statut
- Membre
- Dernière intervention
- 25 décembre 2018
A voir également:
- Delphi export to excel
- Delphi export excel - Meilleures réponses
- Delphi excel export - Meilleures réponses
- Visual Basic / VB.NET : [.net] export dataset to excel - CodeS SourceS - Guide
- Visual Basic / VB.NET : Importer et exporter avec excel - CodeS SourceS - Guide
- Delphi / Pascal : Piloter excel depuis delphi - CodeS SourceS - Guide
- Export feuil excel en html qui fonctionne - Codes sources - Visual Basic / VB.NET (VBA)
- Delphi / Pascal : Delphi colors to html colors - CodeS SourceS - Guide
13 réponses
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
- Messages postés
- 298
- Date d'inscription
- mercredi 5 septembre 2007
- Statut
- Membre
- Dernière intervention
- 6 janvier 2011
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
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
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
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
Mais, c'est bien aussi de citer les auteurs..
cantador
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
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
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
- Messages postés
- 28
- Date d'inscription
- samedi 29 avril 2006
- Statut
- Membre
- Dernière intervention
- 11 mars 2011
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
@: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
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
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
- Messages postés
- 28
- Date d'inscription
- samedi 29 avril 2006
- Statut
- Membre
- Dernière intervention
- 11 mars 2011
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
de rien ibrahimakhalil...
cantador
cantador
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018