Tengo Problemas Con Excel
procedure TForm1.Button1Click(Sender: TObject);
Var
Excel: Variant;
Archivo : String;
begin
//***** Creamos el Objeto Ole *****//
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;
Archivo := 'c:\Hola.xls';
Excel.Workbooks.Open(Archivo);
EXCEL.Cells[1,1].Value:=512;
EXCEL.Cells[2,1].Value:=55121;
EXCEL.Cells[3,1].Value:=5512125;
EXCEL.Cells[4,1].Value:=5521255;
EXCEL.QUIT;
end;
end.
EL CODIGO FUNCIONA PERFECTO, PERO ME GENERA LO SIGUIENTE: ME PREGUNTA SI QUIERO GUARDAR LOS CAMBIOS, PERO CUANDO QUIERO SOBREESCRIBIR EL ARCHIVO HOLA.XLS ME DICE QUE EL ARCHIVO YA ESTA EN USO O ES DE SOLO LECTURA.
COMO PUEDO HACER PARA QUE ABRA EXCEL SIN PREDEFINIR NINGUN ARCHIVO, QUE CARGUE LA INFORMACION QUE YO QUIERA EN EXCEL Y LUEGO ME PERMITA GUARDARLO CON CUALQUIER NOMBRE?
CUALQUIER SUGERENCIA, LES QUEDARE MUY AGRADECIDO.
|