Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Problema con excel y VBA

Estas en el tema de Problema con excel y VBA en el foro de Visual Basic clásico en Foros del Web. hola a todos, primera vez por aquí. Estoy creando un macro en excel para mandar llamar y ejecutar un programa llamado Visum (es un programa ...
  #1 (permalink)  
Antiguo 25/01/2007, 17:42
 
Fecha de Ingreso: enero-2007
Mensajes: 4
Antigüedad: 17 años, 3 meses
Puntos: 0
Problema con excel y VBA

hola a todos, primera vez por aquí.

Estoy creando un macro en excel para mandar llamar y ejecutar un programa llamado Visum (es un programa de transporte, asignacion de tráfico y esas cosas). El problema es obtengo este mensaje en excel:

"Microsoft Office excel está esperando que otra aplicación complete una acción OLE"

en una ventana emergente cuando se está ejecutando un procedimiento del Visum, lo cual es relativamente normal, ya que el procedimiento tarda unos 10 minutos en ejecutarse.

El problema es que si no le doy click al botón de aceptar de la ventana emergente del mensaje, el macro se detiene y no puedo seguir ejecutando los llamados a Visum, y la idea es que el proceso se repita muchas veces.

Me recomendaron insertar un "doevents" pero no obtuve cambio en el programa. Agradezco cualquier sugerencia para evitar la ventana que aparece en excel...

Este es él código, solo incluye dos llamados, pero la idea es generalizarlo para muchos proyectos. El proceso que tarda 10 min. (aprox.) es el del renglón "Proc.Execute"

Cita:
Sub proy_51()
Dim Visum As Object
Set Visum = CreateObject("Visum.Visum.944")
'G3_09
'abre versión del proyecto 51_09
Visum.LoadVersion Cells(172, 1)
Visum.Graphic.showMaximized
Set Proc = Visum.Procedures
'abre el procedimiento indicadores 51_09
Proc.Open Cells(181, 1)
Proc.Execute
'abre el filtro51
Visum.LoadFilterFile Cells(224, 1)
Visum.SaveVersion Cells(172, 1)
Set Proc = Nothing
Set Visum = Nothing
'G3_10
'abre versión del proyecto 51_10
Set Visum = CreateObject("Visum.Visum.944")
Visum.LoadVersion Cells(173, 1)
Visum.Graphic.showMaximized
Set Proc = Visum.Procedures
'abre el procedimiento indicadores 51_10
Proc.Open Cells(182, 1)
Proc.Execute
'abre el filtro51
Visum.LoadFilterFile Cells(224, 1)
Visum.SaveVersion Cells(173, 1)
Set Proc = Nothing
Set Visum = Nothing
End Sub
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 02:07.