Ver Mensaje Individual
  #6  
Antiguo 13-02-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola, como te ha dicho Neftali, el error no es al crear, acabo de hacer una prueba y justamente el error da en la línea que indicas del SaveAs, es este "Method saveAs not supported by automation object" , lo que creo que esta pasando es que tu estas abriendo directamente el archivo txt y lo quieres grabar como xls, que yo sepa el Open debes utilizarlo para abrir archivos xls y despues ir añadiendo en la celdas ExcelAplication.Workbook.Worksheets[1].Cells[1, 1] := valor y lo mismo paar crear uno nuevo tendrías que recorrer lo que tienes en tu archivo e ir añadiendo, yo nose si se pueda hacer así directo como lo estas haciendo.

Tienes otra opción para guardar tu archivo txt como xls, pruebalo.

Código Delphi [-]
var
 sl : TStringList;
begin
 slFile := TStringList.Create;
 slFile.LoadFromFile(dirPath+'\list.txt');
 slFile.SaveToFile(dirPath+'\list.xls');

Si tu separador es el Tab como dices, te lo va a poner en columnas diferentes.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita