Guardar archivo de Excel
 

Por favor, cómo hago para abrir un archivo de excel que está guardado en C, llenar las celdas y guardar el archivo diligenciado en un disquette.

Es urgente...

PLEASE HELP ME!!

Si haces una búsqueda en estos foros por Excel, podrás encontrar varios temas que hablen sobre lo que necesitas...

También al final de esta página verás varios temas similares al tuyo...



Saludos...

Marcos, la verdad ya he buscado por todo el foro, he visto cosas como parecidas, pero no me funciona.

Mira el caso específicamente es el siguiente.

Tengo un archivo en la carpeta donde estoy desarrollando el programa, con los parámetros que se requieren. A través de código, lo abro, ingreso la información en cada celda (todos los registros), pero necesito que el archivo ya diligenciado se guarde automáticamente en un disquette.

Utilizo la propiedad SaveAs, pero me genera un error. Creo que la sintaxis está mal. Por favor tu o cualquiera del foro, colabórenme.

En este hilo: http://www.clubdelphi.com/foros/showthread.php?t=17190 se soluciona un problema similar al que tienes...


Saludos...

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.

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

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