Crear otra hoja en excel igual a la anterior

[Novás]

He probado el codigo para copiar las hojas, me ha funcionado durante 20 minutos, ahora cuando ejecuto

Código Delphi [-]
while not CUsuarios.Eof do
begin
   excel.sheets[1].select;
   excel.sheets['PLANTILLA'].copy(EmptyParam, excel.sheets[1]);
   CUsuarios.Next;
end;

Me pone que el servidor lanzó una excepción.

A que se puede deber, el error lo da justo en la lína

Código Delphi [-]
   excel.sheets['PLANTILLA'].copy(EmptyParam, excel.sheets[1]);

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

Empezado por Novás

Me pone que el servidor lanzó una excepción.

Estaría bien saber cual es la excepción que te ha "lanzado".

[Novás]

Es que no sabría deciros, el mensaje exacto que me pone es ese:

El servidor lanzó una excepción.

[cuburu]

De forma inmediata se me ocurre que el problema no es tanto de el manejo de excel, por lo que veo estas haciendo una llamada a una tabla que contiene un apuntador y vas agregando una nueva hoja por cada registro de dicha tabla. ¿No sería mejor realizar un conteo del total de registros que tienes y en base a ello hacer el ciclo para agregar las hojas que necesites?

Lo que tienes en tú código:

Código Delphi [-]
while not CUsuarios.Eof do
begin
   excel.sheets[1].select;
   excel.sheets['PLANTILLA'].copy(EmptyParam, excel.sheets[1]);
   CUsuarios.Next;
end;

Podrías intentar con algo como esto:

Código Delphi [-]
var
  NoUsers, Cont: Integer;
begin
  NoUsers := CUsuarios.Count;  {Revisa esta parte de la sintaxis pues no la recuerdo bien}
  for Cont := 1 to NoUsers do
  begin
   excel.sheets[1].select;
     excel.sheets['PLANTILLA'].copy(EmptyParam, excel.sheets[1]);
  end;
end;

Espero te sirva esta idea, suerte.