Excel csv choisir séparateur

Version imprimable

Bonjour,
Je voudrai charger un csv, j'ai vu du code :
Code:

1 2 3 4 5 6 vFileName = "C:\\test2.csv"; vNotUsed = Unassigned; vSeparator = 4; vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed,vSeparator);
Mon fichier est séparé par des points virgules mais quand j'enregistre en fichier excel il me met tout dans la première colonne donc tous les champs sont regroupés dans la première colonnes avec les points virgules.
Donc comment faire les amis ?
Merci d'avance.

21/07/2006, 17h32
bandit boy

en fait, tu l'enregistre avec l'extension CSV normalement excel ouvre directement avec comme séparateur ;
sinon il y a un menu spécifique lorsque d'excel un fichier txt.
22/07/2006, 23h15
blondelle

Un lien dans la FAQ

Citation:

http://www.developpez.net/forums/sho...ghlight=dbgrid

je pense que tu va trouver ce que tu veux
apparament il y a enbiguite entre la valeur 2 et 4 du separateur ";" fait un essai

ok,
mais en fait je voudrais ouvrir un csv pour l'enregistrer aussitôt en xls :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true); Variant vFileName, vNotUsed, vSeparator; vFileName = "C:\\test.csv"; vNotUsed = Unassigned; vSeparator = 1; vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vSeparator); vXLWorkbook.OleProcedure("Saveas", "C:\\test.xls");
Donc l'instance Excel apparaît comme il le faut (c'est à dire avec les champs bien séparés et au nom de test.csv
Puis dans la suite du code il y a vXLWorkbook.OleProcedure("Saveas", "C:\\test.xls");

qui m'enregistre bien ce fichier mais quand je l'ouvre tout apparaît avec une seule colonne dans laquelle il y a les valeurs séparé par des points virgules

Donc comment faire ?

J'ai fais un essai qui fonctionne apparement chez moi
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Variant vMSExcel, vXLWorkbooks, vXLWorkbook;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vNotUsed, vSeparator;

vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.csv";
vNotUsed = Unassigned;
vSeparator = 1;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed,
vNotUsed, vSeparator);
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}

c'est la declaration du chemin de sauvegarde que j'ai change

24/07/2006, 16h29
blondelle

J'ai crie victoire trop vite cela fait comme chez toi je cherche une solution.

On peut y arriver je l'ai fait en VBE
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 24/07/2006 par blondelle ' ' ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\blondelle\Mes documents\plan_gps\PLAN_GPS\télégraphe.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
par contre je ne sais pas le reprendre en BCB, dans le code il y a des extensions apres le nom de chemin
l'extension de la sauvegarde est "Classeur Microsoft Office Excel"

Ce coup ci j'ai vraiment trouve je joint le code
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Variant vMSExcel, vXLWorkbooks, vXLWorkbook;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vNotUsed, vSeparator, FileFormat;

vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.csv";
vNotUsed = Unassigned;
vSeparator = 1;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed,
vNotUsed, vSeparator);
FileFormat = -4143;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat);
}
//---------------------------------------------------------------------------

si tu regarde le code VBE c'est tres similaire quand on est en debugage sur le code VBE quand on pointe le curseur on a la valeur de la variable ici "FileFormat = -4143"
tu peu meme ajouter un mot de passe il faut le confirmer c'est tout.

26/07/2006, 14h57
sony351

Grand merci @ MONSIEUR blondelle
T'aurais pas de la doc?
Y'en avait une avant sur developpez.net mais j'la trouve plus dans les tutos
Encore merci.
26/07/2006, 18h17
blondelle

sony351 a ecrit:

Citation:

Grand merci @ MONSIEUR blondelle
T'aurais pas de la doc?
Y'en avait une avant sur developpez.net mais j'la trouve plus dans les tutos
Encore merci.

Pas de quoi mais "Monsieur" est de trop.
Pour la Doc je confirme ce qui a deja ete dit il n'y en a pas si tu veux faire des recherches il y a essentiellement des exemples sous delphie, si tu veux lancer des recherches fait les avec "ole word" ou "automation word" il y a quelques site en allemand sinon tu peu t'inspirer d'un code VBE c'est dailleurs ce que j'ai fait, et le dernier recour c'est le FORUM.

Oui Merci
mais là j'ai un nouveau souci, en effet csv c'est bien mais le souci c'est que quand j'enregistre en xls avec le bon format et tout et tout ça marche sauf qu'il me fait sauter mes zéro devant dans mes céllules pour des numéros de téléphone par exemple
alors j'essais avec du txt tt en regardant les exemples sous delphie mais là je bloque avec Array
Code:

1 2 3 4 5 Workbooks.OpenText Filename:="E:\MD3\TEMP\Classeur1.txt", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), _ Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Comment transformer ça en C++

31/07/2006, 20h00
blondelle

Sous Excel en VBE
le code

Citation:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 31/07/2006 par blondelle
'

'

' Met au format Text les cellules A1 jusque A14
Range("A1:A14").Select
Selection.NumberFormat = "@"

' Met au format Text la colonne B
Columns("B:B").Select
Selection.NumberFormat = "@"

End Sub
31/07/2006, 20h35
blondelle

Un lien sur la FAQ pour modifier le format d'une cellule

Citation:

http://c.developpez.com/faq/bcb/?pag...xcelcellformat

la modification doit se faire avant de charger le fichier