Récupérer la couleur d'une cellule excel par Delphi
Bonjour,
Avec le code suivant j'arrive à récupérer la valeur d'une cellule excel par Delphi :D .
Serait il possible de récupérer la couleur de cette cellule ?
J'ai regardé ce tutorial
http://lfe.developpez.com/PasExcel/
mais il n'indique pas comment récupérer la couleur :arf:
Merci d'avance
:wink:
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
|
{ Nouvelle instance }
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true ;
{ Ouverture d'un classeur }
fichier := '\\CSI270\Cli\Prospects\Applications Concept\Emploi du Temps.xls';
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Open(fichier);
{ Accéder à une feuille de calcul }
aSheetName := 'Feuil1';
vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
{ Lire la colonne B }
i := 1;
while i<= 47 do
begin
aRange:='B'+inttostr(i);
vCell := vWorksheet.Range[aRange];
aValue := vCell.Value;
if aValue <> '' then
begin
showmessage(aValue);
end;
i := i + 1;
end; |
