Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

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



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 01:18:57.


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