[OLE][Excel] Charger un fichier csv

**bandit boy** · 12/04/2006, 11h52

Bonjour,
Je souhaite charger un fichier csv à partir de mon application. En me basant sur les tutoriaux et les explications de Ricky81, j'ai fais le code suivant:

Code :

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

1
2
3
4
5
6
7
8
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement
vNotUsed = Unassigned;
vSeparator = 4; //séparation par des ';'
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vSeparator);

Je me retrouve avec une erreur "Type de variable incorrecte" lors de l'éxécution de ce code.
Je ne vois pas d'où viens l'erreur ni quel est la variable incorrecte.
Si quelqun vois le soucis, je suis tout ouïe.
Merci d'avance

**Djob** · 12/04/2006, 14h52

je pense que c'est ici :

Code :

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

vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement

il faut d'abord convertir tout AnsiString ou String en chaine de caratere unicode (wchar_t*)
pour cela on utilise habituellement la fonction StringToOleStr(...)

**niglo** · 12/04/2006, 15h20

Envoyé par Djob

il faut d'abord convertir tout AnsiString ou String en chaine de caratere unicode (wchar_t*) pour cela on utilise habituellement la fonction StringToOleStr(...)

Ou alors tu peux faire

Code :

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

WideString = "monAnsiString";

et tu auras un wchar_t* (enfin dans mes souvenirs)

**bandit boy** · 12/04/2006, 17h19

Tout d'abord merci de m'avoir répondu.
J'ai essayé ces deux lignes suivantes mais aucune n'a d'effet bénéfique.

Code :

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

1
2
3
 
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
    vFileName = WideString (chemin); //nom complet de l'emplacement

ou

Code :

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

1
2
3
 
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
    vFileName = StringToOleStr(chemin); //nom complet de l'emplacement

En effet je n'ai plus la même erreur, maintenant j'ai "une exception s'est produite".
Lorsque je regarde dans le "sysvari.h" l'éxécution de la fonction appelée par OleFunction la variable arg possède une valeur à {????} alors que tous les paramètres sont renseignés.

**Ricky81** · 12/04/2006, 22h17

Bonsoir,

j'ai reproduit ton problème. Il s'agit à priori du fichier qui n'existe pas.
En tout cas j'ai fais un test avec une adresse de fichier existant (ca passe) et un autre avec une mauvaise adresse (ca donne ton erreur).

Bon courage

Eric

**bandit boy** · 13/04/2006, 09h20

En effet, j'avais un soucis de ce côté là

, mais ce qui m'inquiète c'est que même ce point corrigé, je n'arrive toujours pas à ouvrir excel.
Il se produit la même erreur.

:

**Ricky81** · 13/04/2006, 09h55

Bonjour,

peux tu mettre ton code "complet" (enfin on se comprend j'espère) ?

Eric

**bandit boy** · 13/04/2006, 11h54

Salut,
Voilà mon 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
    static bool excel;
/*
    try
    {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
    }
    catch(...)
    {
        vMSExcel = Variant::CreateObject("Excel.Application");
    }
*/
    if(!excel)
    {
        vMSExcel = Variant::CreateObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
        excel = true;
    }
    else
    {
        vMSExcel = Variant::GetActiveObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
    }
/*    
    vFileName = "Data\\"+nom_fichier+".csv";
    vLink = Unassigned;
    vReadOnly = true;
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vLink, vReadOnly);
    Variant vFileName, vNotUsed, vSeparator;
*/
/*
    vFileName = GetCurrentDir()+"Data\\"+nom_fichier+".csv"; //nom complet de l'emplacement
    vNotUsed = Unassigned;
    vSeparator = 4; //séparation par des ';'
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed, vSeparator);
*/
    AnsiString chemin;
    chemin = GetCurrentDir()+"Data\\"+nom_fichier+".csv";
 
    vMSExcel.OlePropertySet("SheetsInNewWorkbook", 1); //1 feuille à l'ouverture
//    vFileName = WideString (chemin); //nom complet de l'emplacement
    vFileName = StringToOleStr(chemin); //nom complet de l'emplacement
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, Unassigned, 4);

En commentaire, tu peux voir les méthodes que j'ai essayé qui ne fonctionne pas.
Je n'ai pas non plus réussi à récupérer l'instance ouverte d'excel, ce qui explique mon booléen me permettant de me faire mon instance et de travailler dessus.

Si tu vois le problème, je t'acoute car j'aimerais bien comprendre pourquoi cela ne fonctionne pas.
Merci de t'inquiéter de mon problème

**bandit boy** · 18/04/2006, 19h29

Vois-tu ce qui ne vas pas Ricky?

**Ricky81** · 18/04/2006, 19h42

Rajoutes un

Code :

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

ShowMessage(chemin);

Quelque chose me dit que tu devrais plutôt écrire :

Code :

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

chemin = GetCurrentDir()+"\\Data\\"+nom_fichier+".csv";

Mais finalement, où se trouve ton fichier ?

Eric

**bandit boy** · 26/04/2006, 15h16

Excuse moi pour le retard

Mon fichier se trouve dans un répertoire "Data" situé lui même dans le répertoire courrant de l'application.
J'ai modifié et rajouté le "\\" devant Data, et en effet ca ne devait pas arranger les chose, mais le problème est toujours présent.

**COLIN** · 15/05/2006, 19h20

Bonjour,

J'ai eu le même pb en voulant charger des noms de fichier Excel
à partir d'un .INI

Le pb est le passage AnsiString->Variant

Voici comment je l'ai résolu (pgm simplifié):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 AnsiString FileName2 = "test.xls" ;
// en réalité c'était chargé à partir du .INI
AnsiString FileName1 = "C:\\DATA\\" ;
WideString = FileName = FileName1 + FileName2 ;
 
Variant VFileName = FileName.c_bstr() ; // il s'agit bien de c_bstr() !!!!
 
//Et à partir de là tu peux ouvrir avec un classique
 
vXLWorkbook = vXLWorkbooks.OleFunction("Open",vFileName,vLink)
// pour moi

J'espère que ça marchera aussi bien pour toi

A+

René

**bandit boy** · 16/05/2006, 17h58

Merci COLIN pour ton aide, mais malheureusement cela ne marche pas plus.

Je charge un fichier csv et ma commande est la suivante:

Code :

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

1
2
 
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, Unassigned, 4);

L'erreur ne pourrait elle aps venir de là?

**blondelle** · 16/05/2006, 20h40

dans la faq on utilise vWorkbook et non pas vXLWorkbook est ce que cela aurait une importance ? en esperant t'aider

**COLIN** · 17/05/2006, 18h38

Salut bandit boy,je n'avais pas encore eu l'occasion de charger des.csvgrace a toi c est fait

Le bout de pgm suivant marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Variant vMSExcel , vLink , vSeparator;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
vMSExcel= Variant::GetActiveObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
vLink =0 ;
vSeparator = 4;
Variant vFileName, vXLWorkbooks, vXLWorkbook ;
vFileName = "I:\\Myprojects\\Excelcsv\\Biotest.csv";
vXLWorkbooks= vMSExcel.OlePropertyGet("Workbooks") ;
ShowMessage("Avant load");
vXLWorkbook= vXLWorkbooks.OleFunction("Open",vFileName,vLink,Unassigned,4) ;
ShowMessage("Apres load");

Tu devrais dans un premier temps ecrire le path deton file en dur
( dans ton pgm comme j'ai fait) si ca passe pas et que le path est bon !
c'est l open qui marche pas
Si pas de pb alors tu peux essayer de creer le path de maniere
dynamique ( comme dans ton pgm par exemple)
Mais de maniere générale il vaut mieux serier les pb
Ici en fait on ne sait pas trop si c est au niveau du filename
ou de la fonction open que ca merde

En tout cas je t assure que le pgm ci-dessus fonctionne donc
il n y a pas de raison que ca ne tourne pas pour toi

A+

René

**blondelle** · 18/05/2006, 00h10

j'ai effectue un essai pour moi ca fonctionne chez moi vois ce que tu peut faire avec j'utilise la boite de dialogue excel ouvrir pour prendre le nom du fichier il est possible d'ajouter un filtre pour les extensions des fichiers *.TXT ou *.CVS ...

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
32
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
 
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Variant vMSExcel , vLink , vSeparator;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
vMSExcel= Variant::GetActiveObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
ExcelApplication1->Connect();
Variant vFileName, vXLWorkbooks, vXLWorkbook ;
Variant title = StringToOleStr("Ouverture Fichier"); // titre à donner à la boite de dialogue
Variant multiselect = true; // selection multiple autorisée
vFileName = ExcelApplication1->GetOpenFilename(EmptyParam, EmptyParam, title, EmptyParam, multiselect, 0);
vLink =0 ;
vSeparator = 4;
vXLWorkbooks= vMSExcel.OlePropertyGet("Workbooks") ;
//ShowMessage("Avant load");
vXLWorkbook= vXLWorkbooks.OleFunction("Open",vFileName); //,vLink,Unassigned,4) ;
//ShowMessage("Apres load");
}

**bandit boy** · 18/05/2006, 12h01

Tout d'abord merci !
J'ai tenté de faire la fonction donnée par COLIN, mais rien n'y fait, je n'arrive toujours pas à ouvrir mon fichier. J'obtiens toujours la même erreur "une exception c'est produite".
Cependant, la méthode utilisée par blondelle fonctionne chez moi, comme quoi j'ai un problème à l'ouverture de mon fichier.
Je vais partir, je pense, dans cette dernière direction.
Merci encore à vous tous de vous être intéressé à mon cas.

**fastzombi** · 29/05/2006, 08h43

Bonjour,
j'ai utilisé le code de blondelle :

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
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
 
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Variant vMSExcel , vLink , vSeparator;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",false);
ExcelApplication1->Connect();
Variant vFileName, vXLWorkbooks, vXLWorkbook ;
vLink =0 ;
vSeparator = 4;
vXLWorkbooks= vMSExcel.OlePropertyGet("Workbooks") ;
vFileName="e:\\Bank.xls";
vXLWorkbook= vXLWorkbooks.OleFunction("Open",vFileName); //,vLink,Unassigned,4) ;
}

avec quelques petites modification le nom du fichier est dans le source et je n'affiche pas la fenetre excel!
J'ai essayé en l'affichant et ca marche tres bien!
sauf que la je voudrais acceder au colonnes du fihcier!! comment faire ?
je veux par exemple mettre les données de la colonne numéro1 dans un tableau ou bien afficher cette colonne dans un Mémo.
ex: memo1->lines->ADD(IntToStr(ExcelApplication1->feuille1->colonne[1,1])); //un truc du genre
je veux pouvoir extraire les données d'un fichier et les utiliser ensuite.
Merci

[OLE][Excel] Charger un fichier csv

C++Builder

Discussions similaires

Partager

Partager