Tranferir Un Tabla O Una Consulta A Exel

[MAngelito]

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!!

[jhonny]

Si quieres ver que ventajas tiene usar el componente mencionado con respecto a otro tipo de codigo puedes entrar en el siguiente hilo

http://www.clubdelphi.com/foros/show...=delphi.com.ar