[OLE][Excel] Charger un fichier csv

Version imprimable

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:

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

12/04/2006, 14h52
Djob

je pense que c'est ici :

Code:

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(...)
12/04/2006, 15h20
niglo

Citation:

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:

WideString = "monAnsiString";

et tu auras un wchar_t* (enfin dans mes souvenirs)
12/04/2006, 17h19
bandit boy
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:

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

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.
12/04/2006, 22h17
Ricky81

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
13/04/2006, 09h20
bandit boy

En effet, j'avais un soucis de ce côté là :oops: , 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. :?:
13/04/2006, 09h55
Ricky81

Bonjour,

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

Eric

Salut,
Voilà mon 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
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

18/04/2006, 19h29
bandit boy

Vois-tu ce qui ne vas pas Ricky?
18/04/2006, 19h42
Ricky81

Rajoutes un

Code:

ShowMessage(chemin);

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

Code:

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

Mais finalement, où se trouve ton fichier ?

Eric
26/04/2006, 15h16
bandit boy

Excuse moi pour le retard :oops:
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.

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:

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é

16/05/2006, 17h58
bandit boy
Merci COLIN pour ton aide, mais malheureusement cela ne marche pas plus. :cry:
Je charge un fichier csv et ma commande est la suivante:
Code:

1 2 vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, Unassigned, Unassigned, 4);
L'erreur ne pourrait elle aps venir de là?
16/05/2006, 20h40
blondelle

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

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:

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é

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:

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");
}

18/05/2006, 12h01
bandit boy

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.
:merci:

Bonjour,
j'ai utilisé le code de blondelle :
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 #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