Obtener color de una celda de excel

[carlos gonzalez]

Hola amigos buenas tardes.

Estoy programando en delphi 7, y tengo una duda, alguien sabe se es posible leer un archivo de excel y sacar el color que tienen algunas celdas de excel.

Se los agradeceria bastante.

Su amigo charless

[Gamael Hdez]

Ejemplo de como se haria lo que necesitas:

En el uses necesitas dar de alta esta libreria: ComObj

declaras la constante:

Código Delphi [-]
const
  ExcelApp='Excel.Application';

Asi seria el uso:

Código Delphi [-]
Var
  Excel:Variant;

begin
  try
    Excel := GetActiveOleObject(ExcelApp);
  except
    Excel := CreateOleObject(ExcelApp);
  end;

 try
  Excel.Visible := false;
  Excel.DisplayAlerts := False;
  Excel.workbooks.open('C:\Miarchivo.xls'); // aqui debe ir la ruta completa del archivo
 
  Excel.Cells[renglon,Columna].Select; // La celda de la que quieres saber el color, 
                                       // Renglon y columna son variables enteras que tu debes declarar y manipular
                                       //para moverte sobre algun rango de celdas
  Excel.Selection.Interior.ColorIndex; //aqui esta el valor del color pero en formato numerico, necesitas tener la paleta de colores 
                                       //con sus respectivos valores numericos para interpretar el color que tiene la celda. 

 finally
    Excel.Visible := true;
   Excel.DisplayAlerts := true;
 end;
end;

Es un ejemplo sencillo para leer un archivo de excel asi como la linea de codigo con la que obtienes el color de la celda.