Exportar todas los tabsheets a excel

[Nieto]

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

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

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;