Problème pilotage OLE : erreur sur <utilcls.h>

**Pymousse** · 27/06/2007, 09h20

Bonjour,

Je suis débutant dans le pilotage OLE, et on peut dire aussi dans le C++, et je n'ai pas une formation de programmeur...

Voilà, j'ai bien lu le tutoriel sur le pilotage OLE, je me suis renseigné sur les forums, mais je ne trouve pas de solution à mon problème. Alors que j'ai vu dans les forums, quasiment le même code que moi (à savoir le code du tutoriel pour tester). Seulement C++ builder me remonte des erreurs comme :

utilcls.h(3390);E2451 Symobole 'count' non défini

Office_2k.h(8348);E2450 Structure 'TautoArgs<1>' non définie

Office_2k.h(8348);E2450 La taille de '_args' est inconnue ou zéro

Voilà, j'ai lu des histoires de .ddl dans les forum, je ne sais pas si ça vient de là ou si j'ai oublié de déclarer quelque chose dans le code. Comme je vous l'ai dit, je ne m'y connais pas!

Merci d'avance!

ps : J'ai C++ builder6

**blondelle** · 27/06/2007, 11h41

Salut Pymousse:
Si tu utilise Ole tu n'a pas besoin de Office_2k.
Maintenant comme les erreurs Ole sont intraduisible sans code c'est indepannable

**Pymousse** · 27/06/2007, 11h59

Le code que j'ai mis en place est un code pour tester l'OLE :

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
 
#include <utilcls.h>
#include <system.hpp>
 
main()
{
 
Variant vMSExcel;
Variant vXLWorkbook, vXLWorkbooks;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
 
vFileName = "C:\\Program Files\\Borland\\CBuilder6\\Projects\\Lecture fichier\\Compilation\\synoptique.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
 
 
vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", vRange);
vValue = "test";
vCell.OlePropertySet("Value", vValue);
 
 
vSaveChanges = true;
vFileName = "C:\\Program Files\\Borland\\CBuilder6\\Projects\\Lecture fichier\\Compilation\\synoptique.xls";
vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName);
 
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}

Merci pour la réponse sur Office_2k.

**blondelle** · 27/06/2007, 13h10

Voici le code remanie, une Form trois boutons un edit

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
47
48
49
50
51
52
53
54
55
56
57
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ColorBtn"
#pragma resource "*.dfm"
TForm1 *Form1;
// les Variants doiven etre declares dans le .h
// ils ne sont place la que par comodite pour le test
Variant vMSExcel;
Variant vXLWorkbook, vXLWorkbooks;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la Feuil1
vWorksheet.OleProcedure("Select");
// pour lire dans une cellule
// ("Cells", ligne, colonne)
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
vCell.OlePropertySet("Value", "toto");
// on recupere le contenu de la cellule
vValue = vCell.OlePropertyGet("Value");
Edit1->Text = vValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vFileName = "C:\\Classeur4.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

main() n'a pas cour avec BCB, #include <system.hpp> n'est pas utile ici
Je te conseille d'avoir une programmation un peu moins brouillon surtout avec Ole, car tu va tres vite etre submerge par les erreurs

**Pymousse** · 27/06/2007, 13h37

Merci Blondelle,

Mon programme initial récupère des données de fichiers textes et je voudrais les mettres au format excel.
Est-ce qu'il est nécessaire d'utiliser les TForm? Car je n'en n'utilise pas dans mon programme.
J'espère ne pas trop saouler mais j'ai une erreur de syntaxe de déclaration sur le TForm1 :

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
47
48
49
50
51
52
53
54
55
56
57
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ColorBtn"
#pragma resource "*.dfm"
TForm1 *Form1; //erreur de syntaxe de declaration a cette endroit
 
// les Variants doiven etre declares dans le .h
// ils ne sont place la que par comodite pour le test
Variant vMSExcel;
Variant vXLWorkbook, vXLWorkbooks;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la Feuil1
vWorksheet.OleProcedure("Select");
// pour lire dans une cellule
// ("Cells", ligne, colonne)
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
vCell.OlePropertySet("Value", "toto");
// on recupere le contenu de la cellule
vValue = vCell.OlePropertyGet("Value");
Edit1->Text = vValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vFileName = "C:\\Classeur4.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

Je suis désolé, j'ai une formation d'electrotechnicien à la base. Je vais essayer de rendre plus lisible mon code.

.
Merci de te donner du mal Blondelle, c'est gentil.

**blondelle** · 27/06/2007, 16h47

La Form c'est la fenetre sur laquelle tu place tes composants.
Pour l'exemple que je t'ai passe c'est une copie complete de la page Unit1.cpp, l'entete ci dessous ne doit pas se retrouver en double dans ton programme

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; //erreur de syntaxe de declaration a cette endroit
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

**Pymousse** · 28/06/2007, 08h27

Alors si j'ai bien compris je dois faire ça, d'un côté :

Unit.h

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
 
#pragma package(smart_init)
#pragma link "ColorBtn"
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
Variant vMSExcel;
Variant vXLWorkbook, vXLWorbooks;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

Et de l'autre :

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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la Feuil1
vWorksheet.OleProcedure("Select");
// pour lire dans une cellule
// ("Cells", ligne, colonne)
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
vCell.OlePropertySet("Value", "toto");
// on recupere le contenu de la cellule
vValue = vCell.OlePropertyGet("Value");
Edit1->Text = vValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vFileName = "C:\\Classeur4.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

C'est le code qui m'a donné initialement l'erreur de syntaxe, j'ai changé de place certaines en-tête, mais ça n'a rien changé...(Je joue un peu l'apprenti chimiste sur le coup) J'ai quand même quelque notion en C++, mais les TForm, fastcall et pragma me sont inconnu, j'avoue que j'essaye ton code sans le comprendre... Et le pire, c'est que je n'ai pas le temps d'essayer de comprendre... C'est pour ça que je demande de l'aide.

Si j'avais eu le temps je ne t'aurais pas embêté.

je le mérite

**blondelle** · 28/06/2007, 12h09

Essaie d'inclure ce qui ceci on ne sait jamais

#include <ComObj.hpp>

Si ca ne fonctionne toujours pas apres cette modif post la copie de ton code .cpp et de ton .h
A+

**Pymousse** · 28/06/2007, 13h38

Blondelle,

Je viens de rajouter l'en tête que tu m'as conseillé, ça n'a pas marché. Je t'envoi donc le .cpp et le .h. Mais en fait ce sont les mêmes que précédemment. En fait c'est le code que tu as modifié au début.

.cpp :

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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
 
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la Feuil1
vWorksheet.OleProcedure("Select");
// pour lire dans une cellule
// ("Cells", ligne, colonne)
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
vCell.OlePropertySet("Value", "toto");
// on recupere le contenu de la cellule
vValue = vCell.OlePropertyGet("Value");
Edit1->Text = vValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vFileName = "C:\\Classeur4.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

.h :

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
//---------------------------------------------------------------------------
 
//#include <vcl.h>
//#pragma hdrstop
//#include <ComObj.hpp>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ColorBtn"
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
Variant vMSExcel;
Variant vXLWorkbook, vXLWorbooks;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

En espèrant que tu puisses m'aider. Je me suis baladé dans les topics, et vu le nombre de gens que tu as réussi à aider, je ne me fait pas de souci!

Encore merci Blondelle!

**blondelle** · 28/06/2007, 13h49

Alors voici la copie des deux feuilles de l'Unit1
Le .cpp

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on selectionne la Feuil1
vWorksheet.OleProcedure("Select");
// pour lire dans une cellule
// ("Cells", ligne, colonne)
vCell = vWorksheet.OlePropertyGet("Cells", 3, 2);
vCell.OlePropertySet("Value", "toto");
// on recupere le contenu de la cellule
vValue = vCell.OlePropertyGet("Value");
Edit1->Text = vValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vFileName = "C:\\Classeur4.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

Le .h

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
 
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TEdit *Edit1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
Variant vMSExcel;
Variant vXLWorkbooks;
Variant vXLWorkbook;
Variant vFileName;
Variant vSaveChanges;
Variant vValue, vRange, vCell;
Variant vWorksheet;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

La je pense que cela devrais fonctionner sinon je verais ce soir en rentrant du boulot
A+

**Pymousse** · 29/06/2007, 07h37

Merci,

Bon ça ne marche pas, mais je pense que ça vient du fait qu'il me manque des composantes graphiques. J'ai du faire une fausse manipe quand je jouais à l'apprenti chimiste avec bcb... Il ne me reste plus que l'onglet standard en haut de la fenêtre, je suppose que le souci est là maintenant.

Il me met [lieur Erreur] avec une erreur externe sur "WinMain" et il me dit que le problème vient de BORLAND\CBUILDER6\\LIB\COW32.OBJ.
Mais je pense que sans ça le code que tu m'as donné fonctionnerait.
A+

**Pymousse** · 29/06/2007, 09h03

Je viens de me rendre compte que c'est un peu con ce que j'ai écrit, lol. Evidemment, s'il n'y avait pas d'erreur ça marcherait! J'ai regardé dans le LIB et le fichier COW32.obj y est bien, donc ça vient d'ailleurs.

**blondelle** · 29/06/2007, 11h30

Le code fonctionne je te joind une copie de la Form pour que tu puisse voir a quoi cela ressemble.

**Pymousse** · 29/06/2007, 13h07

Merci Blondelle, je vais me débrouiller avec mon logiciel pour voir ce qui ne va pas.
Bon Week End
A+

Problème pilotage OLE : erreur sur <utilcls.h>

C++Builder

Discussions similaires

Partager

Partager