Uno de mis compañeros de trabajo tiene 9 libros de Excel que consultan un servidor de producción, organizan los datos y generan archivos .mht como "paneles de control" para los trabajadores de producción.
Algunos de ellos realizan consultas cada 3 minutos, otros solo cada hora.
Vemos 2 errores generales.
Éste
y éste
que en realidad aparece después de un error de "Consulta web no válida" con solo un botón "Aceptar".
Esto no es realmente un problema en este momento ya que rara vez sucede y sólo cuando el archivo que está leyendo está bloqueado.
El primer error solo ocurre al guardar cuando el archivo de destino está bloqueado. He colocado Application.DisplayAlerts = Falseantes de cada macro guardada en cada libro, pero no eliminó el error principal.
Intenté poner un archivo intermedio en el desorden y no obtuve ninguna mejora.
Hoy lo intentéesto en AutoITy puede eliminar el segundo error, pero falla con cada (estoy bastante seguro) combinación de "claves", como dice el autor.
Funciona si hago que busque Excel en general, pero eso también mata mi hoja.
Puedo hacer clic en "No mostrar..." cada vez, pero cuando enviamos actualizaciones a esta computadora y la reiniciamos, estos errores regresan y todos los conflictos pueden tardar días en aparecer.
¿Qué puedo hacer para resolver esto?
Respuesta1
Posible solución en las pruebas: rodear ActiveWorkbook. Guardar con la siguiente declaración If y usar otro sub para pausar.
Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False
If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN\7 Day WIP.mht") And vbReadOnly Then
Application.Run "Sheet1.WAITtoPUBLISH"
Else
ActiveWorkbook.Save
End If
End Sub
`Private Sub WAITtoPUBLISH()
Application.OnTime Now() + TimeValue("00:00:30"), "PUBLISH"
End Sub
Lleva 2 días aguantando. Todavía puedo romperlo en el momento adecuado, por lo que la opción "Esperar para cerrar" puede ser la solución a largo plazo.