Ejemplo de Lectura/escritura en MS Excel

[Yarri]

Hola amigos,

La aplicación que estoy desarrollando necesita hacer lecturas y escrituras directas sobre celdas específicas de MS Excel. Yo nunca he desarrollado algo así. Por eso os pido ayuda. ¿ Alguien me puede proporcionar un ejemplo de acceso a celdas particulares ?.

Gracias anticipadas,

Yarri

[delphicano]

Hola amigo, si no me equivoco desde la versión 6 de Delphi, existen en la lengüeta SERVER componentes para trabajar con excel.

Yo hice un trabajo con eso, te aseguro que si lo encuentro (debido a que no tengo idea donde tengo el respaldo) publico los principales comandos para escribir y leer en excel.

Dale una miradita por mientras.

Suerte!!!

[delphicano]

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

[Yarri]

Lo probaré. Ya te contaré.

Yarri