	Rechercher: sur developpez.com sur les forums	Forums \| Tutoriels \| F.A.Q's \| Participez \| Hébergement \| Contacts

Emploi

Business Intelligence

Pilotage OLE d'Excel à partir de Borland C++ Builder

18/10/2002

Par LFE (autres articles)

Ce document a pour but de présenter le pilotage OLE d'Excel depuis une application C++ Builder

Avant-Propos
1. Démarrer Excel
1.1. Ouvrir une nouvelle instance
1.2. Se connecter à une instance existante
2. Fermer Excel
3. Créer un nouveau classeur
4. Ouvrir un classeur existant
4.1. Ouvrir un classeur simple
4.2. Ouvrir un classeur en lecture seule
4.3. Ouvrir un classeur protégé par un mot de passe
4.4. Ouvrir un fichier csv
5. Enregistrer un classeur
5.1. Enregistrer le classeur sous le même nom
5.2. Enregistrer le classeur sous un autre nom
6. Fermer un classeur
7. Accéder à une feuille de calcul
8. Accéder à une cellule
9. Lire la valeur d'une cellule
10. Modifier la valeur d'une cellule

Avant-Propos

Ce document a pour seul but de présenter une facon simple de piloter Excel, en restant indépendant des composants de BCB.
Le code a été écrit et testé avec Borland C++ Builder 6.0 Enterprise anglais et Excel 2000 Français.
Le code a aussi été testé sur Borland C++ Builder 5.0 Professionnel anglais et Excel 97 Français.

Les commentaires au code sont minimaux, ceci n'étant pas une explication du fonctionnement d'Excel, mais simplement l'interfacage avec C++ Builder et le code étant, je pense, explicite par lui-même.

L'utilisation du Variant est quasi générale. Pour rappel, le type Variant est un type de variable qui a la particularité de pouvoir ne pas être déterminé au moment de la compilation, et même de changer en cours d'éxécution du programme. Son plus grand intéret, à mon sens, est qu'il peut aussi contenir une interface vers un objet OLE et donner accès aux propriétés, procédures et fonctions de celui-ci.

1. Démarrer Excel

Il faut ajouter la ligne suivante dans les include

#include <utilcls.h>

1.1. Ouvrir une nouvelle instance

Variant vMSExcel;

vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);

La propriété Visible permet de spécifier si Excel est affiché a l'écran ou s'il reste en tâche de fond.

1.2. Se connecter à une instance existante

Variant vMSExcel;

vMSExcel = Variant::GetActiveObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);

Le code suivant permet donc de lancer Excel si il n'est pas déjà actif ou de se connecter à l'instance existante éventuelle.

try {
    vMSExcel = Variant::GetActiveObject("Excel.Application");
} catch(...) {
    vMSExcel = Variant::CreateObject("Excel.Application");
}

2. Fermer Excel

vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;

Positionner vMSExcel à Unassigned permet de libérer le Variant.

3. Créer un nouveau classeur

Variant vXLWorkbook, vXLWorkbooks;		

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

Excel tient à jour une liste de tous les classeurs ouverts, dans une collection appelée WorkBooks. Ouvrir un nouveau classeur revient simplement à ajouter un nouvel élement à cette collection. La fonction Add renvoie un Variant faisant référence au nouveau classeur.

4. Ouvrir un classeur existant

4.1. Ouvrir un classeur simple

Variant vFileName, vXLWorkbooks, vXLWorkbook;

vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\classeur1.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

Ouvrir un classeur se fait sur le même principe que la création, à savoir l'ajout a la collection Workbooks d'un nouvel élément, non plus avec la fonction Add, mais la fonction Open.

4.2. Ouvrir un classeur en lecture seule

Variant vFileName, vXLWorkbooks, vXLWorkbook, vReadOnly, vLink;

vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\classeur1.xls";
vLink = Unassigned;
vReadOnly = true;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vLink, vReadOnly);

Ouvrir un classeur en lecture seule se fait en passant le 3e paramètre de la fonction Open avec une valeur true.
La fonction Open possède une série de paramètres dont la liste exhaustive se trouve dans l'aide de VBA pour Excel.
A noter que les paramètres facultatifs doivent etre passés comme des Variants Unassigned, et non des NULL, comme on pourrait le penser au premier abord.

4.3. Ouvrir un classeur protégé par un mot de passe

Variant vFileName, vXLWorkbooks, vXLWorkbook, vReadOnly, vLink, vFormat, vReadPass;

vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\classeur1.xls";
vLink = Unassigned;
vReadOnly = false;
vFormat = Unassigned;
vReadPass = "MotDePasse";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = WorkBooks.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat, vReadPass);

Le 5e paramètre de la fonction Open permet de spécifier le mot de passe utilisé pour la protection en lecture du classeur.

4.4. Ouvrir un fichier csv

Variant vFileName, vNotUsed, vSeparator;

vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\text.csv";
vNotUsed = Unassigned;
vSeparator = 4;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName, vNotUsed, vNotUsed,vSeparator);

vSeparator spécifie le caractère utilisé comme séparateur de champs dans le fichier texte à importer.
Pour connaître les différentes valeurs possibles, voir la documentation de VBA d'Excel.

5. Enregistrer un classeur

5.1. Enregistrer le classeur sous le même nom

Une fois le classeur ouvert, pour l'enregistrer, il suffit de faire :

vXLWorkbook.OleProcedure("Save");

5.2. Enregistrer le classeur sous un autre nom

Une fois le classeur ouvert, pour l'enregistrer en changeant de nom, il suffit de faire :

Variant vFileName;

vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\saveas.xls";
vXLWorkbook.OleProcedure("Saveas", vFileName);

6. Fermer un classeur

Variant vSaveChanges, vFileName;

vSaveChanges = Unassigned;
vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\SaveName.xls";
vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName);

Le 1er paramètre de la fonction Close permet de spécifier si les modifications sont enregistrées.

true : les modifications sont energistrées,
false : les modifications ne sont aps enrgistrées,
Unassigned : demande à l'utilisateur.

Le 2e paramètre de la fonction Close permet de spécifier le nom sous lequel le classeur sera enregistré.

Ces 2 paramètres sont facultatifs.

7. Accéder à une feuille de calcul

Variant vWorksheet, vSheetName;

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

8. Accéder à une cellule

Variant vCell, vRange;

vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", vRange);

9. Lire la valeur d'une cellule

Variant vValue, vRange, vCell;
AnsiString aValue;

vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", vRange);
aValue = vCell.OlePropertyGet("Value");

10. Modifier la valeur d'une cellule

Variant vValue, vRange, vCell;

vRange = "D3";
vCell = vWorksheet.OlePropertyGet("Range", vRange);
vValue = "valeur de la cellule";
vCell.OlePropertySet("Value", vValue);

Mettre à jour une plage de cellules peut se faire de la même facon , simplement en spécifiant une sélection à la place d'une cellule seule

vRange = "D3";

devient

vRange = "C3:E5";

Voir également mes autres articles :
Piloter Word sous C++ Builder et Delphi
Piloter Excel sous C++ Builder et Delphi
Utiliser l'API mySQL sous C++ Builder et Delphi
Utiliser un WebService sous C++ Builder et Delphi
Utiliser FMOD sous C++ Builder
Créer et utiliser une DLL sous C++ Builder
Signer des données avec C++ Builder
Comment déployer une application SWT via WebStart
Créer et déployer un premier servlet avec TomCat

Sans oublier :
la FAQ C++ Builder par Geronimo
la FAQ C
la FAQ C++

Ce document est issu de http://www.developpez.com et reste la propriété exclusive de son auteur.
La copie, modification et/ou distribution par quelque moyen que ce soit est soumise à l'obtention préalable de l'autorisation de l'auteur.

Responsable bénévole de la rubrique C : Arnaud Feltz (buchs) - Contacter par EMail :

Vos questions techniques : forum d'entraide C - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.