Componentes para Exportar

[leogobo]

hola,

He estado intentando exportar a un archivo, y he encontrando algunos codigos pero supe como utilizarlos. No se si alguno me podria indicar como utilizar los componentes de delphi.com.ar, es que soy novato y no se como instalar los componentes y menos como utilizarlos.

Gracias

[Neftali [Germán.Estévez]]

¿Qué quieres exportar?
¿A qué archivo lo quieres exportar?

Hay componentes como los que comentas (ExportSuite) o los de Max (que puedes encontrar en el FTP).
Ambos funcionan.

1º) Busca en los foros.
2º) Intenta instalarlos; Si no te funciona, dinos cómo lo haces, qué error te da, porqué no te funciona,... e intentaremos ayudarte.

[alej.villa]

buenos dias yo estoy tratando de exportar los datos de un dbgrid a excel 2007 tengo el siguiente codigo de delphi 7
procedure TformEmpleados.Button1Click(Sender: TObject);
var Excel, Libro : Variant;
var i:integer;
begin
// Crea una aplicacion Excel.
Excel := CreateOleObject ('Excel.Application');
// La muestra (vas a ver un Excel como si lu ubieras ejecutado)
Excel.Visible := True;
// Agrega un libro.
Excel.WorkBooks.Add (-4167);
// Le asigna un nombre al libro
Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
// Hace un puntero al libro del Excel.
Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];

dm.Query.SQL.Add ('Select cedula, nombres, apellidos, sexo, turno, fecha_ingreso, cargo from Empleados');
dm.Query.Open;
i:=1;
while not dm.Query.EOF do
begin
// aqui le ponemos nombre a los campos
Libro.Cells [1,1] := 'Cedula';
Libro.Cells [1,2] := 'Nombre';
Libro.Cells [1,3] := 'Apellido';
Libro.Cells [1,4] := 'Sexo';
Libro.Cell [1,5] := 'Turno';
Libro.Cell [1,6] := 'Fecha de Ingreso';
Libro.Cell [1,7] := 'Cargo';
i:=i+1;
Libro.Cells [i,1] := dm.Query.FieldByName ('cedula').AsString;
Libro.Cells [i,2] := dm.Query.FieldByName ('nombres').AsString;
Libro.Cells [i,3] := dm.Query.FieldByName ('apellidos').AsString;
Libro.Cells [i,4] := dm.Query.FieldByName ('sexo').AsString;
Libro.cells [i,5] := dm.Query.FieldByName ('turno').AsString;
Libro.Cells [i,6] := dm.Query.FieldByName ('fecha_ingreso').AsString;
Libro.Cells [i,7] := dm.Query.FieldByName ('cargo').AsString;

dm.Query.Next;
end;

//Query.Close;
end;

en estas lineas
Libro.Cell [1,5] := 'Turno';
Libro.Cell [1,6] := 'Fecha de Ingreso';
Libro.Cell [1,7] := 'Cargo';
me dice un error de 'Method 'Cells' not supported by automation object'
quisiera que me explicaran un poco porque sucede este error y como puedo solucionarlo

Gracias!

[Neftali [Germán.Estévez]]

Hola.
Deberías comentar qué versión de Office tienes y asegurarte (de donde hayas conseguido el código) que funciona con esa versión. El tema de automatización varía para versiones diferentes de Word/Excel.

También puedes buscar en los foros; Es un tema tratado ampliamente y seguramente encontrarás más código para probar/comparar con este.

Utiliza TAG's cuando añadas partes de código Delphi; Mejora la lectura.

Un saludo.

[alej.villa]

listo el codigo funciona a la perferccion el detalle estaba en esta linea
Libro.Cells [i,6] := dm.Query.FieldByName ('fecha_ingreso').AsString;
la estaba declarando como string y en la base de datos la tengo como datetime, lo que hice fue cambiarla asi
Libro.Cells [i,6] := dm.Query.FieldByName ('fecha_ingreso').AsDateTime;
y me lo exporta perfecto de todas maneras gracias!