Ouverture Fichier Excel

Version imprimable

25/12/2006, 17h42
lenrok

Ouverture Fichier Excel

Bonjour à tous,
J'essaye d'ouvrir un fichier ou de créer un fichier Excel, mais en vain :cry:
Voici le code que j'utilise :
Variant vFileName, vXLWorkbooks, vXLWorkbook;
Variant V;
//Ouverture d'une nouvelle instance
V = Variant::CreateObject("Excel.Application");

vMSExcel = CreateOleObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);

vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vMSExcel.OleFunction("Add");

Ouverture d'un classeur existant
vFileName = "c:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vMSExcel.OleFunction("open",vFileName);
Je ne suis pas certain que cela fonctionne ...Par contre, le systeme me renvoie le message suivant :
IsBound()@c:\bcb\emuvcl\uticls.h/4249
Press Yes to terminate, No to continue and Cancel to debug

Pouvez-vous éclairer ma lanterne ??
Merci d'avance....

Salut lenrok:
Tout d'abord utilise les balises code le "#" ce sera plus lisible.
essaye ce bout de code:

Code:

1
2
3
4
5
6
7
8
9
10
 
Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook;
//Ouverture d'une nouvelle instance
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
//Ouverture d'un classeur existant
vFileName = "C:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

25/12/2006, 18h33
lenrok

2 pièce(s) jointe(s)

Bonjour Blondelle,

Merci pour les informations...
Mais , j'ai un message du style voir message 1.
Si je reponds à la question par non , j'ai un autre message du style voir message 2

Pouvez vous envore une fois m'aider...
Merci d'avance
25/12/2006, 18h39
blondelle

Il faut inclure "#include <utilcls.h>"
25/12/2006, 18h50
lenrok

Bonjour Blondelle,

#

#include <vcl.h>
#include <utilcls.h>
#pragma hdrstop

#include "Categorie_Combattant.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TCategorie *Categorie;
....
#
Comme vous pouvez le voir , il y est que faire....
25/12/2006, 19h06
blondelle

Pour les balise code je me suis mal explique il faut appuyer sur le "#" en haut a droite de la fenetre de saisie.
Le code tel que je te l'ai passe fonctionne chez moi, avec un chemin de fichier different.
Ce n'est pas utile d'inclure "#pragma link "Excel_2K_SRVR".
26/12/2006, 10h33
lenrok

Bonjour à tous,
En fait, mon problème était que j'avais créer un ExcelWorkActive
void __fastcall TCategorie::ExcelWorkbook1Activate(TObject *Sender)
{

//Ouverture d'un classeur existant
vFileName = "C:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

}
J'ai transféré ce code dans
_fastcall TCategorie::TCategorie(TComponent* Owner)
: TForm(Owner)
{
...
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
//Ouverture d'un classeur existant
vFileName = "C:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
...
}
Enfin plus de message d'erreur:lol:
Je remercie particulièrement Blondelle pour son aide ...
26/12/2006, 13h06
blondelle

Salut lenrok:
Je suis content pour toi que cela marche.
Pense a activer le petit resolut, et pour tes prochains posts pense aux balises de code ce sera plus lisible.
A+