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

fdelamo · #3 28-11-2005

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