Buenas les pediria cierta ayuda

[Karl0s]

Estoy haciendo un programa muy básico para con conección con Excel y me da un error al salvarlo en procedimiento en concreto es este:


Procedure TForm2.Button1Click(Sender: TObject); {boton de validar la factura}
var
OleApli,OleWB : Variant;
PrecioKwatio , Importe:real;
Valor:string;
Nombre_archivo :String;
i:Integer;

begin

assignfile(Arch_NFactura,'c:\Facturas\NFactura.txt');
Append(Arch_NFactura);

assignfile(Arch_Tarifa,'c:\Facturas\Tarifa.txt');
reset(Arch_Tarifa);


Factura.Visible:=False;
Importe:=StrtoFloat(NFactura);
Importe:=Importe+1;
NFactura:=FloattoStr(Importe);

writeln (Arch_NFactura,NFactura);
writeln (Arch_NFactura,FechaEmision);
writeln (Arch_NFactura,mes);
writeln (Arch_NFactura,agno);
writeln (Arch_NFactura,LecturaActual);
writeln (Arch_NFactura,LecturaAnterior);

PeriodoFactura:=(mes+'-'+agno);

Edit1.Enabled:= False;
Edit2.Enabled:= False;
Edit3.Enabled:= False;
Edit4.Enabled:= False;
Edit5.Enabled:= False;
OleApli := CreateOleObject('Excel.Application');
OleApli.Visible:=true;
OleWB := OleApli.Workbooks.open('c:\Facturas\Modelo Factura numero 000.xls');
OleApli.Cells[19,7]:= NFactura;
OleApli.Cells[19,9]:= FechaEmision;
OleApli.Cells[42,5]:= PeriodoFactura;
OleApli.Cells[37,8]:= LecturaActual;
OleApli.Cells[36,8]:= LecturaAnterior;
OleApli.Cells[44,4]:= Tarifa;
Importe:= OleApli.Cells[52,8];
Valor:= floattoStrf(Importe,ffCurrency,8,2);
writeln (Arch_NFactura,Valor);
Closefile (Arch_NFactura);

{------------------ es aquí donde me da el error al salvarlo ----------------}
OleApli.ActiveWorkBooks.saveAs('c:\Facturas numero 0'+NFactura+'.xls');
{-------------------------------------------------------------------------}
Edit1.Text:=NFactura;
Form2.Visible:=False;
Form4:=TForm4.Create(self);
Form4.caption:='Factura '+(NFactura);
Form4.show;





end;
{-------------------------------------------------------------------------------}

lo cierto es que no doy con el error, si alguien puede ayudar se lo agradecería.
Saludos

[[Al González]]

Yo tampoco doy con el error. Intenté verlo pero tienes apagado tu equipo. Mañana, cuando lo enciendas de nuevo, echaré una mirada.

[Casimiro Notevi]

Empezado por Karl0s

...

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración


Recuerda poner los tags al código fuente, ejemplo:



Gracias

[[Chris]]

La próxima vez sería de mucha ayuda que nos pusieras cuál es exactamente el error que estás teniendo. Pero una observación rápida;

Código Delphi [-]
OleApli.ActiveWorkBooks.saveAs('c:\Facturas numero 0'+NFactura+'.xls');

Estás intentando escribir directamente a la raíz de C:\. Tu error puede ser inclusive que Excel no se halla ejecutado con privilegios administrativos para escribir sobre la raíz.

Saludos!

PD: Puse en rojo la S al final de OleApli.ActiveWorkBooks porque creo que en realidad la propiedad se llama ActiveWorkBook, sin la S al final.

[Karl0s]

Gracias Chis y Al González por contestar y si Chis era ese el error, como siempre son los detalles simples que se nos pasa desapercibido. Muchas gracias.