Excel AutoRepublish error / Auto close windows

Question

Um de meus colegas de trabalho possui 9 pastas de trabalho do Excel que consultam um servidor de produção, organizam os dados e enviam os .mht como "Painéis" para os trabalhadores de produção.

Alguns consultam a cada 3 minutos, alguns deles apenas a cada hora.

Nós vemos 2 erros gerais.

Este aqui

eesteaqui

que,naverdade,vemdepoisdeumerro"Consulta da Web inválida" com apenas um botão "OK".

Este não é um problema neste momento, pois raramente acontece e somente quando o arquivo que está lendo está bloqueado.

O primeiro erro só acontece em um save quando o arquivo de destino está bloqueado. Eu coloquei Application.DisplayAlerts = False antes de cada Macro salvar em cada livro, mas não se livrou do erro top.

Eu tentei colocar um arquivo intermediário na bagunça e não tive nenhuma melhoria.

Hoje, experimentei esta no AutoIT e pode matar o segundo erro, mas falha com toda (eu tenho certeza) combinação de 'chaves' como o autor coloca.

Funciona se eu procurar pelo Excel em geral, mas isso mata a minha planilha também.

Eu posso e faço clique no botão "Não mostrar ..." todas as vezes, mas quando enviamos atualizações para este computador e o reiniciamos, esses erros retornam e pode levar dias para que todos os conflitos apareçam.

O que posso fazer para resolver isso?

    

Answer 1

Possível solução nos testes - ao redor do ActiveWorkbook.Salve com a instrução If abaixo e usando outro sub para pausar.

Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False

If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN 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

Manteve-se por 2 dias agora. Eu ainda posso quebrá-lo com o tempo certo para que a opção "Aguarde para fechar" seja a solução a longo prazo.