![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Excel y Windows XP
Necesito su ayuda. Antes de que me cambien de equipo estaba con Windows Me y Delphi 5, Office 2000 Standard. Ahora lo unico que ha cambiado es la version del sistema Operativo, que es Windows XP. Tenia un programa que usaba los componentes Servers para poner algunos datos en Excel. Ahora el programa no me produce ningun error pero no puedo poner ni una cadena de texto en la hoja excel.(Sin cambiar ni una linea de codigo)
Por favor necesito una guia. Dayne. |
#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. |
![]() |
|
|
![]() |
|