comment enregistrer un fichier CSV en format XLS

Marsh Posté le 03-02-2004 à 22:07:44

Salut à tous.

j'ai un ti soucis, je n'arrive à obtenir une fichier EXCel à partir d'un csv. Pourtant j'ai suivi à la lettre la Méthode Double "S".

Code :

Var
//* je déclare les variables pour EXCEL *//
ExcelApp, ExcelWbs, ExcelWb, ExcelWs : OleVariant;
aFileName, NomFeuille : AnsiString ;
Fichier_Select : AnsiString;
vUnused, vSeparator : variant ;
Begin
Fichier_Select := 'c:\Autodraw_2004\voute.csv';
vUnused := unassigned ;
vSeparator := 4;
try
ExcelApp := CreateOleObject('Excel.Application');
except
ExcelApp := CreateOleObject('Excel.Application');
end ;
ExcelWbs := ExcelApp.Workbooks;
ExcelWb := ExcelWbs.Open(Fichier_Select, vUnused, vUnused, vSeparator);
ExcelWb := ExcelWb.SaveAS('c:\Autodraw_2004\voute.xls');

à la fin j'obtient un fichier avec extension xls. mais les valeurs sont pas correctement rangés dans un CSV.

Merci de votre aide précieuse.
@bientôt

---------------
TUPAC REST IN PEACE

Reply

Marsh Posté le 03-02-2004 à 22:07:44

Reply

Marsh Posté le 04-02-2004 à 11:36:00

try
ExcelApp := CreateOleObject('Excel.Application');
except
ExcelApp := CreateOleObject('Excel.Application');
end ;

[:figti] c'est intéressant comme approche :
"Essaie de créer un objet. Si ça plante, réessaie, on sait jamais que ce coup-ci ça marche"

C'est clairement pas ça la source du problème, mais bon, c'est bizarre ton truc.
(pour ce qui est du vrai problème, je ne peux pas t'aider, désolé)

Message édité par antp le 04-02-2004 à 11:37:49

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 04-02-2004 à 11:51:52

Bien vu antp

Citation :

j'ai un ti soucis, je n'arrive à obtenir une fichier EXCel à partir d'un csv. Pourtant j'ai suivi à la lettre la Méthode Double "S".

Sinon, c'est quoi la méthode du Double "S" ?

Reply

Marsh Posté le 04-02-2004 à 18:33:12

Salut, la méthode du double "S", c'est une expression à la noix de coco que j'utilise, pour dire que c'est Spécial (dont avec un S" )...d'où le double S, ça veut dire que c'est encore plus spécial que le simple spécial...

Voilà, l'expression du PIERROT !!en clair ça veut rien dire.

Sinon, g contourné le prob en me penchant sur les contrôles TExcelApplication, TExcelWorkbook....via l'onglet Serveur.

ça me donne un résultat par mauvais finalement.

PS : Si ça continue ANTP, j'atteindrait le courant d'air de ta cheville, et je serais aussi doué toi. d'ici 5ans.

@+ les gens

---------------
TUPAC REST IN PEACE

Reply

Marsh Posté le 15-06-2005 à 09:56:39

vannily a écrit :

Salut à tous.

j'ai un ti soucis, je n'arrive à obtenir une fichier EXCel à partir d'un csv. Pourtant j'ai suivi à la lettre la Méthode Double "S".

Code :

Var
//* je déclare les variables pour EXCEL *//
ExcelApp, ExcelWbs, ExcelWb, ExcelWs : OleVariant;
aFileName, NomFeuille : AnsiString ;
Fichier_Select : AnsiString;
vUnused, vSeparator : variant ;
Begin
Fichier_Select := 'c:\Autodraw_2004\voute.csv';
vUnused := unassigned ;
vSeparator := 4;
try
ExcelApp := CreateOleObject('Excel.Application');
except
ExcelApp := CreateOleObject('Excel.Application');
end ;
ExcelWbs := ExcelApp.Workbooks;
ExcelWb := ExcelWbs.Open(Fichier_Select, vUnused, vUnused, vSeparator);
ExcelWb := ExcelWb.SaveAS('c:\Autodraw_2004\voute.xls');

à la fin j'obtient un fichier avec extension xls. mais les valeurs sont pas correctement rangés dans un CSV.

Merci de votre aide précieuse.
@bientôt

QQun a t il fait l operation inverse ? enregistrer un xls en csv ? a mon sens ca a plus d interet

[edit] ce que je veux dire, c surtout comment passer outre le message que met excel bien souvent pour conserver ou non le format du doc.

Message édité par mkracing66 le 15-06-2005 à 10:00:21

Reply

Marsh Posté le 15-06-2005 à 10:46:13

bon ben juste pour ceux qui auraient le meme pb que moi :

=> vXLWorkbook.SaveAs(ExtractFilePath(edtEXCEL.Text)+'MonFichier.csv', 6)

g trouve la solution a partir d un ex de VB !!! rien trouve sur le net pour delphi :'(

6 etant une constante pour le fileformat (csv)

Reply

comment enregistrer un fichier CSV en format XLS

Sujets relatifs:

Leave a Replay