Discussion :

[El-Diablo-]

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.

[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

[El-Diablo-]

Que ferais-je sans toi kurul1 ? Je vais tester tout ca et je te redis !

[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 ?

[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

[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 :

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

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

[lenrok]

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 :

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
 
#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...