Evitar mensaje al salir

04/12/2007 - 10:28 por Antonio | Informe spam
Hola a todos, muevo tados copiando y pegando, todo funciona pero al hacer me
aparece el mensaje de que se ha copiado una gran cantidad de datos en el
portapapeles he intentado esto

Application.DisplayAlerts = False
xlwSemana.Close savechanges:=True
xlFichero.Quit
Pero el mensaje sigue apareciendo, he pensado en vaciar yo el portapapeles
desde el código pero buscando en la ayuda no he encontrado nada.

Un saludo
 

Leer las respuestas

#1 Héctor Miguel
05/12/2007 - 03:37 | Informe spam
hola, Antonio !

... muevo tados copiando y pegando
todo funciona pero... me aparece el mensaje de que se ha copiado una gran cantidad de datos en el portapapeles
he intentado esto
Application.DisplayAlerts = False
xlwSemana.Close savechanges:=True
xlFichero.Quit
Pero el mensaje sigue apareciendo
he pensado en vaciar yo el portapapeles desde el codigo pero buscando en la ayuda no he encontrado nada...



suponiendo que estas automatizando excel desde otra aplicacion (p.e. desde VB -stand alone-) y...
asumiendo que la variable de objeto xlFichero la declaras como "Excel.Application" (getobject(..., createobject(... o como sea)

1) se esperaria el uso de -> xlFichero.DisplayAlerts = False (en lugar de "Application") -???-

2) otras alternativas de (posible) solucion...
- Application.CutCopyMode = False (en tu caso... xlFichero.CutCopyMode = False)
- procura NO hacer (por codigo) varios copiar/cortar ANTES de (efectivamente) hacer el "pegado"
- (visita las siguientes direcciones):
-> http://www.mvps.org/skp/off00004.htm#2
-> http://support.microsoft.com/defaul...us;q207438
-> http://techsupt.winbatch.com/TS/T000001071F4.html

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares