VB Array(1, 2) correspondance en C++

Version imprimable

Bonjour,
Je du code en VB qui est :
Code:

1 2 3 4 Workbooks.OpenText Filename:="C:\zz.txt", Origin:=xlMSDOS(3), StartRow:=1(1), _ DataType:=xlDelimited(1), TextQualifier:=xlDoubleQuote(1), ConsecutiveDelimiter _ :=False(), Tab:=False(), Semicolon:=True(), Comma:=False(), Space:=False(), _ Other:=False(), FieldInfo:=Array(Array(1, 2), Array(2, 2)), TrailingMinusNumbers:=True
que je voudrais convertir en C++
vXLWorkbooks.OleFunction("Open", NomCheminFichier.c_str(), 3, 1, 1, 1, 0, 0, 1, 0, 0, 0, ARRAY_CPP, 1); //vXLWorkbooks étant un Variant
le seul pb est que je n'arrive pas à faire le ARRAY_CPP,
j'ai fait pas mal de test mais en vain, je me retourne vers vous pour de l'aide.
Merci d'avance.

09/08/2006, 14h42
Xav++

Bonjour,

dans le cadre de mon logiciel, j'ai dévelloppez un bout de code avec la fonction
"OpenText" pour l'OLE Excel. Avec ça tu devrais facilement répondre à ton
problème. N'hésite pas à me recontacter pour plus d'infos.

http://www.developpez.net/forums/sho...d.php?t=169835

@+

Xav
10/08/2006, 12h00
sony351

Bonjour et merci Xav++ mais pourrais-tu me donner le fichier que tu ouvre car moi j'ai fait un test avec un fichier txt séparé par points virgules avec 4 colonnes ou 3 ou 2 ou 1 mais c'est pareil ça marche pas, j'ai toujours l'erreur suivante :
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.
Je sèche aprés plusieurs modifications en vain.
Merci d'avance.
10/08/2006, 14h20
Xav++

As tu essayé de débogger pas à pas ? Sur quelle ligne l'erreur se produit-elle ?
Mon fichier est un fichier texte de 3 colonnes séparés par un ";". Rien de
spécifique 8O

Pouurais tu également mettre ton code que je regarde tout cela ;)

@+

Xav

J’ai fait un copier coller du bout de code de ton post et je remplaçais la variable nf sur la ligne de code

Code:

AnsiString vFileName = nf; //nom du fichier

par "c:\\test.txt" ce dernier étant un fichier texte avec trois colonnes séparés par points virgules.
et ça bloque à l'appel de la fonction OpenText vXLWorkbook = vXLWorkbooks.OleFunction(""OpenText", ...
le fichier "sysvari.h" s'ouvre sur les lignes de codes suivantes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 template <class P1, class P2, class P3, class P4, class P5, class P6, class P7, class P8, class P9, class P10, class P11, class P12, class P13> Variant Variant::OleFunction(const String& name, P1 p1, P2 p2, P3 p3, P4 p4, P5 p5, P6 p6, P7 p7, P8 p8, P9 p9, P10 p10, P11 p11, P12 p12, P13 p13) { TAutoArgs<13> args; args[1] = p1; args[2] = p2; args[3] = p3; args[4] = p4; args[5] = p5; args[6] = p6; args[7] = p7; args[8] = p8; args[9] = p9; args[10] = p10; args[11] = p11; args[12] = p12; args[13] = p13; return OleFunction(name, static_cast<TAutoArgsBase*>(&args)); }
surligné sur la dernière ligne (return ...)

10/08/2006, 18h22
Xav++

Pour le moment la seule différence que je vois c'est que mon fichier texte a une extension .xls et non .txt (je sais je triche un peu ;) ) mais bon 8O

Au niveau de vFieldInfo, tu a repris mon tableau avec les mêmes valeurs ou tu en as mis d'autres ?
10/08/2006, 19h46
blondelle

Je suis ton post qui est tres interressant Xav++

j'ai juste modifie la declaration de vFileName et le nom de chemin du fichier a charger, si j'ouvre sans m'occuper des champs pas de probleme.

Citation:

String vFileName;

vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe";

je charge un fichier csv qui va remplir 21 colonnes j'ai egalement une erreur comme sony351 et je suis sur que cela vient de la declaration vFieldInfo

Citation:

vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 2, 0, 1)), varInteger);
et
vFieldInfo.PutElement(1,0,0); //on affecte 1 (Colonne Excel N°1) à la ligne 0 colonne 0 du tab
vFieldInfo.PutElement(2,0,1); //on affecte 2 (Format Texte = 2) à la ligne 0 colonne 1 du tab

j'ai consulte l'aide en ligne pour OPENARRAY ,mais je n'ai pas compris comment cela marche, dans la declaration Create a quoi correspondent les differents champs, idem dans la declaration PutElement.
merci pour la reponse que tu apportera.

Bon je vais essayé de relire mon code :roll:

Dans notre cas vFieldInfo est un tableau d'entiers à 2 dimensions,
Dans notre exemple :
Code:

1 2 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 2, 0, 1)), varInteger);
int et varInteger : on veut un tableau d'entiers
0,2,0,1 : un tableau de 3 lignes numérotées de 0 à 2 et de 2 colonnes numérotées de 0 à 1

En gros on veut ça : avec x et y les coordonnées
______________
| x0;y0 | x0;y1 |
______________
| x1;y0 | x1;y1 |
______________
| x2;y0 | x2;y1 |
_________ _____

Si on appelle z la valeur affectée au point de coordonnées (x,y), on remplit le tableau avec le code :
Code:

1 2 vFieldInfo.PutElement(z,x,y); //on affecte z au point (x,y) du tableau
Donc si tu veux formater l'ensemble de tes 21 colonnes au format texte par exemple du dois faire :
Code:

1 2 3 4 5 6 7 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 20, 0, 1)), varInteger); //21 lignes pour tes 21 colonnes Excel ! for (int i = 0; i<21; i++) { vFieldInfo.PutElement(i+1,i,0); // i+1 correspond au N° de colonne Excel de 1 à 21 vFieldInfo.PutElement(2,i,y); // 2 = format texte }
Voilà j'espère avoir été clair 8O Mais c'est pas facile avec ces lignes et colonnes :mouarf:

Xav

Merci pour ta reponse Xav++.
C'est ce que j'avais cru comprendre et j'ai fait un essai mais pas dans une boucle j'ai repris ton principe de codage. Je suis partis sur un format texte meme pour les nombres parceque Excel gerant des variants ca ne le gene absolument pas si on recupere ces valeur pour des calculs.
J'ai quand meme une erreur "Type de variable incorrecte" et dans l'onglet "sysvari.h" qui s'ouvre l'argument m_Arrayest est a {????} j'en deduit que le probleme est dans le tableau.
Je poste le code je n'ai pas vu l'erreur
le 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
 
#include <vcl.h>
#pragma hdrstop
 
#include "OPEN_FICHIER_TXT.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
String vFileName;
// Ouverture d'Excel et traitement du fichier
 Variant vXLWorkbooks, vXLWorkbook, vMSExcel;
 vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe"; //nom du fichier
 Variant vOrigin = 1; // = xlWindows format Windows (par défaut)
 Variant vStartRow = 1; // on commence à la 1ère ligne (par défaut)
 Variant vDataType = 1; // = xlDelimited format délimité (par défaut)
 Variant vTextQualifier = 1; // = xlTextQualifierDoubleQuote qualificateur de texte (par défaut)
 Variant vConsecutiveDelimiter = false; // pas de délimitateur consécutif
 Variant vTab = false; // pas délimitateur tab
 Variant vSemicolon = true; // délimitateur ";"
 Variant vComma = false; // pas délimitateur virgule
 Variant vSpace = false; // pas délimitateur espace
 Variant vOther = false; // pas délimitateur autre
 Variant vOtherChar = ""; // délimitateur Other non actif
 
 Variant vFieldInfo;    // On veut {{1,2},{2,2},{3,4}}
//vFieldInfo = VarArrayCreate(OPENARRAY(int, (X, NB de colonnes, X, X)), varInteger);
 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 20, 0, 1)), varInteger);
 
//vFieldInfo.PutElement(Colonne Excel, ligne 0, colonne 0);// du tableau
//vFieldInfo.PutElement(Format Texte = 2, ligne 0, colonne 1);// du tableau
 vFieldInfo.PutElement(1,0,0); //on affecte 1 (Colonne Excel N°1) à la ligne 0 colonne 0 du tab
 vFieldInfo.PutElement(2,0,1); //on affecte 2 (Format Texte = 2) à la ligne 0 colonne 1 du tab
 
 vFieldInfo.PutElement(2,1,0); //on affecte 2 (Colonne Excel N°2) à la ligne 1 colonne 0 du tab
 vFieldInfo.PutElement(2,1,1); //on affecte 2 (Format Texte = 2) à la ligne 1 colonne 1 du tab
 
 vFieldInfo.PutElement(3,2,0); //on affecte 3 (Colonne Excel N°3) à la ligne 2 colonne 0 du tab
 vFieldInfo.PutElement(2,2,1); //on affecte 2 (Format Date JMA = 4) à la ligne 2 colonne 1 du tab
 
 vFieldInfo.PutElement(4,3,0); //on affecte 1 (Colonne Excel N°4) à la ligne 3 colonne 0 du tab
 vFieldInfo.PutElement(2,3,1); //on affecte 2 (Format Texte = 2) à la ligne 3 colonne 1 du tab
 
 vFieldInfo.PutElement(5,4,0); //on affecte 2 (Colonne Excel N°5) à la ligne 4 colonne 0 du tab
 vFieldInfo.PutElement(2,4,1); //on affecte 2 (Format Texte = 2) à la ligne 4 colonne 1 du tab
 
 vFieldInfo.PutElement(6,5,0); //on affecte 3 (Colonne Excel N°6) à la ligne 5 colonne 0 du tab
 vFieldInfo.PutElement(2,5,1); //on affecte 2 (Format Date JMA = 4) à la ligne 5 colonne 1 du tab
 
 vFieldInfo.PutElement(7,6,0); //on affecte 1 (Colonne Excel N°7) à la ligne 6 colonne 0 du tab
 vFieldInfo.PutElement(2,6,1); //on affecte 2 (Format Texte = 2) à la ligne 6 colonne 1 du tab
 
 vFieldInfo.PutElement(8,7,0); //on affecte 2 (Colonne Excel N°8) à la ligne 7 colonne 0 du tab
 vFieldInfo.PutElement(2,7,1); //on affecte 2 (Format Texte = 2) à la ligne 7 colonne 1 du tab
 
 vFieldInfo.PutElement(9,8,0); //on affecte 3 (Colonne Excel N°9) à la ligne 8 colonne 0 du tab
 vFieldInfo.PutElement(2,8,1); //on affecte 2 (Format Date JMA = 4) à la ligne 8 colonne 1 du tab
 
 vFieldInfo.PutElement(10,9,0); //on affecte 1 (Colonne Excel N°10) à la ligne 9 colonne 0 du tab
 vFieldInfo.PutElement(2,9,1); //on affecte 2 (Format Texte = 2) à la ligne 9 colonne 1 du tab
 
 vFieldInfo.PutElement(11,10,0); //on affecte 2 (Colonne Excel N°11) à la ligne 10 colonne 0 du tab
 vFieldInfo.PutElement(2,10,1); //on affecte 2 (Format Texte = 2) à la ligne 10 colonne 1 du tab
 
 vFieldInfo.PutElement(12,11,0); //on affecte 3 (Colonne Excel N°12) à la ligne 11 colonne 0 du tab
 vFieldInfo.PutElement(2,11,1); //on affecte 2 (Format Date JMA = 4) à la ligne 11 colonne 1 du tab
 
 vFieldInfo.PutElement(13,12,0); //on affecte 1 (Colonne Excel N°13) à la ligne 12 colonne 0 du tab
 vFieldInfo.PutElement(2,12,1); //on affecte 2 (Format Texte = 2) à la ligne 12 colonne 1 du tab
 
 vFieldInfo.PutElement(14,13,0); //on affecte 2 (Colonne Excel N°14) à la ligne 13 colonne 0 du tab
 vFieldInfo.PutElement(2,13,1); //on affecte 2 (Format Texte = 2) à la ligne 13 colonne 1 du tab
 
 vFieldInfo.PutElement(15,14,0); //on affecte 3 (Colonne Excel N°15) à la ligne 14 colonne 0 du tab
 vFieldInfo.PutElement(2,14,1); //on affecte 2 (Format Date JMA = 4) à la ligne 14 colonne 1 du tab
 
 vFieldInfo.PutElement(16,15,0); //on affecte 1 (Colonne Excel N°16) à la ligne 15 colonne 0 du tab
 vFieldInfo.PutElement(2,15,1); //on affecte 2 (Format Texte = 2) à la ligne 15 colonne 1 du tab
 
 vFieldInfo.PutElement(17,16,0); //on affecte 2 (Colonne Excel N°17) à la ligne 16 colonne 0 du tab
 vFieldInfo.PutElement(2,16,1); //on affecte 2 (Format Texte = 2) à la ligne 16 colonne 1 du tab
 
 vFieldInfo.PutElement(18,17,0); //on affecte 3 (Colonne Excel N°18) à la ligne 17 colonne 0 du tab
 vFieldInfo.PutElement(2,17,1); //on affecte 2 (Format Date JMA = 4) à la ligne 17 colonne 1 du tab
 
 vFieldInfo.PutElement(19,18,0); //on affecte 1 (Colonne Excel N°19) à la ligne 18 colonne 0 du tab
 vFieldInfo.PutElement(2,18,1); //on affecte 2 (Format Texte = 2) à la ligne 18 colonne 1 du tab
 
 vFieldInfo.PutElement(20,19,0); //on affecte 2 (Colonne Excel N°20) à la ligne 19 colonne 0 du tab
 vFieldInfo.PutElement(2,19,1); //on affecte 2 (Format Texte = 2) à la ligne 19 colonne 1 du tab
 
 vFieldInfo.PutElement(21,20,0); //on affecte 3 (Colonne Excel N°21) à la ligne 20 colonne 0 du tab
 vFieldInfo.PutElement(2,20,1); //on affecte 2 (Format Date JMA = 4) à la ligne 20 colonne 1 du tab
 
 vMSExcel = Variant::CreateObject("Excel.Application");
 vMSExcel.OlePropertySet("Visible", true);
 vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
 vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther, vOtherChar, vFieldInfo);
}

dommage que l'aide bcb ne soit pas aussi claire que ton explication
je te remercie Xav++

8O 8O 8O
Bon chez moi ça fonctionne sur mon exemple. Plusieurs possibilité :

1) mon fichier a l'extension .xls et toi aucune ! J'y crois qd même pas trop.
2) je suis sous bcb5 et toi sur une autre version peut être
3) essaye en modifiant ton code comme suit :
Code:

1 2 vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther, vOtherChar); //, vFieldInfo);
Si ça fonctionne on sera sur que cela vient du tableau

Je pourrais tester ton code avec mon programme demain en fin d'après midi.
Tiens moi au courant d'ici là.

Xav

Xav++ a ecrit

Citation:

Bon chez moi ça fonctionne sur mon exemple. Plusieurs possibilité :

1) mon fichier a l'extension .xls et toi aucune ! J'y crois qd même pas trop.
2) je suis sous bcb5 et toi sur une autre version peut être
3) essaye en modifiant ton code comme suit :

mon fichier a une extension csv en recopiant je l'ai efface, le delimiteur est le ";"
en supprimant "//, vFieldInfo);" j'ai encore l'erreur
Code:

1 2 vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther, vOtherChar);//, vFieldInfo);
comme cela ca fonctionne
Code:

1 2 vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str());
j'utilise BCB 6.

Je te remercie Xav++

Je viens de proceder par elimination et la ca fonctionne.
Code:

1 2 3 4 // Variant vOtherChar = ""; // délimitateur Other non actif vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther);//, vOtherChar);//, vFieldInfo);
apparement ce serait "vOtherChar" qui provoque l'erreur il serait interressant de savoir la version de BCB de sony351 et si il a procede au meme essai de suppression de "vOtherChar" qui est pourtant declare comme Variant si je trouve une solution je la poste.

10/08/2006, 23h38
blondelle
J'ai trouve la solution c'est trop NULL c'est le cas de le dire
Code:

1 2 Variant vOtherChar = NULL; // délimitateur Other non actif
Il suffit simplement de remplacer la chaine vide par NULL et ca fonctionne c'est a pleurer tellement c'est bete.

Si tu essai sur ta version de BCB est ce que cela va marcher??? , ce serait interressant de le savoir y a t'il une difference entre BCB5 et BCB6.

merci Xav++
11/08/2006, 07h50
Xav++

En effet, ça parait tellemnt évident que je ne comprends même pas comment
j'ai pu mettre "" au lieu de NULL :oops:
J'essaierai cela chez moi ce soir.

Par contre as tu réussi à enregistrer ton fichier après modification ?????
Rappelle toi, c'était mon problème et je ne l'ai jamais résolu 8O

On va finir par y arriver à utiliser ce p***** de logiciel de microsoft :aie:

Xav
11/08/2006, 08h56
sony351

Merci beaucoup Monsieur Xav++ et Monsieur blondelle
:-p
11/08/2006, 09h49
Xav++

de rien, n'oublie pas le petit :resolu: ;)
11/08/2006, 10h59
blondelle

Xav++ a ecrit

Citation:

En effet, ça parait tellemnt évident que je ne comprends même pas comment
j'ai pu mettre "" au lieu de NULL
J'essaierai cela chez moi ce soir.

Par contre as tu réussi à enregistrer ton fichier après modification ?????
Rappelle toi, c'était mon problème et je ne l'ai jamais résolu

On va finir par y arriver à utiliser ce p***** de logiciel de microsoft

Xav

J'ai corrige une derniere petite erreur si on veut un separateur autre il faut ecrire.

Citation:

Variant vOtherChar = ';'; // ici ca marche

Si on utilise ";" il y a une erreur deVariant

J'arrive a ouvrir mon fichier de typt csv je vais faire l'essai avec un fichier texte pour voir

Pour enregistrer un fichier sous j'ai reussi il y a eut un post je recherche le lien et je te le donne
11/08/2006, 11h11
blondelle

Xav++ a ecrit

Citation:

Par contre as tu réussi à enregistrer ton fichier après modification ?????
Rappelle toi, c'était mon problème et je ne l'ai jamais résolu

le lien pour la sauvegarde SaveSous

Citation:

http://www.developpez.net/forums/sho...d.php?t=187748

Je n'ai pas tout resolu mais ca marche quand meme
S'il te manque quelque chose fais le savoir.

Je viens de faire un essai avec mon fichier au format txt et ca fonctionne le fichier se charge correctement mes colonnes sont bien au format txt.ton programme est super et meriterait d'etre dans la FAQ parceque l'ouverture des fichiers texte a deja donne lieu a de nombreux post.
Je donne le code complet qui fonctionne chez moi il n'est pas optimise ce n'etait qu'un essai.

le 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
#include <vcl.h>
#pragma hdrstop
 
#include "OPEN_FICHIER_TXT.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
String vFileName;
// Ouverture d'Excel et traitement du fichier
 Variant vXLWorkbooks, vXLWorkbook, vMSExcel;
 vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe1.txt"; //nom du fichier
 Variant vOrigin = 1; // = xlWindows format Windows (par défaut)
 Variant vStartRow = 1; // on commence à la 1ère ligne (par défaut)
 Variant vDataType = 1; // = xlDelimited format délimité (par défaut)
 Variant vTextQualifier = 1; // = xlTextQualifierDoubleQuote qualificateur de texte (par défaut)
 Variant vConsecutiveDelimiter = false; // pas de délimitateur consécutif
 Variant vTab = false; // pas délimitateur tab
 Variant vSemicolon = true; // délimitateur ";"
 Variant vComma = false; // pas délimitateur virgule
 Variant vSpace = false; // pas délimitateur espace
 Variant vOther = false; // pas délimitateur autre
 Variant vOtherChar = NULL; // délimitateur Other non actif = NULL, actif = ':'
 
 Variant vFieldInfo;    // On veut {{1,2},{2,2},{3,4}}
//vFieldInfo = VarArrayCreate(OPENARRAY(int, (N° de ligne, NB de colonnes, X, X)), varInteger);
 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 10, 0, 1)), varInteger);
 
//vFieldInfo.PutElement(N° de la Colonne Excel, ligne 0 du tableau, colonne 0 du tableau);// du tableau
//vFieldInfo.PutElement(Format Texte = 2 de la colonne, ligne 0 du tableau, colonne 1 du tableau);// du tableau
 vFieldInfo.PutElement(1,0,0); //on affecte 1 (Colonne Excel N°1) à la ligne 0 colonne 0 du tab
 vFieldInfo.PutElement(2,0,1); //on affecte 2 (Format Texte = 2) à la ligne 0 colonne 1 du tab
 
 vFieldInfo.PutElement(2,1,0); //on affecte 2 (Colonne Excel N°2) à la ligne 1 colonne 0 du tab
 vFieldInfo.PutElement(2,1,1); //on affecte 2 (Format Texte = 2) à la ligne 1 colonne 1 du tab
 
 vFieldInfo.PutElement(3,2,0); //on affecte 3 (Colonne Excel N°3) à la ligne 2 colonne 0 du tab
 vFieldInfo.PutElement(2,2,1); //on affecte 2 (Format Date JMA = 4) à la ligne 2 colonne 1 du tab
 
 vFieldInfo.PutElement(4,3,0); //on affecte 1 (Colonne Excel N°4) à la ligne 3 colonne 0 du tab
 vFieldInfo.PutElement(2,3,1); //on affecte 2 (Format Texte = 2) à la ligne 3 colonne 1 du tab
 
 vFieldInfo.PutElement(5,4,0); //on affecte 2 (Colonne Excel N°5) à la ligne 4 colonne 0 du tab
 vFieldInfo.PutElement(2,4,1); //on affecte 2 (Format Texte = 2) à la ligne 4 colonne 1 du tab
 
 vFieldInfo.PutElement(6,5,0); //on affecte 3 (Colonne Excel N°6) à la ligne 5 colonne 0 du tab
 vFieldInfo.PutElement(2,5,1); //on affecte 2 (Format Date JMA = 4) à la ligne 5 colonne 1 du tab
 
 vFieldInfo.PutElement(7,6,0); //on affecte 1 (Colonne Excel N°7) à la ligne 6 colonne 0 du tab
 vFieldInfo.PutElement(2,6,1); //on affecte 2 (Format Texte = 2) à la ligne 6 colonne 1 du tab
 
 vFieldInfo.PutElement(8,7,0); //on affecte 2 (Colonne Excel N°8) à la ligne 7 colonne 0 du tab
 vFieldInfo.PutElement(2,7,1); //on affecte 2 (Format Texte = 2) à la ligne 7 colonne 1 du tab
 
 vFieldInfo.PutElement(9,8,0); //on affecte 3 (Colonne Excel N°9) à la ligne 8 colonne 0 du tab
 vFieldInfo.PutElement(2,8,1); //on affecte 2 (Format Date JMA = 4) à la ligne 8 colonne 1 du tab
 
 vFieldInfo.PutElement(10,9,0); //on affecte 1 (Colonne Excel N°10) à la ligne 9 colonne 0 du tab
 vFieldInfo.PutElement(2,9,1); //on affecte 2 (Format Texte = 2) à la ligne 9 colonne 1 du tab
 
 vFieldInfo.PutElement(11,10,0); //on affecte 2 (Colonne Excel N°11) à la ligne 10 colonne 0 du tab
 vFieldInfo.PutElement(2,10,1); //on affecte 2 (Format Texte = 2) à la ligne 10 colonne 1 du tab
 
// vFieldInfo.PutElement(12,11,0); //on affecte 3 (Colonne Excel N°12) à la ligne 11 colonne 0 du tab
// vFieldInfo.PutElement(2,11,1); //on affecte 2 (Format Date JMA = 4) à la ligne 11 colonne 1 du tab
 
// vFieldInfo.PutElement(13,12,0); //on affecte 1 (Colonne Excel N°13) à la ligne 12 colonne 0 du tab
// vFieldInfo.PutElement(2,12,1); //on affecte 2 (Format Texte = 2) à la ligne 12 colonne 1 du tab
 
// vFieldInfo.PutElement(14,13,0); //on affecte 2 (Colonne Excel N°14) à la ligne 13 colonne 0 du tab
// vFieldInfo.PutElement(2,13,1); //on affecte 2 (Format Texte = 2) à la ligne 13 colonne 1 du tab
 
// vFieldInfo.PutElement(15,14,0); //on affecte 3 (Colonne Excel N°15) à la ligne 14 colonne 0 du tab
// vFieldInfo.PutElement(2,14,1); //on affecte 2 (Format Date JMA = 4) à la ligne 14 colonne 1 du tab
 
// vFieldInfo.PutElement(16,15,0); //on affecte 1 (Colonne Excel N°16) à la ligne 15 colonne 0 du tab
// vFieldInfo.PutElement(2,15,1); //on affecte 2 (Format Texte = 2) à la ligne 15 colonne 1 du tab
 
// vFieldInfo.PutElement(17,16,0); //on affecte 2 (Colonne Excel N°17) à la ligne 16 colonne 0 du tab
// vFieldInfo.PutElement(2,16,1); //on affecte 2 (Format Texte = 2) à la ligne 16 colonne 1 du tab
 
// vFieldInfo.PutElement(18,17,0); //on affecte 3 (Colonne Excel N°18) à la ligne 17 colonne 0 du tab
// vFieldInfo.PutElement(2,17,1); //on affecte 2 (Format Date JMA = 4) à la ligne 17 colonne 1 du tab
 
// vFieldInfo.PutElement(19,18,0); //on affecte 1 (Colonne Excel N°19) à la ligne 18 colonne 0 du tab
// vFieldInfo.PutElement(2,18,1); //on affecte 2 (Format Texte = 2) à la ligne 18 colonne 1 du tab
 
// vFieldInfo.PutElement(20,19,0); //on affecte 2 (Colonne Excel N°20) à la ligne 19 colonne 0 du tab
// vFieldInfo.PutElement(2,19,1); //on affecte 2 (Format Texte = 2) à la ligne 19 colonne 1 du tab
 
// vFieldInfo.PutElement(21,20,0); //on affecte 3 (Colonne Excel N°21) à la ligne 20 colonne 0 du tab
// vFieldInfo.PutElement(2,20,1); //on affecte 2 (Format Date JMA = 4) à la ligne 20 colonne 1 du tab
 
 vMSExcel = Variant::CreateObject("Excel.Application");
 vMSExcel.OlePropertySet("Visible", true);
 vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther, vOtherChar, vFieldInfo);
 }

dis moi si ca fonctionne pour toi Xav++ a y etre que ca fonctionne correctement

11/08/2006, 13h28
Xav++

Merci Blondelle pour les infos d'enregistrement et les corrections.
Je regarde ça ce soir et je te tiens au courant ;)

Si les modo veulent ajouter le code à la FAQ je me tiens à leur dispo pour rédiger l'article.

Xav

bon blondelle j'ai pas très bien compris comment on fait pour "enregistrer sous" car j'y arrive pas effectivement
je fais un
Code:

1 2 3 4 5 vXLWorkbook.OleProcedure("Saveas", "c:\\test.xls", -4143, NULL, NULL, false, false); ou vXLWorkbook.OleProcedure("Saveas", "c:\\test.xls", -4143); ou vXLWorkbook.OleProcedure("Saveas", "c:\\test.csv", 6, false);
mais aucune ne marche j'ai une exception EVariantTypeCastError avec le message 'Impossible de convertir le variant de type (Boolean) en type (Dispatch)'
donc comment faire ???

11/08/2006, 15h43
Xav++
Essaye ceci, peut-être que cela marche, mais je n'ai pas testé
Code:

1 2 vFileName = "c:\\test.xls"; vXLWorkbook.OleProcedure("Saveas", vFileName.c_str(), -4143, NULL, NULL, false, false);
J'essaye de regarder tout ça chez moi ce soir ;)

Xav
11/08/2006, 17h07
blondelle

sony351 a ecrit:

Citation:

bon blondelle j'ai pas très bien compris comment on fait pour "enregistrer sous" car j'y arrive pas effectivement
je fais un
Code :
vXLWorkbook.OleProcedure("Saveas", "c:\\test.xls", -4143, NULL, NULL, false, false);
ou
vXLWorkbook.OleProcedure("Saveas", "c:\\test.xls", -4143);
ou
vXLWorkbook.OleProcedure("Saveas", "c:\\test.csv", 6, false);mais aucune ne marche j'ai une exception EVariantTypeCastError avec le message 'Impossible de convertir le variant de type (Boolean) en type (Dispatch)'
donc comment faire ???

J'ai fait un essai avec les deux valeurs a NULL et ca marche chez moi.
je pense comme Xav++ que c'est "vFileName" qui est mal declare.
soit tu fais:

Citation:

Variant vFileName; // toujour faire la declaration des variants
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName, -4143, NULL, NULL, false, false);

soit tu fais:

Citation:

String vFileName;
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName.c_str(), -4143, NULL, NULL, false, false);

Il faut declarer vFileName avec le nom de chemin.
Il ne faut pas mettre le mon de chemin dans la procedure
Je pense que ca doit marcher comme cela sinon donne ton code pour voir d'ou vient l'erreur
11/08/2006, 17h17
blondelle

Une petite question que j'ai oubliee de poser et qui me turlupine.

Citation:

pourquoi cette ecriture provoque une erreur
Variant vOtherChar = ":";

Citation:

et que celle ci marche
Variant vOtherChar = ':';

je ne comprend pas la difference et il y en forcement une
11/08/2006, 19h36
Xav++
Bon je viens de tester la sauvegarde, et ça marche pas :?

Voici mon code :
Code:

1 2 AnsiString vFileName = "c:\\test.xls"; vXLWorkbook.OleProcedure("Saveas", vFileName.c_str(), -4143, NULL, NULL, false, false);
J'ai l'erreur :

Code:

Conversion de type variant incorrecte

sur la dernière ligne et il ouvre le fichier "sysvari.h" ????????
Même erreur que les fois précédentes....:(
11/08/2006, 19h46
blondelle

Xav++ a ecrit:

Citation:

Bon je viens de tester la sauvegarde, et ça marche pas

Regarde mon poste precedent je declare differement la variable "vFileName" et sur tout il faut bannir les AnsiString avec OleExcel
Dans la FAQ pour les variables non utilisees il disent d'utiliser le mot "Unassigned" je ferais le teste remplacer "NULL" par "Unassigned"

Oups :oops: Je veux aller trop vite. Nouvel essai avec :
Code:

1 2 3 String vFileName; vFileName = "c:\\test.xls"; vXLWorkbook.OleProcedure("SaveAs", vFileName.c_str(), -4143, Unassigned, Unassigned, false, false);
Résultat : même erreur :arf:

11/08/2006, 20h03
blondelle
Xav++ a ecrit:

Citation:

Oups Je veux aller trop vite. Nouvel essai avec :

Code :
String vFileName;
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("SaveAs", vFileName.c_str(), -4143, Unassigned, Unassigned, false, false);
Résultat : même erreur

Je viens de faire l'essai et j'ai aussi l'erreur fait l'essai avec la declaration en Variant
Code:

1 2 3 4 Variant vFileName; // toujour faire la declaration des variants vFileName = "c:\\test.xls"; vXLWorkbook.OleProcedure("Saveas", vFileName, -4143, NULL, NULL, false, false);

Code:

1
2
3
4
 
Variant vFileName; // toujour faire la declaration des variants
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName, -4143, NULL, NULL, false, false);

Même erreur :arf:

Xav++ a ecrit:

Citation:

Même erreur

Je vois que tu t'enerve a l'ecran respire profondement OleExcel demande une bonne dose de patience, je poste mon code qui est en cours d'essai pour la sauvegarde avec mot de passe il n'est pas nettoye
le 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
//---------------------------------------------------------------------------
 
#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, vWorksheet;
Variant vRange, vWorksheets;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vNotUsed, vSeparator, FileFormat, ReadOnlyRecommended;
Variant CreateBackup, Password, WriteResPassword;
Variant Mot_passe;
// ouverture d'un fichier au format csv
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);
 
// formatter une cellule ou une colonne au format desire
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// sans chiffres c'est la colonne qui est selectionnee
vRange = vWorksheet.OlePropertyGet("Range", "B:B");
vRange.OlePropertySet("NumberFormat", "@"); // format Texte
//vWorksheets = vXLWorkbook.OlePropertyGet("Worksheets");
//vWorksheet.OleFunction("Select");
//Variant vCells;
//vCells = vWorksheet.OlePropertyGet("Select");
 
Variant vSheetFunction;
vSheetFunction = vMSExcel.OlePropertyGet("Selection");
int res = vSheetFunction.OleFunction("Copy", vSheetFunction);
 
//vWorksheet.OleFunction("SelectionCopy");
//---vWorksheet.OlePropertyGet("Range", "A1");
//vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
//vWorksheet = vWorksheets.OleFunction("Select");
//vWorksheet.OleFunction("Copy");
//vSheetFunction = vMSExcel.OlePropertyGet("Selection");
//---vWorksheet.OleFunction("Paste");
 
//
// preparation de la sauvegarde
//
// on fait un teste si le fichier existe on l'efface
//
if (FileExists ("C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls"))
        DeleteFile ("C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls");
 
 
 
FileFormat = -4143; // valeur de xlNormal "sauvegarde sous format classeur excel"
                    // pour les autres format de sauvegarde faire un essai avec VBE
 
// creation d'un mot de passe protegeant l'ouverture du fichier
// attention si le fichier a ete sauvegarde avec un mot de passe
// il ne peut pas etre reecrit cela provoque une exception
Mot_passe = "jpb"; // pour la protection du fichier
 
Password = Mot_passe; // mot de passe pour proteger le fichier
 
WriteResPassword = Mot_passe; // confirmation du mot de passe
 
ReadOnlyRecommended = false; // fichier en lecture seule (False True Unassigned)
 
// creation d'une copie si le fichier existe deja
CreateBackup = false;  //Unassigned; // creation d'une copie (False True Unassigned)
 
// fermeture d'un fichier (ouvert au format csv) au format xls
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat, Unassigned, Unassigned, ReadOnlyRecommended, CreateBackup);
//vXLWorkbook.OleProcedure("Save", vFileName);
 
// fermeture d'excel
vMSExcel.OleFunction("Quit");
// liberation memoire
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------
/*
Variant vCell;
vCell = vWorksheet.OlePropertyGet("Range", vWsRange);
Variant vCell;
vCell = vWorksheet.OlePropertyGet("Cells", vX, vY);
Variant vRange;
vRange = vWorksheet.OlePropertyGet("Range", vWsRange);
Variant vRange;
vRange = vWorksheet.OlePropertyGet("Range", vCell1, vCell2);
vCel.OlePropertySet("NumberFormat", vValue);
*/

13/08/2006, 19h57
sony351

Bon Monsieur blondelle merci avant tout de débatre le pb ensemble avec Xav++ aussi, merci, mais pour revenir au pb de Saveas c'est juste après le open texte que ça plante (erreur declaration Variant) mais là tu mets trop de code blondelle et moi je sèche toujours les gars, haaaaaaaaaaaaa.

haaaaaaaa
13/08/2006, 20h09
blondelle

sony351 a ecrit:

Citation:

Bon Monsieur blondelle merci avant tout de débatre le pb ensemble avec Xav++ aussi, merci, mais pour revenir au pb de Saveas c'est juste après le open texte que ça plante (erreur declaration Variant) mais là tu mets trop de code blondelle et moi je sèche toujours les gars, haaaaaaaaaaaaa.

haaaaaaaa

Fais voir le code que l'on regarde ce qui ne marche pas.
17/08/2006, 14h43
sony351

après le

Code:

Variant vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName, vOrigin, vStartRow, vDataType, vTextQualifier, vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther, vOtherChar, vFieldInfo);

je voudrais faire une sauvegarde sous fichier xls
donc je fais :

Code:

vXLWorkbook.OleProcedure("Saveas", "c:\\fichier_fin.xls", -4143,);

mais ça plante : "Impossible de convertir le variant de type (Boolean) en type (Dispatch)"

sony351 a ecrit

Citation:

mais ça plante : "Impossible de convertir le variant de type (Boolean) en type (Dispatch)"
Code:

1 2 3 4 5 6 7 8 9 10 // declaration des variables FileFormat = -4143; Variant vFileName; // declaration du chemin du fichier vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.xls"; // sauvegarde sous le format TXT vXLWorkbook.OleProcedure("Saveas", vFileName, FileFormat, Unassigned, Unassigned, Unassigned, Unassigned);
J'ai sorti ce qui etait dans mon code et qui semble te poser probleme ecrit de cette facon ca doit fonctionner, chez moi ca fonctionne.

Verifie bien que les variables que tu utilise soient bien dans le sous programme de sauvegarde car tu aura ce type d'erreur, sinon les declarer en public.

bon ça yé c'est fini merci à vous les gars
blondelle le pb venait du pointeur vXLWorkbook qui reste nulle uniquement avec opentxt malgrés le
vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", ...
donc moi je fais

Code:

1
2
3
4
5
vXLWorkbooks.OleFunction("OpenText",
    vFileName.c_str(), vOrigin, vStartRow, vDataType, vTextQualifier,
    vConsecutiveDelimiter, vTab, vSemicolon, vComma, vSpace, vOther,
    vOtherChar, vFieldInfo);
 vXLWorkbook = vXLWorkbooks.OlePropertyGet("Item", 1);

et là ça marche, mon objet vXLWorkbook n'est pas NULL et je peux faire mes traitements,
donc pour finir le post je met le code final pour
ouvrir un txt ou csv et l'enregistrer en xls

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
 Variant vXLWorkbooks, vXLWorkbook, vMSExcel;
 AnsiString vFileName = "C:\\temp.txt"; //nom du fichier
 Variant vOrigin = 1; // = xlWindows format Windows (par défaut)
 Variant vStartRow = 1; // on commence à la 1ère ligne (par défaut)
 Variant vDataType = 1; // = xlDelimited format délimité (par défaut)
 Variant vTextQualifier = 1; // = xlTextQualifierDoubleQuote qualificateur de texte (par défaut)
 Variant vConsecutiveDelimiter = false; // pas de délimitateur consécutif
 Variant vTab = false; // pas délimitateur tab
 Variant vSemicolon = true; // délimitateur ";"
 Variant vComma = false; // pas délimitateur virgule
 Variant vSpace = false; // pas délimitateur espace
 Variant vOther = false; // pas délimitateur autre
 Variant vOtherChar = ';';//NULL; // délimitateur Other non actif
 
 int LeNombreDeChamps = 3;
 Variant vFieldInfo;
 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, 2, 0, 1)), varInteger);
 vFieldInfo = VarArrayCreate(OPENARRAY(int, (0, LeNombreDeChamps - 1, 0, 1)), varInteger);
 for(int i = 0; i < LeNombreDeChamps; i++)//ceci va mettre au format texte toutes les colonnes
 {
   vFieldInfo.PutElement(i + 1, i, 0);
   //on affecte i + 1 (i + 1 qui est la colonne Excel N°i + 1 en fait)
   //à la ligne i colonne 0 du tableau vFieldInfo
 
   vFieldInfo.PutElement(2, i, 1);
   //on affecte 2 (Format Texte = 2) à la ligne i colonne 1 du tableau vFieldInfo
 }
 vMSExcel = Variant::CreateObject("Excel.Application");
 vMSExcel.OlePropertySet("Visible", true);
 vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
 vXLWorkbook = vXLWorkbooks.OleFunction("OpenText", vFileName.c_str(), vOrigin,
                                        vStartRow, vDataType, vTextQualifier,
                                        vConsecutiveDelimiter, vTab, vSemicolon,
                                        vComma, vSpace, vOther, vOtherChar, vFieldInfo);
 vXLWorkbook = vXLWorkbooks.OlePropertyGet("Item", 1);
 xlNormal = -4143;
 chemin = "c:\\temp.xls";
 vXLWorkbook.OleProcedure("Saveas", chemin, xlNormal, "", "", false, false);

18/08/2006, 11h52
blondelle
Ton code est equivalent
Code:

1 2 vXLWorkbook = vXLWorkbooks.OlePropertyGet("Item", 1);
a ceci l'ecriture est juste differente
Code:

1 2 vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
L'essentiel est que le programme marche.
Si tu n'a plus d'autres question pense au petit resolu.
Bon courage.