Guardar archivo de Excel

[LinaC]

Justo esa estaba utilizando pero me genera un error.

Dice "Project Excel.exe raised exception class EOleError with message 'Method'SaveAs' not supported by automation object' Process stopped. Use Step or Run to'

No se que pasa, abre el archivo, pero cuando pasa por esta línea genera el error.

Colabórame por favor.

[roman]

Pues eso es precisamente lo que se soluciona en el hilo que te refirieron. El objeto Excel no tiene ningún método SaveAs. Es un libro quien lo tiene. Debes poner aquí el código que estás usando para que podamos ver que es lo que está mal.

// Saludos

[LinaC]

Hola, este es el código que estoy utilizando para hacer el llamado al archivo en Excel, que ya existe, también ingreso la información. No muestra el archivo porque no es necesario, lo que necesito es que después de todo el procedimiento, guarde el archivo con la información en el disquette, de acuerdo al nombre que asigne en una variable cualquiera.

procedure TF_UPTC.GenerarArchivoPlano1Click(Sender: TObject);
var
i : Integer;
sMesAno, sCedula, sNombre : String;
begin
with D1 do
begin
// Cerrar el archivo si esta abierto
if not varisempty(XLAPP) then
begin
XLAPP.DisplayAlerts := false;
XLAPP.workbooks.close;
end;

// Abrir Archivo de excel
XLAPP.workbooks.open('C:\Archivos de
programa\Novedades\TG_UPTC.xls');

// Trabajar en la Hoja UPTC
sheet := XLAPP.workbooks[1].worksheets['UPTC'];
sheet.cells[7,5] := cbxMes.Text + ' de '+cbxAno.Text;
i := 15;
UPTC.Open;
while not UPTC.Eof do
begin
sheet.cells[i,1] := UPTCcedula.AsString;
sheet.cells[i,2] := UPTCvaloperi.AsString;
sheet.cells[i,3] := UPTCfechinic.AsString;
sheet.cells[i,5] := 'Indefinido';
Inc(i);
UPTC.Next;
end;
UPTC.Close;

//Aquí es donde deseo que se guarde TG_UPTC.xls pero en una ruta diferente.

Gracias por la colaboración que me puedas brindar.

Lina C