OVH Cloud OVH Cloud

pilotage excel et le type Variant

2 réponses
Avatar
Olivier
Bonjour

j'ai un probleme a l'excecution sur cette ligne :
outils BCB6 eval entreprise + Win98 1 version

Code:
vWorkbook=vWorkbooks.OleFunction"Open",vWorkbook=vWorkbooks.OleFunction("Ope
n",vFileName,vLink,vReadOnly);,vLink,vReadOnly);


si je fais un cast avec un AnsiStirng(vFileName)

BCB me reponds ---------------------------
Notification d'une exception du débogueur
Le projet Project1.exe a provoqué une classe d'exception EOleSysError avec
le message 'Type de variable incorrect'. Processus stoppé. Utilisez
Pas-à-pas ou Exécuter pour continuer.

le probleme est que je veux recuperer mon chemin a partir d'un boite de
dialogue ou d'un TEdit est chaque fois cela plante

j'ai aussi essaye des trucs du genre Code:

vFileName=Variant(ed->Text);//==> plante (TEdit *ed)

idem si je passe en parametre dans ma fonction
Code:
void TForm1::ReadXls(Variant file)

cela plante


par contre si je fais en dur
Code:
Variant vFileName
VfileName="C:\\Classeur1.xls";

tout passe

auriez vous une idee car j'ai pas de code deja je suis desespere


merci encore de votre aide
_________________
Cordialement,
Sarda Olivier
_________________________________
Site Web :
http://www.membres.lycos.fr/osarda/

2 réponses

Avatar
Ambassadeur Kosh
> si je fais un cast avec un AnsiStirng(vFileName)



quel est le type du TVariant (je ne sais plus le nom du champ de type) ?
Avatar
Bidule
J'ai rencontré le même problème, il y a peu de temps.
En fait, COM ne supporte pas les "AnsiString", j'ai donc passé mes
paramètres texte en "WideString" et tout roule.

Bye.

"Olivier" a écrit dans le message de news:
bpi20m$3nr$
Bonjour

j'ai un probleme a l'excecution sur cette ligne :
outils BCB6 eval entreprise + Win98 1 version

Code:



vWorkbook=vWorkbooks.OleFunction"Open",vWorkbook=vWorkbooks.OleFunction("Ope
n",vFileName,vLink,vReadOnly);,vLink,vReadOnly);


si je fais un cast avec un AnsiStirng(vFileName)

BCB me reponds ---------------------------
Notification d'une exception du débogueur
Le projet Project1.exe a provoqué une classe d'exception EOleSysError avec
le message 'Type de variable incorrect'. Processus stoppé. Utilisez
Pas-à-pas ou Exécuter pour continuer.

le probleme est que je veux recuperer mon chemin a partir d'un boite de
dialogue ou d'un TEdit est chaque fois cela plante

j'ai aussi essaye des trucs du genre Code:

vFileName=Variant(ed->Text);//==> plante (TEdit *ed)

idem si je passe en parametre dans ma fonction
Code:
void TForm1::ReadXls(Variant file)

cela plante


par contre si je fais en dur
Code:
Variant vFileName
VfileName="C:Classeur1.xls";

tout passe

auriez vous une idee car j'ai pas de code deja je suis desespere


merci encore de votre aide
_________________
Cordialement,
Sarda Olivier
_________________________________
Site Web :
http://www.membres.lycos.fr/osarda/