PDA

Ver la Versión Completa : Excel y Windows XP


Hidalgo
30-09-2003, 22:49:59
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.

Hidalgo
01-10-2003, 00:59:50
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.