Discussion :

[ac/dc]

Bonjour,

J'utilise la méthode suivante pour exporter un TStringGrid vers une feuille Excel : http://delphi.developpez.com/faq/?pa...tringgridexcel

Le problème est qu'à l'ouverture du fichier généré, beaucoup de caractères parasites sont présents dans mes valeurs exportées (Ce sont des carrés).

Exemple : "Vide" est écrit dans Excel : V<carré>i<carré>

Je ne sais pas d'où peut venir le problème ?

Je suis sous Delphi XE.

Merci

[tourlourou]

problème d'AnsiString et Unicode ?

[ac/dc]

Bonjour,

Merci pour ta réponse. Ce paramétrage peut se voir où ? Vous gérez l'encodage depuis le composant "TFileStream" ?

Merci

[ac/dc]

J'ai trouvé la réponse.

Dans la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);

Remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XlsStream.WriteBuffer(Pointer(AValue)^, L);

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XlsStream.WriteBuffer(Pointer(AnsiString(AValue))^, L);

[PhilLU]

De fait il faut remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
  const AValue: string);

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
  const AValue: Ansistring);

Excel me donne toutefois un message d'avertissement à l'ouverture du fichier créé

Le processus Validation de fichier Office a détecté un problème à l ouverture de ce fichier. Son ouverture risque d être dangereuse.

???

Par ailleur si quelqu'un peut me dire comment sauver les données dans une autre feuille que la feuille1?



Merci,
PhilLu

[Linkin]

C'est un vieux format d'excel (excel 5.0 je crois) qui compte des failles de sécurité. Donc pas possible d'enlever l'avertissement à l'ouverture (sauf peut-être en configurant Excel, mais déconseillé).

Par contre je n'ai pas de solution gratuite pour un export vers excel. (peut-être passer par du csv).