Ver Mensaje Individual
  #2  
Antiguo 27-03-2012
Gamael Hdez Gamael Hdez is offline
Miembro
 
Registrado: mar 2010
Ubicación: Cd Carmen, Campeche
Posts: 10
Reputación: 0
Gamael Hdez Va por buen camino
Post

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.

Última edición por ecfisa fecha: 27-03-2012 a las 05:13:58. Razón: ETIQUETAS: [DELPHI] [/DELPHI]
Responder Con Cita