Excel csv choisir séparateur

**sony351** · 21/07/2006, 14h31

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

Code :

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

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.

**bandit boy** · 21/07/2006, 17h32

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.

**blondelle** · 22/07/2006, 23h15

Un lien dans la FAQ

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

**sony351** · 24/07/2006, 14h20

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

Code :

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

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 ?

**blondelle** · 24/07/2006, 16h08

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

Code :

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

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

**blondelle** · 24/07/2006, 16h29

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

**blondelle** · 24/07/2006, 16h39

On peut y arriver je l'ai fait en VBE

Code :

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

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"

**blondelle** · 24/07/2006, 19h53

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

Code :

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

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.

**sony351** · 26/07/2006, 14h57

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.

**blondelle** · 26/07/2006, 18h17

sony351 a ecrit:

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.

**sony351** · 31/07/2006, 19h39

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 :

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

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++

**blondelle** · 31/07/2006, 20h00

Sous Excel en VBE
le code

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

**blondelle** · 31/07/2006, 20h35

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

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

la modification doit se faire avant de charger le fichier

Excel csv choisir séparateur

C++Builder

Discussions similaires

Partager

Partager