![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
|||
|
|||
|
No era un problema de XP, es otro el problema, cuando tengo una hoja excel abierta.....es ahi donde me carga los datos y no en la hoja que estoy abriendo.
Mi codigo es el siguiente: procedure TFDesdeExcel.BitBtn1Click(Sender: TObject); var WorkBk : _WorkBook; // Define a WorkBook WorkSheet : _WorkSheet; // Define a WorkSheet NomFich : String; i, j: Integer; begin NomFich := 'E:\temp\prueba.xls' XLApp.Connect; XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,0); WorkBk := XLApp.WorkBooks.Item[1]; WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet; // Activas For i := 5 to 14 do // Filas For j := 4 to 16 do // Columnas WorkSheet.Cells.Item[i,j].Value:=i+j ; // Pasivas For i := 19 to 28 do // Filas For j := 4 to 16 do // Columnas WorkSheet.Cells.Item[i,j].Value:=i+j ; XLApp.Visible[0] := True; XLApp.Disconnect; //******************************************** Estado.Caption:='Se grabó correctamente.'; //------------------------------------------------------------------------------ end; No se como puedo hacer que por mas hojas abiertas de excel, grabe la informacion en la hoja que yo le indico. |
|
|
|