20 replies to this topic

[cl2raul66]

:huh:hola a todos, tengo hecho una pequeña aplicacion para facturar el problema es que no me interesa almacenar muchos datos, pero si me interesa que se almacenen en un modelo ya hecho en celdas especificas para q puedan imprimirlo cuando estimen...

[Rolphy Reyes]

Saludos.

Una manera es usar componentes de terceros:
Info1
Info2
Info3

[cl2raul66]

gracias, por los links pero necesito algo free...

[egostar]

gracias, por los links pero necesito algo free...

Puedes utilizar la unidad Excel2000 que ya viene con Delphi y puedes generar lo que quieras y como quieras en excel.

Saludos

[cl2raul66]

yo uso delphi xe5, no se donde encontrar esa unit, si me das un norte te lo agradeceria

[cl2raul66]

ya encontré la unit y la agregue al uses, pero como cargo el archivo y escribo en las celdas...

por favor alguien puede hacerme un ejemplo chiquito... supongamos lo siguiente:
-----------------------------------------------------------
|              Tabla de trabajadores                      |
-----------------------------------------------------------
|No.| Nombre                                      |            |
-----------------------------------------------------------
|1  |                                                    |            |
-----------------------------------------------------------
|2  |                                                    |            |
-----------------------------------------------------------
|3  |                                                  |            |
-----------------------------------------------------------
|Total                                                  |            |
-----------------------------------------------------------
esta tabla ya esta echa en excel y quiero llenarla desde delphi y guardarla en un lugar predeterminado....                                                 

[egostar]

yo uso delphi xe5, no se donde encontrar esa unit, si me das un norte te lo agradeceria

Las unidades excel son dos excel2000 o excel2010. Puedes utilizar cualquiera de éstos dos depende de la versión de excel que tengas instalado.

delphi

unit Unit1;
 
interface
 
uses
  Vcl.Forms,
  excel2000, excel2010; //Puedes utilizar cualquiera de éstos dos depende de la versión de excel que tengas instalado.
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  //Con éstas variables puedes generar lo que quieras, sólo hay que darle una "estudiadita" y listo.
  XLApp: TExcelApplication;
  XLWSheet: _WorkSheet;
  XLRange: ExcelRange;
 
implementation
 
{$R *.dfm}
 
end.

Saludos

[cl2raul66]

egostar muchisimas gracias, ya q eres el unico q parece estar conectado...
si no te es mucha molestia creas un formulario con unos edit para cada campo y cuando presiones un boton inserte los datos y otro para borrarlos, toma como ejemplo la tabla de trabajadores q publique...

disculpa la osadia, pero el estudio lo dejo para lueguito, lo dejo para perfeccionar esto...

[poliburro]

egostar muchisimas gracias, ya q eres el unico q parece estar conectado...

Somos varios los conectados amigo, solo que no todos dominamos el tema.... Saludos. 

[cl2raul66]

lo se me refiero a conectado en el sentido del tema q publique....

[Fenareth]

Yo puedo darte otro empujoncito, pero al final, tendrás que adaptarlo...

En mi caso, abro un archivo de excel, que para el ejemplo se llama "ArchivoExcel.xls", modifico las celdas que requiero, guardo y cierro el archivo. Espero te sea de ayuda .

delphi

    var
       Excel: TExcelApplication;
       Hoja: _WorkSheet;
    begin
       Reporte := Proyecto.RutaExe + 'ArchivoExcel.xls';
       Ruta := ExtractFilePath(Reporte);
       Archivo := ExtractFileName(Reporte);
 
       Excel := TExcelApplication.Create(nil);
 
       Excel.ConnectKind:= ckNewInstance;
 
       Excel.DisplayAlerts[LOCALE_USER_DEFAULT] := False;
       Excel.Workbooks.Open( Reporte,
                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, 0 );
 
       Excel.Visible[LOCALE_USER_DEFAULT] := False;
 
       Hoja := Excel.Worksheets.Item[1] as _WorkSheet;
       Hoja.Range[Hoja.Cells.Item[1, 2], Hoja.Cells.Item[1, 2]].Value := sValor;
       Hoja.Range[Hoja.Cells.Item[1, 3], Hoja.Cells.Item[1, 3]].Value := sReco;
       Hoja.Range[Hoja.Cells.Item[1, 4], Hoja.Cells.Item[1, 4]].Value := sCuenta;
 
       Hoja.SaveAs(Ruta+Archivo,xlExcel97_2003,EmptyParam,EmptyParam,false,false, EmptyParam,EmptyParam,EmptyParam,LOCALE_USER_DEFAULT);
       Excel.Workbooks.Close(LOCALE_USER_DEFAULT);
       Excel.Quit;
       Excel.DisplayAlerts[LOCALE_USER_DEFAULT] := True;
       Excel.Disconnect;

Saludox !

[cl2raul66]

gracias Fenareth, pero me da error en Excel.ConnectKind:= ckNewInstance;...
yo uso delphio xe5 y la opcion q me da como corecto es Excel.ConnectKind.ckNewInstance; pero cuando compilo me da error...

supongo que las valiables Reporte,  Ruta,  Archivo son string

[Fenareth]

gracias Fenareth, pero me da error en Excel.ConnectKind:= ckNewInstance;...
yo uso delphio xe5 y la opcion q me da como corecto es Excel.ConnectKind.ckNewInstance; pero cuando compilo me da error...

supongo que las valiables Reporte,  Ruta,  Archivo son string

El ejemplo está hecho en Delphi 2007, supongo que algo debe cambiar entre ésta versión y la XE5, por eso mencionaba que de todos modos debías adaptarlo.

¿ Ya buscaste el error que te arroja en google ?

Saludox !

[cl2raul66]

imagino q agreges en el uses Excelxp, Excel2010, ComObj

[cl2raul66]

si, tu tenes el codigo bien solo tenia q agregar el componente y funciono Excel.ConnectKind:= ckNewInstance;
ahora da problema en:

delphi

Excel.Workbooks.Open(Reporte,
                       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, 0);

con un error de no encuentra el parametro actual

[Fenareth]

Revisa los parámetros que te solicita Excel.Workbooks.Open.

Saludox !

[cl2raul66]

si ya lo revise y resolví ese problema, faltaban 2 EmptyParam, aqui es donde surge el otro:

delphi

Hoja.Range[Hoja.Cells.Item[1,2], Hoja.Cells.Item[1, 2]].Value := sValor;
  Hoja.Range[Hoja.Cells.Item[1,3], Hoja.Cells.Item[1, 3]].Value := sReco;
  Hoja.Range[Hoja.Cells.Item[1,4], Hoja.Cells.Item[1, 4]].Value := sCuenta;

[Fenareth]

Creo que de repente olvidas que no estamos ni al lado tuyo ni viendo tu computadora... ¿cuál otro? 

Saludox !

[cl2raul66]

jajaja si estaba en eso, es q me saca de quisio el cacha ese....

esto no compila:
Hoja.Range[Hoja.Cells.Item[1,2], Hoja.Cells.Item[1, 2]].Value := sValor;
  Hoja.Range[Hoja.Cells.Item[1,3], Hoja.Cells.Item[1, 3]].Value := sReco;
  Hoja.Range[Hoja.Cells.Item[1,4], Hoja.Cells.Item[1, 4]].Value := sCuenta;

esto si:
  Hoja.Range[Hoja.Cells.Item[1,2], Hoja.Cells.Item[1, 2]];

para que son sValor, sReco y sCuenta.... son variables???

[Delphius]

jajaja si estaba en eso, es q me saca de quisio el cacha ese....

esto no compila:
Hoja.Range[Hoja.Cells.Item[1,2], Hoja.Cells.Item[1, 2]].Value := sValor;
  Hoja.Range[Hoja.Cells.Item[1,3], Hoja.Cells.Item[1, 3]].Value := sReco;
  Hoja.Range[Hoja.Cells.Item[1,4], Hoja.Cells.Item[1, 4]].Value := sCuenta;

esto si:
  Hoja.Range[Hoja.Cells.Item[1,2], Hoja.Cells.Item[1, 2]];

para que son sValor, sReco y sCuenta.... son variables???

Se entiende del ejemplo de Fenareth que lo que hace es poner en las celdas (1,2), (1,3) y (1,4) los valores de las variables sValor, sReco y sCuenta respectivamente.
Aquí es donde va a variar en tu caso y deberás indicar de donde extraer los datos y en que celdas van. Eso ya depende de una plantilla.

Si dices que no te compila, ¿Que observar si colocas el punto después de cerrar el corchete? Te da alguna sugerencia el editor?
En la versión que utiliza Fenareth existe la propiedad .Value, ¿No aparece en tu caso? Quizá algunos de los cambios de 2007 a 2010 es que ahora ya los datos no se hacen via .Range[].Value sino de otra forma. Por ello te pido que copiar por copiar no lo hagas y vayas observando al poner el punto, que opciones te muestra el editor.

Saludos,