probleme avec excel

Version imprimable

probleme avec excel

Bonjour,
Je souhaite ouvrire le logiciel Excel afin d'écrire dans une cellule.
Le probleme est que lorsque je lance le programme(appuye sur le button2),excel s'ouvre et se referme automatiquement.(Bref apparition en bas de la fenêtre).Ensuite si j'appuye sur les autres boutons une erreur arrive:
"_ASSERTE: IsBound() @ c:\bcb\emuvcl\utilcls.h/4249 Press [Y]es to termine [N]o to continue [C]ancel to debug".

Voici mon programme:

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PERFGRAP"
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
//-------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant vMSExcel;
ExcelApplication1->Connect();
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Variant vMSExcel;
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Variant vFileName,vXLWorkbook;
 
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Variant vValue, vRange, vCell,vWorksheet;
 
vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", vRange);
vValue = "valeur de la cellule";
vCell.OlePropertySet("test", vValue);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Variant vWorksheet, vSheetName,vXLWorkbook;
 
vSheetName = "Feuil2";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
}

Je ne voit pas ou peut venir l'erreur !!!?:(
Merci

15/05/2009, 11h00
kurul1

Je ne sais pas si cela peut venir de cela mais Ton variant vMSExcel dans ton Bouton2, tu le déclare dans la fonction de ton bouton donc dès que la fonction se termine, il n'a plus d'existance.

As-tu essayé de le déclarer en global dans ta form.

Salut jojolastar27
C'est pire que ce que kurul1 avait detecte, deja tu utilise un composant avec OleExcel, tu declare toutes tes variable en prive, tu ne fini aucun de tes morceaux de code.
OleExcel demande beaucoup de rigueur, il faut avoir un plan bien structure avant de commancer a programmer, et surtout proceder de bout de code en bout de code, sinon c'est pratiquement insoluble, voici donc ce que je pense que tu desire

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
/*
ceci est inutile
#pragma link "PERFGRAP"
#pragma link "Excel_2K_SRVR"
*/
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(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");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Variant vFileName;
vFileName = "c:\\test.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Variant vValue, vRange, vCell;
vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", "D3");
vValue = "valeur de la cellule";
vCell.OlePropertySet("Value", vValue);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Variant vSheetName;
vSheetName = "essai2";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 2);
vWorksheet.OleProcedure("Select");
vXLWorkbook.OlePropertyGet("Worksheets", 2).OlePropertySet("Name", vSheetName);
}
//---------------------------------------------------------------------------

15/05/2009, 12h36
kurul1

Moi je sais que j'ai galèré au début quand j'ai commencer.
Maintenant ca va mieux car je me suis créer une classe toute faite qui gère tout cas et du coup je n'ai plus qu'a la réutiliser.
J'ai d'ailleurs toujours un problème au niveau de l'indicage des colonne du fait que ce soit des lettres et j'ai quelques raté, mais dans l'ensemble, ca marche plutôt bien.
15/05/2009, 12h51
blondelle

Salut kurul1
Si tu utilise les coordonnees du style "A1", tu aura quelque chose comme ceci "OlePropertyGet("Range", "A1"), si c'est du style ligne1, colonne1, tu utilise ceci "OlePropertyGet("Cells",1,1)", ce qui revient au meme
15/05/2009, 13h55
kurul1

j'utilise le style A1 mais j'ai des difficultés pour certaines colonnes a reconstruire l'adresse exacte.

Et si j'utilise en L1C1, je n'ai plus les lettres d'affiché comme par défaut dans Excel

On peut convertir le systeme de coordonnees

Code:

1
2
3
4
5
6
7
8
 
Variant a = vWorksheet.OlePropertyGet("Cells", 5, 5); //.OlePropertyGet("Address");
String variable_formula;
//variable_formula = a.OlePropertyGet("Address"); // $A$1
//variable_formula = a.OlePropertyGet("Address", false); // $A1
variable_formula = a.OlePropertyGet("Address", false, false); // A1
//variable_formula = a.OlePropertyGet("Address", false, false, -4150); // xlR1C1 = -4150 = R1C1 ou L1C1, xlA1 = 1 = $A$1
//variable_formula = a.OlePropertyGet("Address", false, false, 1, false, (vWorksheet.OlePropertyGet("Cells", 8, 8))); // R[-2]C[-2]

ici on transforme les coordonnees "5, 5" en "E5"

15/05/2009, 17h58
jojolastar27
Merci les mec pour vos réponses !!;)

Bravo blondelle ,sa marche comme je le souhaitait!! merci de ta rapidité

:):)

j'ai oublier une petite question !!:(
Comment je peut faire descendre une ligne dans une boucle for:

j'ai tester sa ,mais a marche pas !!
Code:

1 2 3 4 5 6 7 8 Variant vValue, vRange, vCell; for(int i=0;i<3;i++) { vCell = vWorksheet.OlePropertyGet("Cells",i,1); vValue = "valeur de la cellule"; vCell.OlePropertySet("Value", vValue); }
15/05/2009, 19h16
jojolastar27

non c'est bon!! Erreur bête ...
for(int i=1:i<3;i++)
:D:D