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

Ce document a pour seul but de présenter une façon 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'interfaçage 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'exécution du programme. Son plus grand intérêt, à 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.

Il faut ajouter la ligne suivante dans les include :

#include <utilcls.h>

I-A. Ouvrir une nouvelle instance▲

Variant vMSExcel;

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

I-B. Se connecter à une instance existante▲

Variant vMSExcel;

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

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

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

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

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 élément à cette collection. La fonction Add renvoie un Variant faisant référence au nouveau classeur.

IV-A. 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);

IV-B. 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);

IV-C. 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);

IV-D. 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);

V-A. Enregistrer le classeur sous le même nom▲

vXLWorkbook.OleProcedure("Save");

V-B. Enregistrer le classeur sous un autre nom▲

Variant vFileName;

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

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 enregistrées ;
• false : les modifications ne sont pas 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 deux paramètres sont facultatifs.

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 façon , simplement en spécifiant une sélection à la place d'une cellule seule

vRange = "D3";

devient

vRange = "C3:E5";