Crear otra hoja en excel igual a la anterior

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

Para crear una hoja nueva en la plantilla a partir de la que hay puedes usar éste código:

Código Delphi [-]
uses
  Activex, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  excel : olevariant;
begin
  // Crear el objeto 
  excel := CreateOLEObject('Excel.Application');
  // Acceder a la plantilla
  excel.workbooks.open('c:\temp\plantilla.xlt');
  // Seleccionar la hoja
  excel.sheets[1].select;
  // Copiar la hoja seleccionada
  excel.sheets[1].copy(EmptyParam, excel.sheets[1]);
  // desactivar alertas para que no avise de que vas a guardar sobre la misma plantilla
  Excel.DisplayAlerts := False;
  // Guardar en el mismo XLT
  excel.activeWorkBook.SaveAS('C:\Temp\plantilla.xlt');
  // Cerrar
  excel.workbooks.Close;
  // liberar
  Excel := Unassigned;
end;

Funciona perfectamente con Excel 2003; Espero que no tengas problemas con versiones anteriores.