Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Exportar todas los tabsheets a excel (https://www.clubdelphi.com/foros/showthread.php?t=50862)

Nieto 29-11-2007 22:14:58

Exportar todas los tabsheets a excel
 
Buenas tardes,

Foro, una pregunta he creado una parte dinamica en un pagecontrol, con tabsheet y cada tabsheet tiene su dbgrid.

Como puedo exportar todas las hojas a una hoja de excel con el mismo nombre de la hojas de excel pero con cada tabsheet en excel.

Saludos.

Neftali [Germán.Estévez] 30-11-2007 10:12:16

Revisa información sobre automatización.
Aquí o aquí.

Si buscas por internet seguro que encuentras más.

Otra cosa que te recomendaría es que vayas por partes. Primero intenta acceder a Excel, luego intenta exportar datos y luego revisa el tema de crear pestañas y hojas.

A medida que vayas teniendo problemas (más concretos) ya dirás...

fjcg02 30-11-2007 22:54:36

Pon este codigo en un botón y prueba.

Suerte y saludos


Código Delphi [-]
procedure AExcel;
    Excel: variant; Libro: variant; Hoja: variant; // Hoja de cálculo
begin
try
   Excel := CreateOleObject( 'Excel.Application');
   Excel.visible := False;
   // Creamos un nuevo libro de trabajo
   Excel.SheetsInNewWorkbook := 1;
   Libro := Excel.WorkBooks.Add; // creas un nuevo libro
   Hoja := Libro.WorkSheets.Add; // creas la pestaña
   Hoja := Libro.WorkSheets[1]; // la seleccionas
   Hoja.Name:= 'GENERAL';  // pones el nombre de la pestaña         
// tratas las pestañas
   Libro.SaveAs(fichero);  // salvas el archivo
except
    Application.MessageBox('Error al guardar el archivo','Alerta',MB_ICONWARNING);
Finally
   Libro.Close;
    Excel.quit ;
end;
end;


La franja horaria es GMT +2. Ahora son las 19:54:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi