Ver Mensaje Individual
  #4  
Antiguo 23-11-2005
MAngelito MAngelito is offline
Registrado
 
Registrado: nov 2005
Posts: 9
Reputación: 0
MAngelito Va por buen camino
Hacer un reporte en excel

Hola SANDRASANTOS!!

Bueno yo trabajo con un componente adoDataset, aunque tambien funciona con un query o un DataSet comun o una Ttable:

Código Delphi [-]
var
appXlsleVariant; //declaro una variable variant tipo objetoOle
c:integer;
 
begin
 
appXls:=CreateOleObject('Excel.Application.10'); //creo el objeto tipo excel
appXls.workBooks.open('c:\ReportedeInasistencias EPO100.xls'); //abro un
//libro existente aunque puedo crear uno nuevo: appXls.workBooks.add;
appXls.visible:=true; //lo hago visible si asi lo deseo
 
 
adorep.First;
while not adorep.Eof do //recorro mis registros
begin
c:=c+1;
 
appXls.cells[c + 1,3]:=adorep['ApPaterno'] + ' ' + adorep['ApMaterno'] + ' ' + adorep['Nombre'];
appXls.cells[c + 1,4]:=adorep['CveISSEMYM'];
appXls.cells[c + 2,4]:=adorep['RFC'];
appXls.cells[c + 1,5]:=adorep['Categoria'];
if adorep['Situacion']='Indeterminado' then
appXls.cells[c + 1,6]:='X';
if adorep['Situacion']='Determinado' then
appXls.cells[c + 1,7]:='X';
appXls.cells[c + 1,8]:=adorep['Funcion'];
adorep.next;
end;
end;


al manejar celdas lo hago así: appXls.cells[fila,columna]
Con el codigo anterior evitas manejar componentes.Espero te sirva de algo.
Saludos!!

Última edición por MAngelito fecha: 23-11-2005 a las 19:48:03.
Responder Con Cita