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
|