Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-12-2009
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Poder: 21
Cabanyaler Va por buen camino
OleObjects con Excel

Hola actualmente estoy utilizando Ole Objects para el uso de unos calculos diseñados en una hoja Excel desde mi programa de Delphi.

Primero declaro del tipo variant la variable ExcelApp

Código Delphi [-]
ExcelApp, ExcelLibro, ExcelHoja : Variant;

Posteriormenete la creación del Objeto Ole la realizado del siguiente modo:
Código Delphi [-]
ExcelApp := CreateOleObject('Excel.Application');

Uso los calculos que me hacen falta de la hoja excel, recupero sus datos y sigo, pero al cerrar el programa necesito cerrar la hoja excel sin salvar cambios.

El cierre lo ejecuto con la sentencia:

Código Delphi [-]
ExcelApp.Quit;

Pero al cerrar, me pide si deseo grabar los cambios en la hoja excel.

¿Conocéis si debo pasar algún parametro en la sentencia Quit del objeto para asumir que NO deseo grabar cambios en la hoja excel? y cerrarla sin más.



Nota: No he utilizado la sentencia :

Código Delphi [-]
ShellExecute(Handle, nil, 'tskill', 'excel', nil, sw_hide);

porque mata todo proceso relacionado con Excell, y por tanto no deseo que el usuario pudiese tener la excell abierta por su cuenta con cualquier otro trabajo independiente de mi aplicación y que al matar el proceso (y por tanto cierre automático de todas sus hojas excell abiertas) pudiese perder sin salvar el trabajo que pudiese tener en posibles hojas abiertas.

Gracias a todos por vuestra ayuda.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.

Última edición por Cabanyaler fecha: 09-12-2009 a las 11:11:18.
Responder Con Cita
  #2  
Antiguo 09-12-2009
Avatar de Aleca
Aleca Aleca is offline
Miembro
 
Registrado: may 2003
Ubicación: Venado Tuerto, Argentina
Posts: 277
Poder: 22
Aleca Va por buen camino
proba con ExcelApp.DisplayAlerts[0] := False;
Uso el componente de la Paleta Servers
__________________
Aleca
Responder Con Cita
  #3  
Antiguo 09-12-2009
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Poder: 21
Cabanyaler Va por buen camino
Cita:
Empezado por Aleca Ver Mensaje
proba con ExcelApp.DisplayAlerts[0] := False;
Uso el componente de la Paleta Servers
Correcto, muchas gracias, pero un pequeño matiz en cuanto a la sintaxis:


Código Delphi [-]
ExcelApp.DisplayAlerts := False;
ExcelApp.Quit;

__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
Responder Con Cita
  #4  
Antiguo 09-12-2009
Avatar de Aleca
Aleca Aleca is offline
Miembro
 
Registrado: may 2003
Ubicación: Venado Tuerto, Argentina
Posts: 277
Poder: 22
Aleca Va por buen camino
Cita:
Empezado por Cabanyaler Ver Mensaje
Correcto, muchas gracias, pero un pequeño matiz en cuanto a la sintaxis:



Código Delphi [-]ExcelApp.DisplayAlerts := False;
ExcelApp.Quit;




ok, entonces si usas OleObject hay q ponerlo como esta arriba, pero si se usa TExcelApplication hay q usarlo como te lo pase.
Ahi estarian las dos opciones.
Saludos
__________________
Aleca
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
excel a delphi, como mostrar columnas de excel Vyckso Servers 2 13-08-2007 12:38:08
Excel sin Excel gaby_stars Varios 2 12-07-2006 20:52:33
MÁs De Excel nax C++ Builder 1 27-12-2005 09:29:49
Excel Alejandro Horns Tablas planas 1 27-07-2005 22:09:39
Problema al actualizar Excel 2000 a Excel XP victork_py Servers 1 06-08-2004 19:20:41


La franja horaria es GMT +2. Ahora son las 10:41:44.


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