comment enregistrer un fichier CSV en format XLS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : comment enregistrer un fichier CSV en format XLS

vannily

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

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

jagstang

Pa Capona ಠ_ಠ

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" ?

vannily

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

mkracing66

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

mkracing66

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)

FORUM HardWare.fr

Programmation

Delphi/Pascal

comment enregistrer un fichier CSV en format XLS

Sujets relatifs
[XML] créer un fichier XML	ASP - PHP : effacer un fichier, pb de droits
quelle librairie pour segmenter/réassembler un fichier lors d'un envoi	Taille d'un fichier ??
[HELP] Données Access a mettre à jour via un fichier excell	[java] envoie de fichier XML entre 2 clients
[PHP] Mettre 1 fonction par fichier ???	[delphi] listing de fichier et sous-repertoires sans recursif ?
Problème d'ouverture de fichier	Comment copier un fichier > 32 Ko ds une BD SQL ???
Plus de sujets relatifs à : comment enregistrer un fichier CSV en format XLS

Page générée en 0.036 secondes