|
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.
|