Exportar todas los tabsheets a excel

[[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;