Plantage Excel avec le pilotage depuis C++ Builder

**Jidewe** · 15/01/2007, 19h10

Je m'essaye à la modification de fichier xls depuis C++ Builder et j'ai donc suivis le tuto du site

Mais je dois oublier quelque chose car j'obtiens a chaque execution une fenetre Windows qui m'annonce qu'excel a rencontrer un probleme et doit fermer.

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
void main()
{
        int i;
 
        CoInitialize(0); // sans cela j'obtiens une erreur
 
        Variant vMSExcel;
 
        vMSExcel = Variant::CreateObject("Excel.Application");
 
        vMSExcel.OlePropertySet("Visible", false);
 
        Variant vFileName, vXLWorkbooks, vXLWorkbook, vWorksheet, vSheetName, vValue, vRange, vCell,vSaveChanges;
 
        vFileName = "C:\\test.xls";
        vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
        vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
 
        vSheetName = "Feuil1";
        vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
        cin>>txt;
 
        AnsiString aValue;
 
        vRange = "A1";
        vCell = vWorksheet.OlePropertyGet("Range", vRange);
        aValue = vCell.OlePropertyGet("Value");
 
        cout<<aValue;
 
 
 
        cin>>i;
}

Je suis sur une application console.

**blondelle** · 15/01/2007, 20h27

Salut Jidewe:
Je pense que ton erreur est la

vSheetName = "Feuil1";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);

Tu met juste

vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);

Tu ne donne un nom que si c'est different de "Feuil1"...

**Jidewe** · 15/01/2007, 23h24

non c'est pas ça

Pourrais tu me donner un en-tête standard stp? Avec des includes necessaires, peut etre que j'en oublie certains...

**blondelle** · 15/01/2007, 23h31

Un lien sur un Tuto.

http://lfe.developpez.com/Excel/

**Jidewe** · 15/01/2007, 23h41

Oui oui déja lu ^^ Si tu regarde bien mon code c'est exactement le tuto

Mais je n'arrive pas a le faire fonctionner!

**blondelle** · 15/01/2007, 23h43

Je fais la meme chose que toi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet;
Variant vWorksheets;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vNotUsed;
vNotUsed = Unassigned;
vFileName = "C:\\test_Word";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed,
vNotUsed, vNotUsed);
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);

Il y a aussi la FAQ

**blondelle** · 15/01/2007, 23h52

Ton code fonctionne chez moi, mais j'utilise les composants, j'ai donc mis en commentaires ce qui ne fonctionne pas avec les composants.

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
 
// ne pas oublier #include <utilcls.h>
        int i;
        OleInitialize(0); // sans cela j'obtiens une erreur
        Variant vMSExcel;
        vMSExcel = Variant::CreateObject("Excel.Application");
        vMSExcel.OlePropertySet("Visible", true);
        Variant vFileName, vXLWorkbooks, vXLWorkbook, vWorksheet, vSheetName, vValue, vRange, vCell,vSaveChanges;
        vFileName = "C:\\test.xls";
        vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
        vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
//        vSheetName = "Feuil1";
        vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
//        cin>>txt;
//        AnsiString aValue;
  Variant aValue;
        vRange = "A1";
        vCell = vWorksheet.OlePropertyGet("Range", vRange);
        aValue = vCell.OlePropertyGet("Value");
//        cout<<aValue;
 
//        cin>>i;

**Jidewe** · 16/01/2007, 01h13

J'ai copier/coller ton code et j'ai toujours le même probleme. Cela pourrait donc venir d'excel!

Je vais essayer de chercher de ce coté là! Si toi, ou d'autre personnes ont des idées...

Merci beaucoup pour ton aide!

**netah25** · 18/01/2007, 13h25

est cer que ca ne planterais pas que au deuxieme essai et suivant ?

reguarde dans ta liste de processus ctrl+alt+suppr si tu n'as pas deja une instance de excel qui reste a trainer ?

netah25

**Mattetfamilly** · 19/01/2007, 19h29

J'ai le même problème...
Est-ce qu'avec l'utilisation de CreatObject, il faudrait faire une sorte de Delete à a fin de l'utilisation de l'objet excel? genre delete?
avant de faire un second appel à la fonction qui récupéré les données d'une fenêtre excel.

@+
Mattetfamilly.

**blondelle** · 19/01/2007, 19h36

Salut Mattetfamilly:
Tu est en mode console aussi?

**Mattetfamilly** · 19/01/2007, 19h37

cela m'arrive mais pas dans le cas ou je suis avec excel.

Mais il semble que j'ai le même message.
En fait, dans une fonction je récupéres des données d'une fiche excel dont le nom m'est donné dans les paramètres de la fonction avant de les renvoyer sous forme de StringList.
Effectivement je ne suis pas tout à fait dans la même configuration que le début de ce post... Mais il semble que le message soit le même.
A chaque nouvel appel de ma fonction j'ai le même type de message d'erreur...

@+ Mattetfamilly.

**blondelle** · 19/01/2007, 19h42

Je ne suis pas sur qu'Excel peut etre utilise en mode console comme l'utilise Jidewe j'ai un doute

**Argol_Medusa** · 21/01/2007, 17h03

Je ne sais pas si on peut utiliser le mode consol, le problème vient peut-etre de là.

Puisque l'on est dans le sujet

vRange = "A1"

;

marche

et

vRange = ("A"+IntToStr(n))

ne marche pas alors que n = 1, excel plante dessus

est-ce que quelqu'un à une idée du pourquoi ? :s

**lenrok** · 21/01/2007, 17h28

Bonjour Argol_Medusa,

Voici d'un bout de code que j'utilise, si cela peut t'aider...

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
 
  //Ouverture de la FICHE DE CALCUL     : Naissance
  //du CLASSEUR                        : Tounoi.xls
  vSheetName = "Naissance";
  vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
  //Sélection de la cellule B2
   vRange ="B2";
   vCell = vWorksheet.OlePropertyGet("Range",vRange);
 
   //Conversion de la CHAINE CARACTERE NaisPous1 en nombre ENTIER
   //Affectation de cette valeur en B2
   vValCell = StrToInt(NaisPous1->Text);
   vCell.OlePropertySet("Value",vValCell);
 
  //Sélection de la cellule B3
  vRange ="B3";
  vCell = vWorksheet.OlePropertyGet("Range",vRange);
 
  //Conversion de la CHAINE CARACTERE NaisPous2 en nombre ENTIER
  //Affectation de cette valeur en B3
  vValCell = StrToInt(NaisPous2->Text);
  vCell.OlePropertySet("Value",vValCell);
 
  //Sauvegarde Fichier
   vXLWorkbook.OleProcedure("Save");

A essayer donc...

**Argol_Medusa** · 22/01/2007, 00h05

Bonjour, merci pour la réponse

vValCell = StrToInt(NaisPous2->Text);

marche, mais pour les vRange ça plante lors de l'exécution de excel.

En fait le but serait de faire une boucle for qui incrémente le nombre de la case à modifier.

Seul problème : un vRange = "B41" va marcher alors que si l'on rentre une AnsiString (pourtant correcte ) vRange = "B" + IntToStr(41) ça ne marche pas.

Je me demande de quoi ça peut venir.

**lenrok** · 22/01/2007, 07h26

Bonjour Argol_Medusa,

Vérifie la déclaration du format de ta cellule sous EXCEL.
Pour ce faire, va dans Format de cellule puis Nombre et enfin Catégorie
2 possibilités s'offre à toi soit :
tu déclares ta cellule en type NOMBRE soit en type TEXTE

Bon courage...

**lenrok** · 22/01/2007, 10h12

Bonjour Argol_Medusa,
Voici le code permettant de réaliser une boucle sur les cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
...
//Insere ici le début 'b4' et la fin de ta boucle 'b10'
//Ceci n'est valable que si tu connais tes bormes de boucle
vRange ="b4:b10";
vCell = vWorksheet.OlePropertyGet("Range",vRange);
vValCell = StrToInt(NaisPous2->Text);
vCell.OlePropertySet("Value",vValCell);
...

Chez moi, cela fonctionne. J'espère que cela te sera utile...
Bon courage ...

**Argol_Medusa** · 23/01/2007, 00h31

Bonsoir, et merci pour les explications.

En fait mon code est le suivant :

for (int n=1; n<10 ; n++)
{
vRange = "D1"; // marche
vRange = ("D"+IntToStr(n)); // ne marche pas XD
ShowMessage (vRange);
vCell = vWorksheet.OlePropertyGet("Range", vRange);
aValue = vCell.OlePropertyGet("Value");
if (aValue.Length() > 0)
ShowMessage(aValue);
}

le but est de scanner les valeurs d'une colonne d'un tableau excel pour trouver une valeure ( ici quelque chose de > 0 )

Je ne comprends pas que le D1 marche alors que l'équivalent en chaine de caractère ne fonctionne pas

**lenrok** · 23/01/2007, 08h48

Bonjour Argol_Medusa,
J'ai repris ton code et modifié ...

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
 
//Dans mon exemple, tout la rangée A1,B1,...,F1 représente des titres
//i commence à 2
for(int i=2;i<=5;i++)
 {
  // i représente le déplacement en rangée ou hauteur
  // 2 représente la colonne "B"
  vCell = vWorksheet.OlePropertyGet("Cells",i,2);
  //Récupération de la valeur de la cellule en type AnsiString
  AnsiString aValue = vCell.OlePropertyGet("Value");
  //Affichage de cette valeur mode debuggage
  ShowMessage(aValue);
 
  //Boucle de test valeur supérieur à 1900
  if(aValue >1900)
  {
    ShowMessage(aValue);
  }
 }

Essaye ce code... Bon courage...

Plantage Excel avec le pilotage depuis C++ Builder

C++Builder

Discussions similaires

Partager

Partager