Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Visualizar cambios en excel e imprimirlo (https://www.clubdelphi.com/foros/showthread.php?t=36060)

Max_E. 30-09-2006 18:48:29

Visualizar cambios en excel e imprimirlo
 
Hola atodos:

Quisiera que alguien me ayude en esto.

Saque este codigo de otro mensaje enviado a este grupo funciona muy bien, se trata de guardar siertas palabras en celdas especificas en un documentp excel ya creado, pero el caso es que guarda los cambios sin mostrar el archivo con las modificaciones y manda defrente a la regunta desea guardar los cambios? y lo que deseo es que me muestre los cambios, cual es el codigo que tengo que aumnetar y donde, antes o despues del Excel.Quit;
y si no es mucha molestia tambien como le ago para imprimirlo desde delphi la misma hoja despues que yo este deacuerdo con los cambios

este es el codigo:

procedure TForm1.Button1Click(Sender: TObject);
Var
Excel : Variant;
Archivo : String;
i:integer;
begin
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;

//***** Asignamos el archivo a abrir *****//
Archivo := 'C:\Personal.xls';
Excel.Workbooks.Open(Archivo);

Excel.Range['A1','G90'].Font.Size := 9;
Excel.Range['A1','G90'].Font.Bold := False;
Excel.Range['A1','G90'].Font.Name := 'Arial';

Excel.Cells[5,1].Value := 'Max Enrique';
Excel.Cells[1,1].Range['B5','G5'].Value := VarArrayOf(['Apellido','codigo','area','direccion','telefono','celular']);

//***** IMPORTANTÍSIMO *****//
Excel.quit;
end;




Gracias de ante mano cualquier ayuda que pueda recibir.:)

roman 30-09-2006 19:25:01

Excel.Quit será importantísimo pero no puedes ponerlo ahí si quieres ver el archivo. Para ver el archivo usa

Código Delphi [-]
Excel.Visible := true;

pero, repito, si inmediatamente después pones Excel.Quit, de nada servirá pues el archivo se visualizará e inmediatamente desaparecerá.

// Saludos

Max_E. 01-10-2006 06:25:32

hola a todos:
he puesto el codigo para visualizar el archivo y e quitado el exel.quit y el programa funciona sin problemas y puedo visualizar el archivo, entonces por es tan importante colocar el exel.quit (bueno eso aconsejaba en el codigo que copie).
que sucede si no utilizo esta propiedad.

roman 01-10-2006 06:43:11

Depende de lo que se haga. Excel.Quit cerrará el proceso de Excel. Si lo único que se quiere es modificar un archivo sin visualizarlo, entonces sí es correcto el uso de Excel.Quit porque de lo contrario quedaría abierto el proceso sin una vía fácil para cerralo (puede verse en la lista de procesos del administrado de tareas). Lo mismo sucede si sólo deseamos imprimirlo.

Pero en el caso de querer verlo, aún si no usamos Quit, la ventana de Excel quedará a la vista y el usuario podrá cerrarla cuando guste.

// Saludos


La franja horaria es GMT +2. Ahora son las 15:38:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi