Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-09-2006
Avatar de Max_E.
Max_E. Max_E. is offline
Miembro
 
Registrado: sep 2006
Posts: 90
Poder: 18
Max_E. Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 30-09-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #3  
Antiguo 01-10-2006
Avatar de Max_E.
Max_E. Max_E. is offline
Miembro
 
Registrado: sep 2006
Posts: 90
Poder: 18
Max_E. Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 01-10-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
QRAquaMark, mostrarlo pero no imprimirlo... BlueSteel Impresión 6 03-10-2006 01:26:35
Limitar el tamaño de un string al imprimirlo jcheco Impresión 3 31-08-2006 23:35:26
Elegir "No" automaticamente en la ventana de Guardar cambios de Excel Neftali [Germán.Estévez] Varios 4 21-06-2006 00:35:06
Ver la ventana de impresion sin permitir imprimirlo jmedina Impresión 0 01-02-2005 17:41:30
cambios en DBF mapepo Conexión con bases de datos 0 27-10-2004 19:47:12


La franja horaria es GMT +2. Ahora son las 04:42:01.


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