![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#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 |
|
|
|