exportar excel

[ecfisa]

Hola Luis.

Empezado por luis77

...
el detalle esta en que cuan ejecuto la aplicacion solo le doy click si me extrae los datos
pero cuando quiero volver a dar click ya no .
...

Creo haber visto algo que deberías revisar... Cuando termina el método Button1Click, la tabla fué recorrida desde la primera a la última fila, quedando esta como la actual fila activa.
En la próxima llamada a Button1Click el ciclo while no se ejecutará ya que la condición de salida está satisfecha en la comprobación,

Código Delphi [-]
 while not query.Eof do

Para reproducir nuevamente el comportamiento del método Button1Click, tenes que fijar el primer registro de la tabla como la fila activa antes de entrar al ciclo while:

Código Delphi [-]
...
  PLANILHA.cells[1,13]:='ImportePrestamo';
  PLANILHA.cells[1,14]:='FechaContrato';
  PLANILHA.cells[1,15]:='Fechavencimiento';

  query.DisableControls;
  query.First;  // <== Aquí 
  try
    while not query.Eof do
  ...

Saludos