Ver Mensaje Individual
  #3  
Antiguo 14-05-2003
delphicano delphicano is offline
Miembro
 
Registrado: may 2003
Ubicación: Quilpué, CHILE
Posts: 12
Reputación: 0
delphicano Va por buen camino
OK amigo aqui lo tienes, vamos viendo:

uses OleServer, Excel2000;
...
type
Form1 = class(TForm)
...
Excel: TExcelApplication //componente de la paleta SERVER
...
private
{ Private declarations }
public
{ Public declarations }
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var plantilla:OleVariant;
Libro: _WORKBOOK;
Hoja: _WORKSHEET;
begin
plantilla:='c:\plantilla.xlt'; //si gustas creas una plantilla a tu gusto, de lo contrario das una planilla en blanco
excel.connect;
libro:=excel.workbooks.add(plantilla,0);
hoja:=excel.sheets[1] as _WORKSHEET; //Hoja1
hoja.cells.item[fila,columna]:=ALGO //fila es entero, columna es letra, ALGO es cualquier cosa
excel.visible[0]:=true;
excel.disconnect;
end;

Listo, para leer solamente debes hacer las asignaciones al revés, pero ojo con el tipo de dato que lees. Ejemplo de un string... CARACTERES:=hoja.cells.item[1,'A']

Espero te sirva.

Suerte!!
__________________
Saludos desde Quilpué, CHILE
Responder Con Cita