1
2
3
4
5
6
7
8
9
10
11
|
// création du lien OLE pour la classe référencé par Excel dans la base de registre "Excel.Application"
OleApplication := CreateOleObject('Excel.Application');
//Ouverture du fichier Excel en lecture seule *//
OleWorkBook:=OleApplication.Workbooks.open('D:\MonFichier.xls',unassigned,true);
//* Désactivation du menu Fichier *//
ExcelApplication.CommandBars[1].Controls['Fichier'].Set_Enabled(False);
//Ouverture d'un onglet
OleWorkBook.Worksheets.Item['Compteur 1'].Activate;
// Rendre Excel visible
OleApplication.visible:=True; |
