Buenas les pediria cierta ayuda
 

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

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

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 :)

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.

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.