Tranferir Un Tabla O Una Consulta A Exel

[SANDRASANTOS]

Hola, Por Favor Sime Pordrian Ayudar Como Pasara Una Tabla O Una Consulta A Exel O Tambien Podria Ser Como Pasar Un Reporte A Exel, Les Agradesco Por Anticipado La Ayuda, Gracias

[Paoti]

Hola Sandra.....


Hay un componente que hace lo que tu necesitas....


más no recuerdo si se vincula a un dataset o a una dbgrid y esa información te la traspasa a Excel.....




Ese componente esta en www.delphi.com.ar (página mantenida por nuestro compañero del mismo nick) y creo se llama Federico.



Saludos

[jhonny]

Bueno, amiga Sandra primero que todo BIENVENIDA¡¡¡ a nuestro club, como segundo te recomiendo que leas la Guia de estilo de esa manera todos podemos darte respuesta muy concreats a tus preguntas.

Ahora, para responder a tu pregunta primero seria genial que nos dieras a saber de que tipo de tablas nos estas hablando por ejemplo (Tablas Paradox, Acces, de una BD Interbase, FireBird, Sql Server), asi tendrias una respuesta mas puntual de lo que necesitas.

Por otro lado, supongamos que estas usando FireBird o Interbase Seria muy sencillo pasar dicha información usando el IBExpert.

Otra cosa es, si lo que necesitas es hacerlo desde una aplicacion que tu misma hiciste alli si necesitarias una especie de componente como el de delphi.com.ar

Espero me entiendas y que quiza haya adivinado bien el tipo de BD que usas.

[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