Discussion :

[sony351]

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]

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]

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]

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]

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]

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

[blondelle]

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]

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.