Plantilla de excel no guarda los datos

[[fjcg02]]

Para salvar hay que utilizar

ExcelWorkbook1.SaveAs(ficheroGenerado,
-4143 , emptyParam , emptyParam, false, false,
1, emptyParam, false, emptyParam, emptyParam,
emptyParam, 0);


y no hoja1.saveas(nombre);

hay mucha información en la red al respecto para que puedas adaptar tu código.

Saludos

[giulichajari]

Empezado por fjcg02

Para salvar hay que utilizar

ExcelWorkbook1.SaveAs(ficheroGenerado,
-4143 , emptyParam , emptyParam, false, false,
1, emptyParam, false, emptyParam, emptyParam,
emptyParam, 0);


y no hoja1.saveas(nombre);

hay mucha información en la red al respecto para que puedas adaptar tu código.

Saludos

Bueno encontre esto:

https://msdn.microsoft.com/es-es/lib...ok.saveas.aspx

Pero lo que no logro encontrar es el codigo de mi excel: es para excel 2010, donde esta el 52. El resto de los parametros son opcionales.

Código Delphi [-]
 Libro.SaveAs(nombre , 35 ,EmptyParam,EmptyParam,false,false,
                   EmptyParam,EmptyParam,EmptyParam,0);

[[fjcg02]]

Este codigo me funciona con XP y excell 2010 y con W7 y excel 2010

Saludos

[[nlsgarcia]]

giulichajari,

Empezado por giulichajari

...Plantilla de Excel no guarda los datos...lo que no logro encontrar es el código de mi Excel: es para Excel 2010...

Revisa esta información

Hojas de Excel en Delphi

Espero sea útil

Nelson.

[giulichajari]

Empezado por fjcg02

Este codigo me funciona con XP y excell 2010 y con W7 y excel 2010

Saludos

Me dice numero de parametros no valido.

Y Nelson en tu codigo

Código Delphi [-]
WrkS.SaveAs(FileExcel,xlOpenXMLWorkbook);

yo puse el nombre del libro:

Código Delphi [-]
Libro.SaveAs(nombre, xlOpenXLSXWorkbook);

Y dice Undeclared Identifier "xlOpenXLSXWorkbook";

Y he visto muchos ejemplos con el nombre del archivo nomas.

[giulichajari]

Finalmente funciono con

Código Delphi [-]
Excel.Save

ja

Lo que si se ve la cabecera del presupuesto, ahora necesito recorrer el ClientDataSet para completar el detalle:

Código Delphi [-]
 with ClientModule1.cdspresu do
    begin
      x:=20;
      First;
      while not eof do
         begin

                Hojal.Cells[x,4]:=ClientModule1.cdspresucantidad.Value;
                Hojal.Cells[x,5]:=ClientModule1.cdspresunombre.Value;
                inc(x);

         end;

         Next;
    end;

Hice lo de arriba pero no funciona.. pero la cabecera si queda guardada. Muchas gracias

[[nlsgarcia]]

giulichajari,

...Undeclared Identifier "xlOpenXLSXWorkbook"...

Te comento:

1- En el código propuesto en el Msg # 2 del hilo Hojas de Excel en Delphi, xlOpenXLSXWorkbook es una constante declarada con el valor 51.

2- Declara la constante como se indica en este fragmento de código:

Código Delphi [-]
const
   xlOpenXMLWorkbook = 51;

3- Revisa esta información:

XlFileFormat Enumeration

Nota: 51 es el valor de Workbook por default.

Espero sea útil

Nelson.

[giulichajari]

Empezado por nlsgarcia

giulichajari,




Te comento:

1- En el código propuesto en el Msg # 2 del hilo Hojas de Excel en Delphi, xlOpenXLSXWorkbook es una constante declarada con el valor 51.

2- Declara la constante como se indica en este fragmento de código:

Código Delphi [-]
const
   xlOpenXMLWorkbook = 51;

3- Revisa esta información:

Nota: 51 es el valor de Workbook por default.

Espero sea útil

Nelson.

Probe con

Código Delphi [-]
Hojal.SaveAs(nombre,xlOpenXMLWorkbook);

Hojal es de tipo:

Código Delphi [-]
Hojal := Libro.Worksheets[1];

que es del mismo tipo que en el ejemplo, no da errores pero no se guarda jja. Si encuentro la solucion la comento.