Ayuda con Excell 2007

[pemar_1976]

Hola!!
soy nuevo en ClubDelphi, y he buscado informacion para excell 2007 y la he encontrado, pero mi consulta es la siguiente:

Tengo un cursor en el cual tengo aproximadamente 90000 registros, es posible con alguno de los metodos llenar dicha planilla de excell en una sola hoja?

gracias.

[[Chris]]

Hola pemar, bienvenido al club!

Te recomendamos leer la guía de estilo. En este mismo sentido, deberías proporcionar más detalles e información sobre tu inconveniente. Así será mucho más fácil brindarte una ayuda.

Saludos,
Chris

[pemar_1976]

Gracias por contestar y si lo lei despues de crear este hilo.
jejejeje...

Bueno expondre en mas detalle.

Tengo una aplicacion en Delphi 7, conectada con Oracle, en un form tengo la muestra de pagos realizados en un periodo deteminado. La cantidad de registros mensualmente es de aproximadamente 90000. Nuestros usuarios requieren llevar dichos datos a Excel, para procesarlos. Ademas aca utilizamos Office 2007. Hasta ahora la forma de traspasar a excel, era utilizando el componente Excel de la paleta Server o a traves de la unidad cxExportGrid4Link. que proporciona una herramienta para enviar directamente a excel los datos contenidos en una QuantumGrid. Revisando aca que forma puedo enviar los datos a Excel 2007, encontre la que utilizan el CreateOleObject. adjunto codigo

Código Delphi [-]

var
   Excel : OleVariant;
   Libro : OleVariant;
   Hoja  : OleVariant;
   Fila,
   i     : integer;
begin
   Excel := ComObj.CreateOleObject('Excel.Application');

   Libro := Excel.Workbooks.Add();
   Hoja := Libro.WorkSheets[1];

   Hoja.Cells[1,1] := 'PERIODO ['+ cxPeriodos.Text +']';
   Hoja.Range['A1', 'M1'].Merge;
   Hoja.Cells[2, 01] := 'Id Haber';
   Hoja.Cells[2, 02] := 'Estado Actual Pago';
   Hoja.Cells[2, 03] := 'Fecha Registro Pago';
   Hoja.Cells[2, 04] := 'Vencimiento';
   Hoja.Cells[2, 05] := 'Monto Pagado';
   Hoja.Cells[2, 06] := 'Fecha Gen. Plano';
   Hoja.Cells[2, 07] := 'Nombre Plano';
   Hoja.Cells[2, 08] := 'Tipo Seguro';
   Hoja.Cells[2, 09] := 'Estado Seguro';
   Hoja.Cells[2, 10] := 'Tarjeta';
   Hoja.Cells[2, 11] := 'Nombre Cliente';
   Hoja.Cells[2, 12] := 'Apellido Cliente';
   Hoja.Cells[2, 13] := 'Póliza';

   qPag.DisableControls;
   qPag.First;

   Fila := 3;
   While not( qPag.Eof ) Do
   Begin
      Procesando('Registro ' + IntToStr( Fila - 3 ) + ' de ' + IntToStr( qpag.RecordCount ));
      Hoja.Cells[Fila, 01] := qPagID_HABER.AsString;
      Hoja.Cells[Fila, 02] := qPagPAGO_ESTADO_ACTUAL.AsString;
      Hoja.Cells[Fila, 03] := qPagFECHA_REGISTRO_BD.AsString;
      Hoja.Cells[Fila, 04] := qPagFECHA_VENCIMIENTO.AsString;
      Hoja.Cells[Fila, 05] := qPagMONTO_PAGADO.AsString;
      Hoja.Cells[Fila, 06] := qPagFECHA_GENERACION_PLANO.AsString;
      Hoja.Cells[Fila, 07] := qPagNOMBRE_PLANO.AsString;
      Hoja.Cells[Fila, 08] := qPagTIPO_SEGURO.AsString;
      Hoja.Cells[Fila, 09] := qPagESTADO_SEGURO.AsString;
      Hoja.Cells[Fila, 10] := qPagID_TARJETA.AsString;
      Hoja.Cells[Fila, 11] := qPagNOM_ASEGURADO.AsString;
      Hoja.Cells[Fila, 12] := qPagAPP_ASEGURADO.AsString;
      Hoja.Cells[Fila, 13] := qPagNUM_POLIZA.AsString;
      inc( Fila );
      qPag.Next;
   End;

   qPag.First;
   qPag.EnableControls;
   Procesando('');

  Excel.Visible := true;

Lo que me sucede que al tratar de generar la fila 65537, el proceso genera error, por ser mas del maximo permitido, pero Excel 2007 soporta mas de 1 Millon de registros.

Hasta el momento la unica solucion que he logrado realizar sin problemas es la de generar un archivo de texto separado por tabs, y abrirlo en Excel.

Existe alguna forma de hacerlo directamente en Excel sin que implique estar preocupado de la cantidad de registros.

Desde ya muchas gracias