C++ builder - Excel 2007

Version imprimable

bonjour;
je n'arrive pas a execute un simple programme, on utilisant excel version 2007, mon programme execute sans aucune erreur mais il bogue et il ne retourne aucune valeur.

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Variant vMSExcel;
 
 Variant vFileName, vXLWorkbooks, vXLWorkbook;
 vFileName = "c:\\classeur1.xls";
 vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
 vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
 
 Variant vWorksheet, vSheetName;
 vSheetName = "Feuil1";
 vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
 Variant vValue, vRange, vCell;
 AnsiString aValue;
 vRange = "A1";
 vCell = vWorksheet.OlePropertyGet("Range", vRange);
 aValue = vCell.OlePropertyGet("Value");
 Edit1->Text=aValue;
}
//---------------------------------------------------------------------------

19/02/2008, 17h59
blondelle

Salut touf35
Je ne possede pas la version Excel 2007, mais je pense qu'elle se gere comme la 2003.
Ton code montre que tu utilise Ole tel qu'il est tu n'executera rien car tu n'a pas charge Excel, regarde ce lien

Citation:

http://lfe.developpez.com/Excel/
21/02/2008, 09h50
touf35
bonjour;
ça ne marche pas!!

si je mit:
Code:

1 2 3 4 5 Variant vMSExcel; vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true);
L'Excel s'affiche sur l'ecran.
je n'arrive pas acceder au fichier.
Ou est le probleme?

Essaye ca

Code:

1
2
 
vFileName = StringToOleStr("c:\\classeur1.xls");

21/02/2008, 10h44
fpascal

Est tu sure du non de ton fichier?? car le format par defaut d'Excel 2007 et *.xlsx
27/12/2008, 21h07
kmaniche

Bonjour,

Je veux ajouter une question à la suite de ce poste :

Possédant Excel 2007 sur ma machine, comment forcer Excel à enregistrer le fichier xls sous un format par exmple 2003 ou 97 ?

Merci d'avance.
27/12/2008, 23h29
blondelle

Je ne possede pas Excel 2007 donc ce que je te propose c'est d'executer ce que tu veut faire en ayant pris soins de mettre VBE en enregistrement de macro automatique, poste le code VBE on pourra trouver une solution
28/12/2008, 14h19
kmaniche

Bonjour, et merci pour la réponse,

Sous Excel 2003, on peut enregistrer notre classeur au format 97. Ce que je cherche, c'est de pouvoir le faire en OLE avec c++Builder ?

Merci encore une fois.

Post ce que je t'ai demande dans mon post precedent, la macro pourra etre convertie en OleExcel, et en plus on pourra verifier s'il y a des parametres supplementaires
Sous la version 2003 voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Variant FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup;
FileFormat = 43; // xlExcel9795 = 43 Excel au format 95 2003
Password = "";
WriteResPassword = "";
ReadOnlyRecommended = false;
CreateBackup = false;
String vFileName;
// sauvegarde du fichier sous le format desire 
vFileName = "C:\\Class2.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName.c_str(), FileFormat, WideString(Password), WideString(WriteResPassword), ReadOnlyRecommended, CreateBackup);

Bonjour,
merci pour la réponse.

Le code ne marche pas, en tout cas sur ma machine, il fallait faire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
 
    // Sauvegarde du fichier sous le nom préalablement sélectionné
       vXLWorkbook.OleProcedure("Saveas", vFilename.c_str()      , // Nom du fichier xls
                                          Variant(-4143) , // Format du fichier
                                          ""             , // Mot de passe
                                          ""             , // Mode de passe en lecture seule
                                          false          , // Demande de confiramtion du mot de passe
                                          true           , // Création d'une copie de sauvegarde si le fichier existe
                                          false            // Création d'une copie du fichier
                                          ) ;

Remarque : Le format spécifié (43) n'est pas pris en charge ??