C++ Builder et Excel

Version imprimable

07/09/2007, 14h18
El-Diablo-

C++ Builder et Excel

Bonjour,

J'ai lu un peu la FAQ et regarder un peux les objets de c++ builder et j'ai envie de commencer a travailler avec borland et excel. C'est a dire pour commencer j'aimerais savoir ecrire dans une cellule etc... Pourrais-t-on maider deja pour commencer ? Je suis vraiment au point "0" et avec la FAQ je n'arrive pas a me débrouiller.
07/09/2007, 14h53
kurul1

Déjà tu commence par créer ton instance d’Excel Ici

Ensuite tu définis si Excel est visible ou non par l’utilisateur : Ici

Tu définis si l’utilisateur peut intéragir avec Excel : ici

Il te faut ensuite récupérer l’ensemble des classeurs Ouverts : ici

Il te faut Ensuite ajouter un classeur à ton ensemble de classeurs : ici

Il te faut ensuite récupérer l’ensemble des feuilles de ton classeur : ici

Ensuite, il te faut accéder à la première feuille de ton classeur : ici

Te voila avec Excel ouvert sur une feuille de calcul

Maintenant, pour par exemple écrire sur la Cellule A1, tu fait ceci

Tu récupère la Cellule dans laquelle tu veut écrire : ici

La valeur de vWsRange sera A1

Tu écrit ta valeur : ici

Après pour fermer Excel, tu fait ceci

Fermer le classeur ouvert : ici

Fermer Excel : ici
07/09/2007, 14h56
El-Diablo-

Que ferais-je sans toi kurul1 ? Je vais tester tout ca et je te redis !
07/09/2007, 15h01
El-Diablo-

Dès la création de l'instance j'ai un problème (Désolé je débute assez)... La première ligne je dois la mettre tout au début de mon code pour que se soit une variable globale et la deuxième ligne je dois la mettre comme si c'était une fonction ?
07/09/2007, 15h03
kurul1

Pour chaque opération, tu réutilise pratiquement à chaque fois le Variant de l'instruction précédente, donc il faut que tous tes variants soit accessibles

Moi personnellement, je me suis fait une petite classe qui va bien et qui gère tout. Ansi j'ai accès a tout

Tout ce code que j'ai copier est-il obligatoir ou j'ai fait quelque chose a double? Peux-tu m'expliquer a quoi servent ces lignes car je ne comprend absolument rien :S

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   Variant vXLWorkbooks;
   Variant vMSExcel;
   Variant vXLWorkbook;
   Variant vWorksheets;
   Variant vWorksheet;
   Variant vWsPos ;
   Variant vCell;
   Variant vWsRange ;
   vMSExcel = Variant::CreateObject("Excel.Application");
   vMSExcel.OlePropertySet("Visible", false);
   vMSExcel.OlePropertySet("Interactive", false);
   vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
   vWorksheets = vXLWorkbook.OlePropertyGet("Worksheets");
   vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", vWsPos);
   vCell = vWorksheet.OlePropertyGet("Range", vWsRange);

Merci d'avance

Bonjour El-Diablo,

Essaye le code suivant, chez moi cela fonctionne très bien...
Au préalable, j'ai un classeur EXCEL déjà créé

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
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
 vMSExcel = Variant::CreateObject("Excel.Application");
  vMSExcel.OlePropertySet("Visible", true);
 
  //Ouverture d'un classeur existant
  vFileName = "C:\\TOURNOI JUDO\\Data\\Tournoi.xls";
  vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
  vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
 
  //Ouverture de la FICHE DE CALCUL     : Naissance
  //du CLASSEUR                                : Tounoi.xls
  vSheetName = "Naissance";
  vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
   vRange ="B2";
   vCell = vWorksheet.OlePropertyGet("Range",vRange);
 
   //Conversion de la CHAINE CARACTERE NaisPous1 en nombre ENTIER
   //Attention au format de cette donnée ! 
   //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 B2
  vValCell = StrToInt(NaisPous2->Text);
  vCell.OlePropertySet("Value",vValCell);
 
  //Sauvegarde Fichier
   vXLWorkbook.OleProcedure("Save");
 
  //Fermeture de l'application EXCEL
  vMSExcel.OleFunction("Quit");
  //Libére la variable vMSExcel
  vMSExcel = Unassigned;
 
}

En espérant que cela t'aide...

Citation:
Envoyé par El-Diablo-
Tout ce code que j'ai copier est-il obligatoir ou j'ai fait quelque chose a double? Peux-tu m'expliquer a quoi servent ces lignes car je ne comprend absolument rien :S
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Variant vXLWorkbooks; Variant vMSExcel; Variant vXLWorkbook; Variant vWorksheets; Variant vWorksheet; Variant vWsPos ; Variant vCell; Variant vWsRange ; vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", false); vMSExcel.OlePropertySet("Interactive", false); vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vWorksheets = vXLWorkbook.OlePropertyGet("Worksheets"); vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", vWsPos); vCell = vWorksheet.OlePropertyGet("Range", vWsRange);
Merci d'avance
Non c'est bon simplement, il faut que tu définisse vWsPos avec le numéro de la feuille dans laquelle tu veux écrire, et vWsRange le nom de la cellule dans laquelle tu veux écrire

07/09/2007, 17h15
blondelle

Salut El-Diablo-:
kurul1 et lenrok ton montre ce qu'il te faut, je vais juste te donner un lien sur le site d'un Tuto que je te conseille de lire

Citation:

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

Citation:

il faut que tu définisse vWsPos avec le numéro de la feuille dans laquelle tu veux écrire

Juste un complement vWsPos peut prendre un numero de position comme la ecrit kurul1, soit le nom par default donne par Excel "Feuil1" soit le nom que tu a donne a cette feuille en la renommant