FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ejemplo de Lectura/escritura en MS Excel
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 |
#2
|
|||
|
|||
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!!!
__________________
Saludos desde Quilpué, CHILE |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Lo probaré. Ya te contaré.
Yarri |
|
|
|