Insertar filas en excel vía OLE SERVER desde Delphi 5

[vick]

QUE TAL A TODOS

Alguien sabe la forma de insertar filas en excel, mediante una aplicación creada en Delphi, y utilizando componentes OLE.

Más específicamente, realizo la exportación de los datos de una tabla desde delphi a excel, pero lo que deseo hacer es insertar filas en blanco o vacias entre los datos exportados.

DE ANTEMANO ¡¡¡ GRACIAS !!!

[[poliburro]]

Puedes hacerlo a través de odbc, donde el documento de excell es la base de datos y cada sheet es una tabla, de esa manera puedes darle un tratamiento de tabla al insertar, editar y eliminar filas.

Ejemplo de la cadena de conexion:

DSN=Excel Files;DBQ=datos.xls;DefaultDir=C:\;DriverId=790;MaxBufferSize=2048;PageTimeout=5;

[fdelamo]

prueba con esto:

Código Delphi [-]
  
            WorkSheet.Range['A'+IntToStr(Fila),'J'+IntToStr(Fila)].Insert(EmptyParam);

donde worksheet está definida como:

Código Delphi [-]
  
  XlApp: TExcelApplication;
  WorkBk : _WorkBook;
  WorkSheet : _WorkSheet;

y está creada de la forma:

Código Delphi [-]
 
  XlApp := TExcelApplication.Create(Application);
  XlApp.ConnectKind := ckNewInstance; // RunningOrNew;
  XLApp.Connect;
  XlApp.DisplayAlerts[0] := False;

  WorkBk := XLApp.WorkBooks.Add (ruta_ficheroplantilla);
  
  WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;

espero que te sirva de algo

Kiko