Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 01-10-2003
Hidalgo Hidalgo is offline
Registrado
 
Registrado: sep 2003
Ubicación: Cochabamba
Posts: 6
Poder: 0
Hidalgo Va por buen camino
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.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:50:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi